Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(shiny)
- library(DBI)
- library(RPostgreSQL)
- library(DT)
- library(plotly)
- library(rjson)
- library(pool)
- library(dplyr)
- library(dbplyr)
- library(rpivotTable)
- ui <- fluidPage(
- ##DEBUGGING##
- tableOutput("tbl"),
- rpivotTable(Titanic),
- ### sql & rpivottable attempts ###
- rpivotTable("OverallPivot"),
- rpivotTableOutput("tbl2"),
- output$pivtbl2 <- renderRpivotTable(rpivotTable(data = DataSet,
- aggregatorName = "Sum",
- vals = "Count",
- cols = "order_date",
- rows = "product_id",
- menuLimit = 1200,
- rendererName = "Line Chart"))
- )
- server <- function(input, output, session) {
- ###DEBUGGING SERVER
- output$tbl <- renderTable({
- conn <- dbConnect(
- drv = dbDriver("PostgreSQL"),
- dbname = "store",
- host = "localhost",
- user = "postgres",
- password = "123456")
- on.exit(dbDisconnect(conn), add = TRUE)
- dbGetQuery(conn, paste0(
- "SELECT * FROM orders;"))
- })
- ###Attempted sql & rpivotTable attempts SERVER
- OverallPivot <- renderRpivotTable({ conn <- dbConnect(
- drv = dbDriver("PostgreSQL"),
- dbname = "store",
- host = "localhost",
- user = "postgres",
- password = "123456")
- on.exit(dbDisconnect(conn), add = TRUE)
- dbGetQuery(conn, paste0(
- "SELECT * FROM orders;"))
- })
- DataSet <- renderRpivotTable({ conn <- dbConnect(
- drv = dbDriver("PostgreSQL"),
- dbname = "store",
- host = "localhost",
- user = "postgres",
- password = "123456")
- on.exit(dbDisconnect(conn), add = TRUE)
- dbGetQuery(conn, paste0(
- "SELECT * FROM orders;"))
- })
- tbl2 <- renderRpivotTable({
- conn <- dbConnect(
- drv = dbDriver("PostgreSQL"),
- dbname = "store",
- host = "localhost",
- user = "postgres",
- password = "123456")
- on.exit(dbDisconnect(conn), add = TRUE)
- dbGetQuery(conn, paste0(
- "SELECT * FROM orders;"))
- })
- }
- shinyApp(ui, server)
Add Comment
Please, Sign In to add comment