增加与 DBI 的连接尝试

Question

我正在尝试构建一个闪亮的应用程序，它将使用 DBI 连接到一个不稳定的 PostgreSQL 数据库。当数据库稳定时它可以正常工作，但只要数据库变慢或暂时停止，就会出现 Whitelabel Error。如何配置我的应用程序，使其在抛出错误之前继续尝试连接多次？示例代码如下：

library(shiny)
library(DBI)

con <- dbConnect(
  RPostgres::Postgres(),
  host = "myip",
  port = "myport",
  dbname = "mydb",
  user = "user",
  password = "password"
)

ui <- fluidPage(
  tableOutput("mytable")
)

server <- function(input, output, session){
  output$mytable <- renderTable(
    dbGetQuery(
      con,
      "select * from mytable;"
    )
  )
}

shinyApp(ui, server)

Answer 1

我们可以按照@r2evans 的建议尝试purrr::insistently() 和rate_backoff，以重试查询在每次之间等待更长的时间，在这种情况下最多为4。

library(shiny)
library(DBI)
library(purrr)

con <- dbConnect(
  RPostgres::Postgres(),
  host = "myip",
  port = "myport",
  dbname = "mydb",
  user = "user",
  password = "password"
)

my_rate <- rate_backoff(
  pause_base = 1,
  pause_cap = 60,
  pause_min = 1,
  max_times = 4,
  jitter = FALSE
)


ui <- fluidPage(
  tableOutput("mytable")
)

server <- function(input, output, session) {
  output$mytable <- renderTable(
    insistently(~
    dbGetQuery(
      con,
      "select * from mytable;"
    ), rate = my_rate, quiet = FALSE)()
  )
}

shinyApp(ui, server)