一个迷你的代码,来表述我的问题
library(shiny)
library(shinydashboard)
options(shiny.trace = TRUE)
# Define UI for application that draws a histogram
shinyUI(
fluidPage(
column(
width = 6,
# format is different
dateRangeInput("date_range", "日期范围",
start = Sys.Date() - 365,
end = Sys.Date(),
min = "2018-04-01",
max = Sys.Date()
)
),
column(
width = 6,
selectInput("bd", "aa",
selected = "aa", multiple = TRUE,
choices = c("bb", "aa", "cc"), selectize = TRUE
)
),
mainPanel(
tabsetPanel(
tabPanel("Plot", plotly::plotlyOutput("tmp_day_plotly_ts"), DT::dataTableOutput("tmp_table")), # 这里放两个动态的组件
tabPanel("Summary", plotly::plotlyOutput("tmp_day_plotly_heatmap")),
tabPanel("Table", DT::dataTableOutput("tmp_table"))
)
)
)
)