我的R Shiny应用程序中有多个标签,并且没有找到让我的操作按钮导航到另一个标签的方法。
第一个标签以"提交信息"结束。动作按钮,目标是获得"结果"用户提交后打开选项卡。如果有人可能有一些伪代码可以实现这一点,那么任何事情都会非常有用。
答案 0 :(得分:4)
您好,您可以使用updateTabsetPanel
来执行此操作,您必须为tabsetPanel
(如果您使用tabsetPanel
)添加ID并将session
添加到您的服务器功能:
library("shiny")
ui <- fluidPage(
tabsetPanel(
id = "tabs",
tabPanel(
title = "params",
actionButton(inputId = "submitInfo", label = "submit info")
),
tabPanel(
title = "result",
"result"
)
)
)
server <- function(input, output, session){
observeEvent(input$submitInfo, {
updateTabsetPanel(session = session, inputId = "tabs", selected = "result")
})
}
shinyApp(ui = ui, server = server)
如果您使用navbarPage
或shinydashboard
,则其工作方式相同