如何通过代码为Posit Connect的pins设置指定用户访问的ACL？

方法一：直接通过pins包设置 #

当access_type="acl"时，pin_write()函数支持通过users和groups参数直接指定有权限访问该pin的用户或组，无需额外依赖其他包，适合批量场景。

示例代码：

library(pins)

# 连接Posit Connect看板
board <- board_connect(auth = "envvar")

# 写入带ACL权限的pin：可指定单个/多个用户、单个/多个组
mtcars %>% 
  pins::pin_write(
    board = board,
    name = "my_mtcars_pin",
    force_identical_write = TRUE,
    access_type = "acl",
    users = c("user1@example.com", "user2"),  # 支持用户名或邮箱格式
    groups = c("data_team", "analysts")       # 直接填写组名
  )

批量处理数千个pin时，可以将配置信息存入数据框后循环执行：

# 假设已准备好批量配置数据
pin_configs <- data.frame(
  pin_name = paste0("dataset_", 1:1000),
  users = I(list(c("user1"), c("user2", "user3"), ...)),  # 每个pin对应的用户列表
  groups = I(list(c("team_a"), c("team_b"), ...))         # 每个pin对应的组列表
)

# 循环写入并设置ACL
for (i in seq(nrow(pin_configs))) {
  target_data <- get(pin_configs$pin_name[i])  # 假设目标数据对象已存在
  target_data %>%
    pin_write(
      board = board,
      name = pin_configs$pin_name[i],
      force_identical_write = TRUE,
      access_type = "acl",
      users = pin_configs$users[[i]],
      groups = pin_configs$groups[[i]]
    )
}

方法二：结合connectapi包设置权限 #

如果需要更精细的权限管理（比如后续修改权限），可以通过connectapi包实现，核心是先获取pin的GUID：

1. 写入pin后，通过pin_meta()提取该pin的GUID
2. 连接Posit Connect，获取内容对象后设置ACL

示例代码：

library(pins)
library(connectapi)

# 1. 先写入基础pin（access_type设为acl）
board <- board_connect(auth = "envvar")
mtcars %>% 
  pin_write(
    board = board,
    name = "my_mtcars_pin",
    force_identical_write = TRUE,
    access_type = "acl"
  )

# 2. 从元数据中获取pin的GUID
pin_meta_info <- pin_meta(board, "my_mtcars_pin")
pin_guid <- pin_meta_info$local$guid

# 3. 连接Posit Connect并配置权限
connect_client <- connect(auth = "envvar")
content_item <- get_content(connect_client, pin_guid)

# 给单个用户添加查看权限
content_item %>% 
  set_acl_user(username = "user1", role = "viewer")  # 角色可选viewer/editor/owner

# 批量添加用户权限
target_users <- c("user2", "user3")
for (user in target_users) {
  content_item %>% set_acl_user(username = user, role = "viewer")
}

# 给组添加编辑权限
content_item %>% 
  set_acl_group(groupname = "data_team", role = "editor")

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