如何从RStudio Connect获取用户详情至Shiny应用的app.R代码

前提准备 #

确保你的Shiny应用在RStudio Connect上已启用身份验证（可在应用设置中开启，要求用户登录后访问），这是获取用户信息的基础。

获取RStudio Connect用户详情 #

RStudio Connect会自动将登录用户的信息传递给Shiny应用，有两种常用获取方式：

方式1：通过Shiny Session对象获取

在Shiny的server函数中，直接从session对象提取用户信息：

server <- function(input, output, session) {
  # 获取当前登录用户ID
  current_user <- session$user
  
  # 获取用户完整详情（需RStudio Connect新版本支持）
  user_details <- session$userData$connectUser
  # user_details包含username、email、fullname等字段
}

方式2：读取环境变量

RStudio Connect运行应用时会自动设置环境变量，可直接读取：

# 获取用户名
current_user <- Sys.getenv("CONNECT_USER")
# 获取用户邮箱
user_email <- Sys.getenv("CONNECT_USER_EMAIL")
# 获取用户全名
user_fullname <- Sys.getenv("CONNECT_USER_FULLNAME")

基于角色展示内容 #

假设你有预定义的角色映射数据（可从数据库或私有配置文件加载），对比用户信息后渲染对应内容：

# 示例角色映射数据
role_mapping <- data.frame(
  username = c("alice", "bob", "charlie"),
  role = c("admin", "editor", "viewer"),
  access_modules = c("dashboard,settings,reports", "dashboard,reports", "reports")
)

server <- function(input, output, session) {
  current_user <- session$user
  
  # 匹配当前用户的角色与权限
  user_info <- subset(role_mapping, username == current_user)
  user_role <- ifelse(nrow(user_info) > 0, user_info$role, "guest")
  
  # 根据角色渲染对应UI
  output$main_content <- renderUI({
    switch(user_role,
           "admin" = tagList(
             h3("管理员控制台"),
             p("你拥有所有模块的访问权限")
           ),
           "editor" = tagList(
             h3("编辑工作台"),
             p("你可编辑和查看仪表盘与报告")
           ),
           "viewer" = tagList(
             h3("查看者页面"),
             p("你仅能查看报告内容")
           ),
           tagList(
             h3("访客页面"),
             p("无权限访问内部内容")
           )
    )
  })
}

注意事项 #

• 旧版本RStudio Connect可能不支持session$userData$connectUser，优先使用环境变量方式。
• 角色映射数据不要硬编码在app.R中，建议存储在RStudio Connect私有数据目录或数据库中。
• 测试时可使用RStudio Connect的「测试用户」功能，切换不同角色验证内容展示逻辑。

内容的提问来源于stack exchange，提问作者am3010