tutorial - Cambiar de forma interactiva las opciones de selección de entrada

shiny r tutorial

Question

Originalmente creé esta brillante interfaz que incluye un parámetro "identificación de la compañía" y "fecha", pero aquí tenemos un problema: la mayoría de la gente no conoce las empresas con las que trabajamos, solo su nombre, es decir, (McDonalds, Radioshack) .

Entonces, idealmente, quiero crear una función de búsqueda como esta

Mi idea actual es pasar una tabla que incluya una lista de todas nuestras compañías asociadas y sus identificaciones a global.R. Luego pase la entrada de texto como las variables de búsqueda y realice la búsqueda en el lado del servidor. Sin embargo, me pierdo sobre cómo pasar searchResults de nuevo a la interfaz de usuario en un panel de selección de entrada?

Mi código actual:

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(),
),

servidor.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 está solo en este formato

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

Answer 1

Debes hacer que la UI sea reactiva. No lo he probado (también omito datos), pero debería funcionar, creo. En server.R agrega:

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

Y en ui.R reemplaza el selectInput con:

htmlOutput("selectUI")

Answer 2

En la versión Shiny 0.8 (donde lo he probado), en server.R agregue lo siguiente:

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])
})
})

Ahora la función dentro de shinyServer tiene una session argumento adicional.

Puede omitir la etiqueta si no necesita cambiarla.

No necesita cambiar nada en ui.R

Answer 3

Respuesta de Rstudio''s JC:

Claro, simplemente use un TextInput para la cadena de búsqueda, y use renderUI / uiOutput para hacer una selectInput dinámica. Entonces, el resto de su código puede depender del valor de selectInput. (Asegúrese de buscar NULL o lo que sea al leer el valor de selectInput, porque comenzará sin ningún valor).