我不知道这是否是一个错误的配置设置我正在测试连接到不同的数据库网络设置。
虽然我正在测试设置，我希望应用程序能够运行三种不同的设置：
1.我在本地机器上的开发版本。
1.在使用Docker网络的部署空间上的独立Docker容器上。
1.在使用主机网络的部署空间中

1. 2/3，但在shinyproxy容器设置中
   这些都有稍微不同的设置，但当我测试这些连接设置中的哪一个时。前三个工作，但2和3不工作。
   此外，2，3，和4共享相同的.Renviron文件，因为我希望能够创建设置，并让它使用第一个工作根据优先顺序的设置。这将使移交更容易，因为他们可以选择如何安全，使它。
   我正在使用RPostgres进行连接。
   我希望能够为每个设置使用相同的应用程序代码，但能够以不同的方式命名环境变量，以便为部署留下两个连接选项。
   这是我的计划，但似乎冗长。
   首先，使用不同的凭据测试所有连接，并将true false赋给一个变量。代码是从https://github.com/brry/berryFunctions/blob/master/R/is.error.R窃取的，用于错误测试。

admin_connect_error <-
  inherits(try(dbConnect(
    drv = RPostgres::Postgres(),
    dbname = Sys.getenv("ADMINDBNAME"),
    host = Sys.getenv("ADMINHOSTNAME"),
    port = Sys.getenv("ADMINPORTNAME"),
    user = Sys.getenv("ADMINUSERNAME"),
    password = Sys.getenv("ADMINPASSNAME")
  ),
  silent = TRUE)
  ,
  "try-error")

fake_connect_error <-
  inherits(try(dbConnect(
    drv = RPostgres::Postgres(),
    dbname = "db_name",
    host = "host_name",
    port = "port_name",
    user = "user_name",
    password = "pass_name"
  ),
  silent = TRUE)
  ,
  "try-error")

local_connect_error <-
  inherits(tryCatch(
    dbConnect(
      drv = RPostgres::Postgres(),
      dbname = Sys.getenv("USERDBNAME"),
      host = Sys.getenv("LOCHOSTNAME"),
      port = Sys.getenv("LOCPORTNAME"),
      user = Sys.getenv("USERUSERNAME"),
      password = Sys.getenv("USERPASSNAME")
    ),
    silent = TRUE
  ),
  "try-error")

docker_connect_error <-
  inherits(try(dbConnect(
    drv = RPostgres::Postgres(),
    dbname = Sys.getenv("USERDBNAME"),
    host = Sys.getenv("DOCKHOSTNAME"),
    port = Sys.getenv("DOCKPORTNAME"),
    user = Sys.getenv("USERUSERNAME"),
    password = Sys.getenv("USERPASSNAME")
  ),
  silent = TRUE)
  ,
  "try-error")

其次，检查哪些是正确的，并使用它来设置应用程序要使用的dbPool。

if (local_connect_error == F) {
  print("connection on local machine as host network")
  
  pool <- dbPool(
    drv = RPostgres::Postgres(),
    dbname =  Sys.getenv("USERDBNAME"),
    user = Sys.getenv("USERUSERNAME"),
    password = Sys.getenv("USERPASSNAME"),
    host =  Sys.getenv("LOCHOSTNAME"),
    port = Sys.getenv("LOCPORTNAME")
  )
  
} else if (docker_connect_error == F) {
  print("Connecting on docker network")
  
  pool <- dbPool(
    drv = RPostgres::Postgres(),
    dbname = Sys.getenv("USERDBNAME"),
    host = Sys.getenv("DOCKHOSTNAME"),
    port = Sys.getenv("DOCKPORTNAME"),
    user = Sys.getenv("USERUSERNAME"),
    password = Sys.getenv("USERPASSNAME")
  )
} else if (fake_connect_error == F) {
  print("connection on fake local machine as fake host network")
  
  pool <- dbConnect(
    drv = RPostgres::Postgres(),
    dbname = "db_name",
    host = "host_name",
    port = "port_name",
    user = "user_name",
    password = "pass_name"
  )
  
} else if (admin_connect_error == F) {
  print("connection on admin machine as host admin")
  
  pool <- dbConnect(
    drv = RPostgres::Postgres(),
    dbname = Sys.getenv("ADMINDBNAME"),
    host = Sys.getenv("ADMINHOSTNAME"),
    port = Sys.getenv("ADMINPORTNAME"),
    user = Sys.getenv("ADMINUSERNAME"),
    password = Sys.getenv("ADMINPASSNAME")
  )
  
}else{
  print("DB connection options not working - please debug")
}

这似乎很冗长，有更好的办法吗？