Commit 353ef967 authored by mmassaviol's avatar mmassaviol
Browse files

Debug path group file (get_samples)

parent 447a1704
......@@ -550,7 +550,7 @@ generate_pages_server <- function() {
save_params <- save_params + '\t\tclass(result) <- "verbatim"\n'
save_params <- save_params + '\t\treturn(result)\n'
save_params <- save_params + '\t}\n'
save_params <- save_params + '\tsamples = yaml.load(system(paste0("python3 /workflow/get_samples.py ",input$sample_dir," /samples/groups.csv ", input$sample_suffix),intern = T))\n'
save_params <- save_params + '\tsamples = yaml.load(system(paste0("python3 /workflow/get_samples.py ",input$sample_dir," /Data/groups.csv ", input$sample_suffix),intern = T))\n'
save_params <- save_params + '\tc$samples = names(samples)\n'
save_params <- save_params + '\tnames(samples) = NULL\n'
save_params <- save_params + '\tc$groups = unlist(samples)\n'
......@@ -669,7 +669,6 @@ generate_pages_server <- function() {
volumes = paste0(volumes,key,'="',cnt$volumes[[1]][key],'",')
volumes = substr(volumes, 1, nchar(volumes)-1)
volumes = paste0(volumes,')')
print(volumes)
}
else{
volumes = 'c(Data="/Data",Results="/Results")'
......
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