R brillant; comment utiliser plusieurs entrées de selectInput de passer sur "sélectionner" option dans dplyr?

J'ai une application dans laquelle je suis à la recherche de prendre la saisie de l'utilisateur dans le "ui" fichier et utiliser cette information pour mettre à jour un dataframe dans le "serveur de fichiers". Ce qui suit est une version simplifiée de ce qui ressemble le code:

Dataframe <- readRDS(Dataframe.rds)
Table <- readRDS(Table.rds)    

ui <- fluidPage(
     selectInput("Location","Location",
              unique(as.character(Table$Locations)), multiple = TRUE)
                )

server <- function(input,output) {
 Dataframe2 <- Dataframe %>% select(get(input$Location))
                                 }

Le code ci-dessus fonctionne, si je n'utilise pas le "multiple = TRUE" option pour selectInput, ce qui signifie que le Dataframe2 objet ne sélectionne la colonne qui correspond à la seule entrée que l'utilisateur a choisi. Cependant, je ne sais pas comment je peux faire la même chose pour les entrées multiples, lorsque le choix peut varier de seulement 1 point d'être passés à partir de selectInput jusqu'à 10 points au total.

OriginalL'auteur Naj S | 2016-09-30

  1. 9

    Si j'ai bien compris votre question c'est un exemple avec une sélection multiple à l'aide de la mtcars trame de données:

    de l'interface utilisateur.R

        library(shiny)
    data(mtcars)

    shinyUI(fluidPage(


      titlePanel("MTCARS"),
      selectInput("Columns","Columns",
                  names(mtcars), multiple = TRUE),
      verbatimTextOutput("dfStr")


    ))

    serveur.R

        library(shiny)
    library(dplyr)
    data(mtcars)

    shinyServer(function(input, output) {


                    Dataframe2 <- reactive({
                            mtcars[,input$Columns] 
                    })
                    output$dfStr <- renderPrint({
                            str(Dataframe2())
                    })



    })
    Parfait. C'est à peu près fait le tour pour moi.

    OriginalL'auteur Valter Beaković