css - 单击关闭一个 Shiny 的应用程序

当用户单击按钮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)

最佳答案

解决您的问题的方法是为导航栏创建一个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

关于css - 单击关闭一个 Shiny 的应用程序，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/32529215/

QUIT

css - 单击关闭一个 Shiny 的应用程序