library(pool)
library(tidyverse)
# 建立数据库连接池
pool <- dbPool(
drv = RMySQL::MySQL(),
dbname = "shinydemo",
host = "shiny-demo.csa7qlmguqrf.us-east-1.rds.amazonaws.com",
username = "guest",
password = "guest"
)
# 取数
pool %>% tbl("City") %>% filter(ID == 6) %>% collect()
详见