SelectInput 그리고 만약 루프 플롯 R 빛나는

Question

나는이 기본적인 질문을 알고,하지만 난 빛나는에서 정말 새로운 해요 ...

어떻게 plotlyOutput가 SelectInput 상자에서 경우 루프와 결합 할 수 있습니까?

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

는하지만이 작동하지 않습니다

나는 같은 것을 의미한다.

Answer 1

코드를 잘라내셨습니까? 반짝 반짝 빛나는 앱처럼 보이지 않습니다. 이것이 반짝이는 앱의 모습입니다.

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)