单击即可关闭闪亮的应用程序

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，这样您就可以像以前一样调用观察者，但要更改输入。唯一的问题是确定您需要为导航栏页面创建一个新的 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