Commit fdf4bb56 authored by joerg.buescher's avatar joerg.buescher
Browse files

Merge branch 'dev' into 'master'

make logging of git versions distribution compatible

See merge request !4
parents 46e73aab cbf2c19a
......@@ -58,12 +58,21 @@ qqq_auto_integrate <- function(nowfolder = "", parameters = list()) {
}
# Log git info ------------------------------
tryCatch({setwd('~/data/helperfiles')
helperfilesgithash <- system("git describe --always", intern=TRUE)
setwd('~/data/automRm')
automrmgithash <- system("git describe --always", intern=TRUE)
setwd('~/code/R_analysis')
scriptgithash <- system("git describe --always", intern=TRUE)
tryCatch({
scriptgithash <- automrmgithash <- helperfilesgithash <- ''
if (dir.exists('~/data/helperfiles')) {
setwd('~/data/helperfiles')
helperfilesgithash <- system("git describe --always", intern=TRUE)
}
if (dir.exists('~/data/automRm')) {
setwd('~/data/automRm')
automrmgithash <- system("git describe --always", intern=TRUE)
}
if (dir.exists('~/code/R_analysis')) {
setwd('~/code/R_analysis')
scriptgithash <- system("git describe --always", intern=TRUE)
}
cat(paste(timestamp(), '\n Now running QQQ_integrate.R
\n Gitlab repository for processing script: https://gitlab.gwdg.de/daniel.eilertz/ms-web
Commit hash: ', scriptgithash,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment