andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 09:59:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

passing additional arguments and applying pagination

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-20 12:54:09 +01:00
parent 96227d5006
commit f9c585a5fe
No known key found for this signature in database
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/data-summary.R
View file

@ -12,10 +12,11 @@ data_summary_ui <- function(id) {
} }
#' @param id id #'
#' @param data data #' @param data data
#' @param color.main main color #' @param color.main main color
#' @param color.sec secondary color #' @param color.sec secondary color
#' @param ... arguments passed to toastui::datagrid
#' #'
#' @name data-summary #' @name data-summary
#' @returns shiny server module #' @returns shiny server module
@ -23,7 +24,8 @@ data_summary_ui <- function(id) {
data_summary_server <- function(id, data_summary_server <- function(id,
data, data,
color.main, color.main,
color.sec) { color.sec,
...) {
shiny::moduleServer( shiny::moduleServer(
id = id, id = id,
module = function(input, output, session) { module = function(input, output, session) {

3
inst/apps/data_analysis_modules/server.R
View file

@ -173,7 +173,8 @@ server <- function(input, output, session) {
rv$data_filtered rv$data_filtered
}), }),
color.main = "#2A004E", color.main = "#2A004E",
color.sec = "#C62300" color.sec = "#C62300",
pagination = 20
) )
######### #########