Überprüfen Sie für mehrere Auswahl in Shiny Server

Question

Ich erstelle eine Eingabeliste für die Benutzerauswahl mit selectInput(....multiple=TRUE), wo Benutzer mehrere Optionen auswählen kann, aber ich kann nicht überprüfen/lesen, welche Optionen Benutzer in meinem Server.R auswählt.

Wenn jemand erfolgreich versucht hat, können Sie es bitte teilen?

Zum Beispiel - Für ein Verzeichnis der Datei Folowing hat -

/User/DE/AvsB.de.txt- 

Feature.ID Read.Count.All Read.Count.A Read.Count.B FC 
ENSG00000121898 3367.375403 6734.750807 0 0 
ENSG00000104435 2161.235573 4322.471145 0 0 
ENSG00000229847 2111.660196 4223.320392 0 0 
ENSG00000046889 1302.993351 2605.986702 0 0 

/User/DE/CvsD.de.txt -

Feature.ID Read.Count.All Read.Count.C Read.Count.D FC 
ENSG00000248329 373.0309339 746.0618679 0 0 
ENSG00000144115 352.3786793 704.7573586 0 0 
ENSG00000158528 351.6252529 703.2505057 0 0 
ENSG00000189058 350.5375828 701.0751656 0 0 


library(gtools) 
D_files <- list.files(path = "/User/DE/",pattern = "*.de.txt" ,recursive = F, full.names = T) 
D_filename <- vector() 
for(i in 1:length(D_files)){ 
    D_filename[i] <- D_files[i] 
} 
D_filename <- unlist(strapplyc(D_filename, "/User/DE/(.*).de.txt")) 
names(D_files)<- D_filename 


    ui <- fluidPage(

    mainPanel(

     uiOutput("Quad_plot_comparison"), 
     HTML("<br><br>"), 
     br() 
) 
) 

    server <- function(input, output) { 
    output$Quad_plot_comparison <- renderUI({ 
     selectInput(inputId = "vars",label = h3("Select comparison"), choices = mixedsort(D_files), multiple = T) 
    }) 
    } 

    shinyApp(ui, server) 

Mein Code die Dateinamen in der Eingabe zeigt Box, aber ich muss folgendes tun

1- Select multiple file names from the box 
2- Read user input (variables in the input box) 
3- Read the files corresponding to these user input into a data frame 

Ich bin nicht einmal in der Lage, den zweiten Schritt t zu bekommen o Arbeit, jede Hilfe wird funktionieren! Danke!

Answer 1

Dies ist ein kleines Beispiel zur Verwendung der Mehrfachselektion in selectInput. Sie können es Ihnen Szenario anpassen, indem Sie die Datei im reactive lesen:

library(shiny) 
shinyApp(ui=fluidPage(selectInput("select", "choose", c(1,2,3), multiple = TRUE), 
         textOutput("selected", inline=TRUE)), 
     server=function(input, output){ 
         selected <- reactive(ifelse(is.null(input$select), "nothing", 
                paste(input$select, collapse=","))) 
         output$selected <- renderText(paste("Selected=",selected())) 
         })