This is the most important section. We will use the teal::init() function to create an app. The data will be handed over using teal.data::teal_data(). The app itself will be constructed by multiple calls of tm_data_table() using different combinations of data sets.
# configuration for the two-datasets example
mod1 <- tm_data_table(
label = "Two datasets",
variables_selected = list(
ADSL = c("STUDYID", "USUBJID", "SUBJID", "SITEID", "AGE", "SEX"),
ADTTE = c(
"STUDYID", "USUBJID", "SUBJID", "SITEID",
"PARAM", "PARAMCD", "ARM", "ARMCD", "AVAL", "CNSR"
)
)
)
# configuration for the subsetting or changing order of datasets
mod2 <- tm_data_table(
label = "Datasets order",
variables_selected = list(
ADSL = c("STUDYID", "USUBJID", "SUBJID", "SITEID", "AGE", "SEX"),
ADLB = c(
"STUDYID", "USUBJID", "SUBJID", "SITEID",
"PARAM", "PARAMCD", "AVISIT", "AVISITN", "AVAL", "CHG"
)
),
datanames = c("ADTTE", "ADLB", "ADSL")
)
# configuration for the advanced usage of DT options and extensions
mod3 <- tm_data_table(
label = "Advanced DT usage",
dt_args = list(extensions = c("Buttons", "ColReorder", "FixedHeader")),
dt_options = list(
searching = FALSE,
pageLength = 30,
lengthMenu = c(5, 15, 25, 50, 100),
scrollX = FALSE,
dom = "lBrtip",
buttons = c("copy", "csv", "excel", "pdf", "print"),
colReorder = TRUE,
fixedHeader = TRUE
)
)
# initialize the app
app <- init(
data = data,
modules = modules(
mod1,
mod2,
mod3
)
)RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4