Commit 44970030 authored by mmassaviol's avatar mmassaviol
Browse files

Remove yaml int to char

(cause snakemake threads error)
parent 3fa2cb59
......@@ -8,7 +8,7 @@ library(yaml)
path_yml <- args[1]
APP <<- yaml.load_file(path_yml,handlers = list(int = function(x){return(as.character(x))}))$App
APP <<- yaml.load_file(path_yml,handlers = list("float#fix"=function(x){ format(x,scientific=F)}))$App
generate_added_styles <- function () {
path_css = APP$project + "/www/added_styles.css"
......@@ -540,10 +540,10 @@ generate_pages_server <- function() {
save_params <- save_params + '\tres = ""'
save_params <- save_params + resG
#save_params <- save_params + '\t\tres = paste0(res, paste("final_step:", paste0(\'\"\', input$final_step, \'\"\'), "\\n", sep = " "))\n\n'
save_params <- save_params + '\ta = yaml.load_file("/workflow/params.total.yml", handlers=list("float#fix"=function(x){ format(x,scientific=F)}, int = function(x){return(as.character(x))}))\n'
save_params <- save_params + '\ta = yaml.load_file("/workflow/params.total.yml", handlers=list("float#fix"=function(x){ format(x,scientific=F)}))\n'
save_params <- save_params + '\tp = a[["params"]]\n'
save_params <- save_params + '\ta["params"] = NULL\n'
save_params <- save_params + '\tb = yaml.load(res, handlers=list("float#fix"=function(x){ format(x,scientific=F)}, int = function(x){return(as.character(x))}))\n'
save_params <- save_params + '\tb = yaml.load(res, handlers=list("float#fix"=function(x){ format(x,scientific=F)}))\n'
save_params <- save_params + '\tpnotb = subset(names(p), !(names(p)%in%names(b)))\n'
save_params <- save_params + '\td = list()\n'
save_params <- save_params + '\td$params = c(p[pnotb],b)\n'
......
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