有什么方法可以获取 R Shiny 应用程序会话的当前用户吗？

Question

我的组织目前使用 R Shiny 的基本订阅。现在，我正在尝试设置我们的仪表板之一，以便它可以执行以下功能之一：

1. 启用登录（我们已经能够使用shinymanager完成此任务）。

2. 成功登录后，保存输入的用户名以供该会话的其余部分使用。

第二步是我陷入困境的地方。如果有人成功实现了这一点，请告诉我。我们当前的登录设置如下所示：

（在用户界面或服务器之外）：

credentials <- data.frame(
    user = ("sample_user", "sample_user_1"),
    password = ("password1", "password2"),
    admin = (TRUE, FALSE)
)

在我们的服务器对象中我们有这个：

res_auth <- secure_server(
    check_credentials = check_credentials(credentials)
  )
  
output$auth_output <- renderPrint({
    reactiveValuesToList(credentials)
})

但是，每当我尝试使用

session$user

或

session$userData

获取有关会话的一些信息时，它都是 NULL。

Answer 1

我找到了解决方案。用户登录后，可以通过

auth_output()

找到有关会话的信息，特别是通过

auth_output()$user

找到用户信息。