我正在尝试编写一个闪亮的应用程序,其中标签是顺序活动的.例如,用户只能在第一个选项卡上完成任务后移动到第二个选项卡.在这种情况下,第一个选项卡将添加绿色复选标记(例如),第二个选项卡将变为活动状态.(对于下一个标签也一样.)
例如,这里是ui.R和server.R文件:
shinyUI(fluidPage(
titlePanel("New Project"),
navlistPanel(selected="Data Upload",
tabPanel("Data Upload",
textInput("aInSummary", label = h5("Please type a"),
value = "Enter value...")
),
tabPanel("Data Check",
textInput("bInDataCheck", label = h5("Please type b"),
value = "Enter value...")
),
tabPanel("Dry Run",
textInput("cInDryRun", label = h5("Please type c"),
value = "Enter value...")
),
tabPanel("Output"),
"-----",
tabPanel("Help-FAQ")
)
))
shinyServer(function(input, output,server) {
})
Run Code Online (Sandbox Code Playgroud)
我知道我应该在"navlistPanel"和"tabPanel"中添加"id",但我不确定我应该包含在server.R文件中的逻辑,因为我没有看到用户将如何修改这样的id.
我搜索了闪亮的谷歌群组,这里的主题,并阅读条件面板..但这不是我真正想要的.任何帮助/教程或阅读建议非常感谢!
(来自闪亮的谷歌群组的交叉帖子,https://groups.google.com/forum/#!topic / shiny-discuss/CvoABQQoZeE)
如何导航到ShinyDashboard中的特定侧边栏菜单项?
sidebarMenu(
menuItem("Menu Item 1")
menuItem("Menu Item 2")
)
Run Code Online (Sandbox Code Playgroud)
即如何在"菜单项1"页面上放置一个链接到"菜单项2"的按钮?
要在标签之间导航,我使用updateTabsetPanel函数:
observeEvent(input$go,{
updateTabsetPanel(session, "tabset1", selected = "Step 2")
})
Run Code Online (Sandbox Code Playgroud)
我相信我应该能够使用类似的功能导航到侧边栏菜单,但我不确定那是什么.
任何指针都非常感激
谢谢
伊恩