inst/shiny/base-features/server.R

In daqana/dqshiny: Enhance Shiny Apps with Customizable Modules

# Define server logic
library(shiny)
library(dqshiny)
library(rhandsontable)

shinyServer(
  function(input, output, session) {
    # initial data
    cars <- reactiveVal(datasets::mtcars)

    # render data to handsontable
    dq_render_handsontable(
      "cars", cars, reset = FALSE, filters = c(NA, "Auto"),
      page_size = 16L, sorting = c(dir = "up", col = "hp"), columns = -(1:2),
      table_param = list(rowHeaders = NULL)
    )

    # render data summary automatically in sync with user inputs
    output$table <- renderUI(dq_htmltable(
      as.data.frame.matrix(summary(cars())), align = "r", borders = "tex")
    )

    output$code <- renderUI(fluidRow(
      column(
        6, tags$label("ui.R"),
        tags$textarea(paste0(readLines("ui.R"), collapse = "\n"), readonly = TRUE)
      ),
      column(
        6, tags$label("server.R"),
        tags$textarea(paste0(readLines("server.R"), collapse = "\n"), readonly = TRUE)
      )
    ))
  }
)