SelectInput und wenn Schleife Plot R Shiny

Question

Ich weiß, dass dies eine grundlegende Frage ist, aber ich bin wirklich neu bei Shiny ...

Wie kann ich kombinieren plotlyOutput mit einer if-Schleife von einer SelectInput Box?

Ich meine etwas wie folgt aus:

vars <- data.frame(location = c("AP LIGUA", 
          "ESCUELA CHALACO"), 
       lat = c(-32.45, 
         -32.183333), 
       lon = c(-71.216667, 
         -70.802222) 
) 

selectInput(inputId = "myLocations", label = "Estación", 
               choices = vars$location), 
if (vars$location=="AP LIGUA") { 
           plotlyOutput("apligua", height = "100%") 
           fluidRow(
            DT::dataTableOutput("table") 
           ) 
           } 

Aber es funktioniert nicht.

Answer 1

Ich nehme an, Sie haben Ihren Code abgeschnitten? Es sieht nicht sehr nach einer glänzenden App aus. So sollte eine glänzende App aussehen.

vars <- data.frame(location = c("AP LIGUA", 
          "ESCUELA CHALACO"), 
       lat = c(-32.45, 
         -32.183333), 
       lon = c(-71.216667, 
         -70.802222) 
) 

ui <- fluidPage(
    selectInput(inputId = "myLocations", label = "Estación", 
               choices = vars$location), 
    plotlyOutput("apligua", height = "100%"), 
    dataTableOutput("table") 
) 

server <- function(input, output,session) { 

    output$apligua <- renderPlotly({ 
    if(is.null(input$myLocations)) return() #react to the user's choice if there's one 

    plot_ly(...) 
    }) 

    output$table <- renderDataTable({ 
    if(is.null(input$myLocations)) return() #same thing, react to the user's choice 

    data.table(...) 
    }) 
} 

shinyApp(ui, server)