如何解决每个选项卡的不同闪亮输入 - R
我有一个闪亮的应用程序,带有多个选项卡用于查看股票数据,我希望能够为每个选项卡提供不同的输入选项。目前,有输入/过滤器占用了标签上的空间,而它们没有任何功能。例如,我的日期范围输入、滑块输入和复选框输入对于查看我的股票股息选项卡并不都是必需的。有没有办法控制每个选项卡的输入?这是我的代码的一般片段。
ui <- fluidPage(
titlePanel("My App"),dateRangeInput("daterange","Select a Time Frame to be Plotted",start = "2007-01-01",end =
Sys.Date()),mainPanel(
selectInput("stock","Select a Stock(s):",choices = unique(df$Stock),multiple = TRUE,selected = "AAPL")),sliderInput(),checkboxGroupInput(),tabsetPanel(
tabPanel("Stock Chart",plotlyOutput("line")),tabPanel("Returns",reactableOutput('returns')),tabPanel("Buy/Sell",plotlyOutput("buy_sell")),tabPanel("Dividends",plotlyOutput("dividend")),tabPanel("Trendline",reactableOutput("trendline")),tabPanel("Ticker Lookup",DT::dataTableOutput("ticker"))
)
)
server <- function(input,output,session) {
My ggplot graphs/table code here:
解决方法
您只需要将您的输入括在它们各自的 tabPanel
中,例如,您可以像这样在股票图表选项卡中插入日期范围输入。
ui <- fluidPage(
titlePanel("My App"),dateRangeInput("daterange","Select a Time Frame to be Plotted",start = "2007-01-01",end =
Sys.Date()),mainPanel(
selectInput("stock","Select a Stock(s):",choices = unique(df$Stock),multiple = TRUE,selected = "AAPL")),sliderInput(),checkboxGroupInput(),tabsetPanel(
tabPanel("Stock Chart",dateRangeInput("daterange1",end = Sys.Date()),plotlyOutput("line")),tabPanel("Returns",reactableOutput('returns')),tabPanel("Buy/Sell",plotlyOutput("buy_sell")),tabPanel("Dividends",plotlyOutput("dividend")),tabPanel("Trendline",reactableOutput("trendline")),tabPanel("Ticker Lookup",DT::dataTableOutput("ticker"))
)
)
server <- function(input,output,session) {
My ggplot graphs/table code here:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。