r - Shinymanager 通过单击按钮注销

Question

我想在用户单击按钮时显示注销和身份验证屏幕。

credentials <- data.frame(
  user = "x", 
  password = "x"
)

library(shiny)
library(shinymanager)

ui <- fluidPage(
  tags$h2("My secure application"),
  actionButton("action_logout", "Logout!")
)

ui <- secure_app(ui)

server <- function(input, output, session) {

  res_auth <- secure_server(
    check_credentials = check_credentials(credentials)
  )

  observeEvent(input$action_logout, {
    # logout
  }) 
}

shinyApp(ui, server)

我发现了shinymanager 右下角的默认注销按钮有 id = ".shinymanager_logout" ，所以我试着用 session$sendCustomMessage(".shinymanager_logout", 1) 来称呼它.这可能是一种非常幼稚的方式。

如何使用自定义注销按钮注销用户？

Answer 1

最简单的方法是使用 session$reload() 重新加载 Shiny 的 session 。 ，所以在你的例子中:

observeEvent(input$action_logout, {
  session$reload()
}) 

但也许我们可以在包中实现一些东西，你可以在这个问题中发表评论: https://github.com/datastorm-open/shinymanager/issues/7