Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(shiny)
- library(DBI)
- library(RPostgreSQL)
- ui = basicPage(
- )
- server = function(input, output, session) {
- con <- dbConnect(PostgreSQL(),
- dbname = "myDB",
- host = "12.10.11.901",
- user = "user",
- password = "password")
- session$onSessionEnded(function() {
- dbDisconnect(con)
- })
- }
Add Comment
Please, Sign In to add comment