Interaktywnie zmień wybory selectInput

Question

Oryginalnie tworzę ten błyszczący interfejs, który przyjmuje parametr "id firmy" i "date", ale tutaj mamy problem: większość ludzi nie zna firm, z którymi pracujemy według ich id, tylko ich nazwa, tj. (McDonalds, Radioshack).

Więc chcę idealnie utworzyć funkcję przeszukiwania jak ten

Mój obecny pomysł jest do przekazania w formie tabeli wraz z listą wszystkich naszych firm partnerskich i ich identyfikatory global.R. Następnie wpisz textInput jako zmienne wyszukiwania i przeprowadź wyszukiwanie po stronie serwera. Jednak zagubiłem się, jak przekazać searchResults z powrotem do interfejsu użytkownika w panelu selectInput?

Mój bieżący kod:

ui.R

library(shiny) 

shinyUI(pageWithSidebar(


    sidebarPanel(

    textInput("nameSearch", "Or, Search for company name", 'McDonald'), 
    selectInput("partnerName", "Select your choice", list("searchResults"), 
    br(), 
    submitButton("Update View"), 
    br(), 

), 

server.R

shinyServer(function(input, output) { 

    #subTable 
    searchResult<- reactive({ 
    subset(partners, grepl(input$nameSearch, partners$name)) 
    }) 

    output$searchResults <- renderTable({ 
    searchResult[,1] 
    }) 

global.R

partners<- read.csv("partnersList.csv", fill=TRUE) 

partnersList jest właśnie w tym formacie

name   id 
------------------ 
    McDonalds  1 
    Wendy's   2 
    Bestbuy   3 

Answer 1

Musisz ustawić interfejs użytkownika jako reaktywny. Nie testowałem tego (brakuje danych również), ale powinno działać, jak sądzę. W server.R dodają:

output$selectUI <- renderUI({ 
selectInput("partnerName", "Select your choice", searchResult()[,1]), 
}) 

I ui.R wymienić selectInput z:

htmlOutput("selectUI") 

Answer 2

Odpowiedz z Rstudio JC:

Jasne, wystarczy użyć textInput do łańcucha wyszukiwania i wykorzystania renderUI/uiOutput, aby dokonać dynamicznego selectInput. Wtedy reszta kodu może zależeć od wartości selectInput. (Upewnij się, aby sprawdzić dla NULL lub cokolwiek podczas odczytu wartości selectInput, ponieważ będzie to rozpocząć się bez wartości.)

Answer 3

błyszczące wersji 0.8 (gdzie ja testowałem go), w server.R dodać następujące :

shinyServer(function(input, output, session) { 

    observe({ 
    # This will change the value of input$partnerName to searchResult()[,1] 
    updateTextInput(session, "partnerName", 
        label = "Select your choice", 
        value = searchResult()[,1]) 
    }) 

}) 

teraz funkcja ciągu shinyServer ma dodatkowy argument session.

Możesz pominąć etykietę, jeśli nie musisz jej zmieniać.

Nie musisz niczego zmieniać w ui.R.