Commit 07508cc1 authored by mmassaviol's avatar mmassaviol
Browse files

Add input$sample_suffix to get_samples.py call

parent 190b5c75
source("tools.R")
library(yaml)
path_yml <- "/home/mbb/Documents/waw/workflows/RADseq_ref/sag.yaml"
path_yml <- "/home/mbb/Documents/waw/workflows/Metabarcoding/sag.yaml"
#path_tools <- "/home/mbb/Documents/waw/tools"
......@@ -546,7 +546,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"),intern = 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 + '\tc$samples = names(samples)\n'
save_params <- save_params + '\tnames(samples) = NULL\n'
save_params <- save_params + '\tc$groups = unlist(samples)\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