How can i allow the Query to search for many values using "selectInput" in the "GLUE Package"?
I have the following example... but it just did not work:
library(shiny)
library(glue)
ui <- fluidPage(
selectInput("ordemlista", "Tipo de Ordem:",
choices=list('LQ','LQR', 'LQX'),
multiple = TRUE
),
tableOutput(outputId = "query")
)
server <- function(input, output) {
output$query <- renderText({
glue ("
select cod_ordem_producao
from pla.cod_ordem_producao
WHERE cod_ordem_producao IN '{input$ordemlista}'
")
})
}
shinyApp(ui = ui, server = server)