在EC2实例中实现Shiny应用与PostgreSQL数据库的连接

Hey there! 既然你已经在EC2上部署好了Shiny应用和PostgreSQL，而且命令行里用R能正常读取数据，那要让Shiny应用也连上数据库其实很简单，照着下面的步骤来就行：

1. 确保依赖包已安装 #

首先确认你的Shiny应用运行环境里已经装了RPostgreSQL包——如果还没装，登录EC2后在命令行的R环境里执行：

install.packages("RPostgreSQL")

2. 编写Shiny中的数据库连接代码 #

你在命令行R里能用的连接逻辑，直接移植到Shiny应用里就可以，不过要注意连接的初始化时机：建议在server函数外创建连接（或者用连接池优化多用户场景），避免每次请求都重复创建连接。示例代码如下：

library(shiny)
library(RPostgreSQL)

# 初始化PostgreSQL驱动
drv <- dbDriver("PostgreSQL")

# 建立数据库连接——完全复用你命令行里的参数
con <- dbConnect(
  drv,
  dbname = "ubuntu",
  host = "/var/run/postgresql",  # 对应你查到的socket路径
  user = "ubuntu",
  port = 5432
)

# 应用停止时自动关闭连接，避免资源泄漏
onStop(function() {
  dbDisconnect(con)
  dbUnloadDriver(drv)
})

# 你的Shiny UI
ui <- fluidPage(
  titlePanel("从PostgreSQL读取数据"),
  tableOutput("dbData")
)

# 你的Shiny Server逻辑
server <- function(input, output, session) {
  # 从数据库读取并展示数据
  output$dbData <- renderTable({
    # 替换成你实际要执行的SQL语句
    dbGetQuery(con, "SELECT * FROM your_table_name LIMIT 10;")
  })
}

shinyApp(ui, server)

3. 解决最容易踩坑的权限问题 #

这里一定要注意：默认情况下Shiny服务是用shiny用户运行的，而PostgreSQL的socket目录/var/run/postgresql可能只有ubuntu或postgres组的用户有权限访问。你需要给shiny用户添加访问权限：

• 把shiny用户加入postgres组：

sudo usermod -aG postgres shiny

• 重启Shiny服务让权限生效：

sudo systemctl restart shiny-server

4. 可选：用连接池优化多用户性能 #

如果你的Shiny应用有多个用户同时访问，频繁创建销毁数据库连接会拖慢性能，推荐用pool包来管理连接池：

library(shiny)
library(RPostgreSQL)
library(pool)

# 创建连接池
db_pool <- dbPool(
  drv = dbDriver("PostgreSQL"),
  dbname = "ubuntu",
  host = "/var/run/postgresql",
  user = "ubuntu",
  port = 5432
)

# 应用停止时关闭连接池
onStop(function() {
  poolClose(db_pool)
})

ui <- fluidPage(
  titlePanel("用连接池读取PostgreSQL数据"),
  tableOutput("pooledData")
)

server <- function(input, output, session) {
  output$pooledData <- renderTable({
    # 使用连接池中的连接执行查询
    poolWithTransaction(db_pool, function(conn) {
      dbGetQuery(conn, "SELECT * FROM your_table_name LIMIT 10;")
    })
  })
}

shinyApp(ui, server)

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