点击关闭闪亮的应用程序

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