library(shiny)
library(config)
library(odbc)
library(DBI)
conn_args <- config::get("dataconnection", config = Sys.getenv("R_CONFIG_ACTIVE", "default"))
ui = fluidPage(
)
server = function(input,output,session){
con = DBI::dbConnect(odbc::odbc(), driver = conf$driver, server = conf$server,
database = conf$database, UID = conf$uid,
PWD = conf$pwd, port = conf$port)
}
shinyApp(ui, server)
with: config.yml...
default:
dataconnection:
driver: 'PostgreSQL ODBC Driver(ANSI)'
server: '127.0.0.1'
uid: 'postgres'
pwd: 'postgres'
port: 5432
database: 'arede'
rsconnect:
dataconnection:
driver: 'PostgreSQL'
server: 'myprodserver.company.com'
uid: 'prod-account'
pwd: 'prod-password'
port: 5432
database: 'prod-database'