-1
我在我的選擇框小部件中有3個數據源。我試圖在我從應用程序的選擇框中選擇不同的數據源時更新圖表。當我更改數據源時,該圖不會更新。我需要使用reactive
命令嗎?每個選擇框小部件輸出的不同數據源
shinyUI(fluidPage(
# Application title
titlePanel("Temperature Data"),
sidebarLayout(
sidebarPanel(
selectInput("dataSelection", label = "Choose a Data Set", choices = c("Dataset 1", "Dataset 2")),
selectInput("component1", label = "Choose a Chart",
choices = c("Watts"),
selected = "Watts")),
mainPanel(
dygraphOutput("TempRise")
)
)
#server.r
shinyServer(function(input, output) {
output$TempRise <- renderDygraph({
dataSource <- switch(input$dataSelection,
"Dataset 1" = Data1,
"Dataset 2" = Data2)
TempData <- switch(input$component1,
"Watts" = dataSource$Watts)
dygraph(TempData, main = "Temperature Data") %>%
dyRangeSelector()
})
})
什麼是'dyRangeSelector()'?並顯示'Data1'和'Data2'的外觀 –