Add input$sample_suffix to get_samples.py call

main.R

 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'