get input value correctly

gaospecial · Dec 21, 2023 · 1b6b581 · 1b6b581
1 parent 11b90ae
commit 1b6b581
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/shiny/shinyApp.R b/inst/shiny/shinyApp.R
@@ -104,7 +104,7 @@ server = function(input, output, session){
     output$plot = renderPlot({
       x = vector("list", length = input$nsets)
       for (i in 1:input$nsets){
-        x[[i]] = input[[paste0("set_", i)]]
+        x[[i]] = input[[paste0("set_", i)]] |> strsplit(split = ",") |> unlist()
       }
       (session$userData$plot = ggVennDiagram(x))
     })