如何在R脚本中获取AWS Secrets Manager中的内容？

完全可以通过R连接AWS Secrets Manager并获取存储的内容，最便捷的方式是使用AWS官方的R SDK——paws中的paws.secretsmanager包，以下是具体实现步骤：

1. 安装并加载依赖包 #

首先安装专门用于Secrets Manager的R包：

install.packages("paws.secretsmanager")
library(paws.secretsmanager)

2. 配置AWS访问凭证 #

你需要通过以下方式之一配置AWS凭证，确保R脚本有权限访问Secrets Manager：

• 环境变量：适合临时测试，在脚本中直接设置

  Sys.setenv(
    AWS_ACCESS_KEY_ID = "你的AWS访问密钥ID",
    AWS_SECRET_ACCESS_KEY = "你的AWS秘密访问密钥",
    AWS_REGION = "密钥所在的AWS区域（比如us-east-1）"
  )
  

• 本地配置文件：在~/.aws/credentials（Linux/macOS）或C:\Users\<你的用户名>\.aws\credentials（Windows）中添加凭证，格式如下：

  [default]
  aws_access_key_id = 你的AWS访问密钥ID
  aws_secret_access_key = 你的AWS秘密访问密钥
  region = 密钥所在的AWS区域
  

  paws会自动读取该文件的配置，无需在脚本中重复设置。
• IAM角色：如果你的R脚本运行在EC2、ECS等AWS托管服务上，直接为实例/任务绑定具有Secrets Manager访问权限的IAM角色即可，无需手动配置凭证。

3. 获取并解析密钥内容 #

初始化Secrets Manager客户端后，即可通过密钥ID或名称获取内容：

# 初始化Secrets Manager客户端
sm_client <- secretsmanager()

# 获取指定密钥的内容（替换为你的密钥名称/ID）
secret_response <- sm_client$get_secret_value(SecretId = "my-db-credentials")

# 解析密钥（如果密钥以JSON格式存储）
library(jsonlite)
secret_data <- fromJSON(secret_response$SecretString)

# 提取具体字段，比如数据库密码
db_password <- secret_data$password

注意事项 #

• 确保你的IAM身份（用户/角色）拥有secretsmanager:GetSecretValue权限，否则会返回权限错误。
• 如果存储的是二进制密钥，需使用secret_response$SecretBinary字段，并通过base64decode()解码。
• 必须指定与密钥存储位置一致的AWS区域，否则无法找到目标密钥。

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