# 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)
)
))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.