条件付きパネルとselectInput

Question

これは私の問題です。 条件付きパネルをselectInputと一緒に正しく設定することはできません。私が必要とするのは、 "AP LIGUA"が選択されているときにapliguaを描画し、 "LAS CRUZADAS"を選択したときlascruzadasをプロットすることです。しかし、Shinyは両方のグラフをプロットしています。サーバーで

ヘルプしてください...

：

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

output$apligua <- renderPlotly({ 
theme_set(theme_bw()) 
ggplot(aes(x = datos2$horafecha, y = datos2$altura2), data = datos2) + 
    geom_line() + 
    geom_point() + 
    geom_smooth(method = "auto", colour='blue', span=0.2) + 
    ylab("Altura (m) ") + 
    xlab("Meses") 
}) 

output$lascruzadas <- renderPlotly({ 
theme_set(theme_bw()) 
ggplot(aes(x = datos$horafecha, y = datos$altura2), data = datos) + 
    geom_line() + 
    geom_point() + 
    geom_smooth(method = "auto", colour='blue', span=0.2) + 
    ylab("Altura (m) ") + 
    xlab("Meses") 
}) 

UI

selectInput(inputId = "myLocations", label = "Estación", 
               choices = vars$location), 

conditionalPanel("input.myLocations" == "LAS CRUZADAS", 
           plotlyOutput("lascruzadas", height = "100%") 
           ), 

conditionalPanel("input.myLocations" == "AP LIGUA", 
           plotlyOutput("apligua", height ="100%") 
           ) 

（ERROR EDITED）で

Answer 1

条件はJavascriptコードの1文字列である必要があります。したがって、次のようなものがあります。

"input.myLocations == 'LAS CRUZADAS'" 

一重引用符に注意してください。