R数据框导入Smartsheet遇403错误，求解决方案

一、403错误核心排查方向 #

• API密钥有效性：确认密钥未过期、未被撤销，是从Smartsheet个人设置中生成的有效密钥。
• 工作表权限：检查API密钥对应的账号是否拥有目标「Student Scores」工作表的至少查看权限（获取列ID需要）和编辑权限（添加行需要）。
• Sheet ID正确性：确认sheet_id是工作表的ID（从工作表URL中/sheets/后的数字串提取），而非工作簿或其他资源ID。
• 环境变量配置：如果用Sys.getenv读取密钥，确保环境变量已正确设置，可临时用Sys.setenv(SMARTSHEET_API_KEY = "你的密钥")测试。

二、分步解决流程 #

1. 验证权限与密钥
   • 登录Smartsheet，进入「个人设置」→「API访问」，确认密钥状态正常。
   • 打开目标工作表，通过分享按钮确认API账号在共享列表中，权限级别为编辑或更高。
2. 确认Sheet ID
   • 复制工作表URL中https://app.smartsheet.com/sheets/后的数字部分，替换代码中的"YOUR_SHEET_ID"。
3. 测试基础连通性
   运行以下代码验证权限：

   library(httr)
   api_key <- "你的实际API密钥"
   sheet_id <- "你的实际Sheet ID"
   response <- GET(
     url = paste0("https://api.smartsheet.com/2.0/sheets/", sheet_id),
     add_headers(Authorization = paste0("Bearer ", api_key))
   )
   print(status_code(response))
   print(content(response))
   

   返回200则权限正常；仍403则检查账号权限或联系Smartsheet支持。

三、修正后的完整代码 #

# Install and Load Necessary R Packages
if (!require("httr")) install.packages("httr")
if (!require("jsonlite")) install.packages("jsonlite")
library(httr)
library(jsonlite)

# Set Up API Credentials
Sys.setenv(SMARTSHEET_API_KEY = "你的实际API密钥")
api_key <- Sys.getenv("SMARTSHEET_API_KEY")

# Function to Fetch Column IDs
get_column_ids <- function(sheet_id, api_key) {
  base_url <- "https://api.smartsheet.com/2.0/sheets/"
  response <- GET(
    url = paste0(base_url, sheet_id),
    add_headers(Authorization = paste0("Bearer ", api_key))
  )
  
  if (status_code(response) != 200) {
    error_details <- content(response)
    stop(paste0("获取工作表详情失败。状态码: ", status_code(response), 
                " | 错误信息: ", error_details$message))
  }
  
  sheet_data <- fromJSON(rawToChar(response$content))
  columns <- sheet_data$columns
  column_ids <- setNames(sapply(columns, function(col) col$id), sapply(columns, function(col) col$title))
  
  return(column_ids)
}

# Function to Add Rows to Smartsheet
add_rows_to_smartsheet <- function(df, sheet_id, column_ids, api_key) {
  base_url <- "https://api.smartsheet.com/2.0/sheets/"
  # 校验列名匹配
  matching_cols <- intersect(names(df), names(column_ids))
  if (length(matching_cols) != ncol(df)) {
    stop("数据框列名与Smartsheet工作表列名不匹配，请检查字段名称")
  }
  
  rows_to_add <- lapply(1:nrow(df), function(i) {
    list(cells = lapply(matching_cols, function(column_name) {
      list(columnId = column_ids[column_name], value = df[i, column_name])
    }))
  })
  
  body <- list(rows = rows_to_add)
  response <- POST(
    url = paste0(base_url, sheet_id, "/rows"),
    add_headers(Authorization = paste0("Bearer ", api_key), "Content-Type" = "application/json"),
    body = toJSON(body, auto_unbox = TRUE),
    encode = "json"
  )
  
  if (status_code(response) != 200) {
    error_details <- content(response)
    stop(paste0("添加行失败。状态码: ", status_code(response), 
                " | 错误信息: ", error_details$message))
  }
  
  return(content(response))
}

# Specify Sheet ID
sheet_id <- "你的实际Sheet ID"

# Fetch Column IDs
column_ids <- get_column_ids(sheet_id, api_key)

# Prepare Data Frame（列名与Smartsheet字段严格匹配）
df <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Score = c(85, 92, 78),
  Email = c("alice@example.com", "bob@example.com", "charlie@example.com"),
  stringsAsFactors = FALSE
)

# Add Rows to Smartsheet
result <- add_rows_to_smartsheet(df, sheet_id, column_ids, api_key)
print("数据导入成功！")
print(result)

四、额外注意事项 #

• 列名大小写敏感：R数据框列名必须与Smartsheet工作表列名完全一致（包括大小写）。
• auto_unbox参数：toJSON添加该参数可避免单个值被包装成数组，符合Smartsheet API要求。
• 密钥安全：避免硬编码API密钥，优先使用环境变量存储。

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