Commit 26ecfa80 authored by Holger Brandl's avatar Holger Brandl
Browse files

started genome correction

parent 76a57a42
......@@ -74,7 +74,7 @@ print(paste("compiling tmp-script in ",tmpScript, "'"))
#system(paste("cat ", r_script," | sed 's/_TODAY_/'$(date +\"%m-%d-%Y\")'/g' | grep -Ev '^#+$' | grep -Fv '#!/usr/bin/env Rscript' >", tmpScript))
## see /Users/brandl/Dropbox/Public/datautils/R/rendr/test/header_after_md_text_fix.sh
system(paste("cat ", r_script," | sed 's/_TODAY_/'$(date +\"%m-%d-%Y\")'/g' | grep -Ev '^#####+$' | sed 's/#\\x27 #/#\\x27\\'$'\\n#\\x27 #/g' | grep -Fv '#!/usr/bin/env Rscript' >", tmpScript))
system(paste("cat ", r_script," | sed 's/_TODAY_/'$(date +\"%m-%d-%Y\")'/g' | grep -Ev '^#####+$' | sed 's/#\\x27 #/#\\x27\\n\\n#\\x27 #/g' | grep -Fv '#!/usr/bin/env Rscript' >", tmpScript))
## add yaml header (will be ignored if already present
metadata <- paste0('#\'\n\n',
......
cat /Users/brandl/Dropbox/Public/datautils/R/rendr/test/simple_report.R | sed 's/#\x27 #/#\x27\'$'\n#\x27 #/g'
cat tt.R | sed 's/#\x27 #/#\x27\'$'\n#\x27 #/g'
## this works but the \ needs to be escaped in the R command as \\
cat /Users/brandl/Dropbox/Public/datautils/R/rendr/test/simple_report.R | sed 's/_TODAY_/'$(date +\"%m-%d-%Y\")'/g' | sed 's/#\x27 #/#\x27\'$'\n#\x27 #/g' | grep -Fv '#!/usr/bin/env Rscript'
......
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