如何用ShinyApps.io内置认证实现Shiny应用的用户权限区分？

可以。ShinyApps.io的邮件邀请式内置认证（标准版及以上套餐支持）完全可以替代shinymanager，实现基于用户的权限控制，包括切换数据集、控制UI元素显隐等功能。

核心逻辑 #

当用户通过ShinyApps.io的邀请链接登录后，Shiny应用可通过session$user对象获取当前用户的邮箱地址。你只需预先定义好每个邮箱对应的权限规则（比如关联的数据集、可访问的UI模块），就能在服务器端根据登录用户的邮箱匹配权限，动态调整应用行为。

实现步骤 #

• 在ShinyApps.io后台为应用开启Require authentication，通过邮件邀请指定用户，确保只有受邀者能访问应用。
• 在Shiny代码中，用session$user获取当前登录用户的邮箱。
• 构建权限映射表（数据框或列表），存储每个邮箱对应的权限配置。
• 服务器端根据用户邮箱匹配权限，动态渲染UI或加载对应数据。

完整示例代码 #

library(shiny)
library(dplyr)

# 预定义用户权限：邮箱 -> 数据集、页面标题、可访问UI
user_permissions <- data.frame(
  user_email = c("user1@example.com", "user2@example.com"),
  target_dataset = c("iris", "cars"),
  page_title = c("User1专属数据页", "User2专属数据页"),
  can_access_button = c(TRUE, FALSE)
)

ui <- fluidPage(
  uiOutput("page_title"),
  tableOutput("data_table"),
  uiOutput("permission_ui")
)

server <- function(input, output, session) {
  # 获取当前登录用户邮箱（仅在ShinyApps.io开启认证后有效）
  current_user <- reactive({
    req(session$user)
    session$user
  })
  
  # 匹配当前用户的权限配置
  user_auth <- reactive({
    req(current_user())
    user_permissions %>%
      filter(user_email == current_user())
  })
  
  # 渲染页面标题
  output$page_title <- renderText({
    req(user_auth())
    user_auth()$page_title
  })
  
  # 渲染对应数据集
  output$data_table <- renderTable({
    req(user_auth())
    dataset <- user_auth()$target_dataset
    switch(dataset,
           iris = head(iris),
           cars = head(cars))
  })
  
  # 根据权限控制UI元素显隐
  output$permission_ui <- renderUI({
    req(user_auth())
    if (user_auth()$can_access_button) {
      tagList(
        h4("仅User1可见的功能"),
        actionButton("special_btn", "导出专属数据")
      )
    } else {
      h4("欢迎User2访问")
    }
  })
}

shinyApp(ui = ui, server = server)

关键注意点 #

• session$user仅在ShinyApps.io开启内置认证后返回用户邮箱，本地测试时可临时赋值session$user <- "user1@example.com"模拟登录状态。
• 权限映射表可存储在本地文件或数据库中，便于批量维护用户权限。
• 确保你的ShinyApps.io套餐为标准版及以上，免费版不支持内置认证功能。

内容的提问来源于stack exchange，提问作者Juan Esteban Vaccaro Silvio