单击关闭闪亮的应用程序

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

单击关闭闪亮的应用程序

close a shiny app on a click

css

onclick

shiny