Question

当用户点击按钮Q时，应用结束。我希望此应用在用户点击导航栏上的Quit 时结束。不幸的是我无法弄清楚如何做到这一点。感谢任何帮助！

编辑：如果知道如何将Quit标签移到右侧，那就太棒了。）

ui <- shinyUI(navbarPage(title = "Test", 
        tabPanel(title = "Content",
                 actionButton(inputId = "quit", label = "Quit")
        ),
        tabPanel(title = "Quit", icon = icon("circle-o-notch"))
        )
)

server <- shinyServer(function(input,output) {
  observe({
    if (input$quit == 1) stopApp()
  })
})

shinyApp(ui, server)

Answer 1

您的问题的解决方案是为导航栏创建一个id，通过它，您可以像调试观察者一样调用输入。唯一的问题是确定您需要为navbarPage创建一个新的ID。

shinyApp(
ui = navbarPage(title = "Test", id="navbar", 
                         tabPanel(title = "Content"),
                         tabPanel(title = "Quit", value="stop", icon = icon("circle-o-notch"))
), #Close UI

server = function(input,output,session) {
  observe({
    if (input$navbar == "stop") 
        stopApp()
  })
} #Close server 

) #Close shinyApp

点击即可关闭闪亮的应用

1 个答案: