library(shiny)
if(!require(pavian)){
options(repos = c(CRAN = "http://cran.rstudio.com"))
if (!require(remotes)) { install.packages("remotes") }
remotes::install_github("fbreitwieser/pavian")
library(pavian)
}
if (!require(Rsamtools)) {
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("Rsamtools")
}
if (!dir.exists(rappdirs::user_config_dir("pavian", expand = FALSE))) {
dir.create(rappdirs::user_config_dir("pavian", expand = FALSE),
recursive = TRUE)
}
### Option specifications
## Shiny options
# Specify the maximum web request size, which serves as a size limit for file uploads. If unset, the maximum request size defaults to 5MB
# see https://shiny.rstudio.com/reference/shiny/latest/shiny-options.html for global shiny options
# options(shiny.maxRequestSize = 50 * 1024 ^ 2) # set to 50 MB
## do not set shiny.maxRequestSize here, because it overrides user options!
## DT options
# see https://datatables.net/reference/option/
options(
DT.options = list(
pageLength = 15,
stateSave = TRUE,
searchHighlight = TRUE,
#scrollX = TRUE,
dom = 'Bfrtip',
## Define the table control elements to appear
# B - Buttons
# f - filtering input
# r - processing display element
# t - The table!
# i - Table information summary
# p - pagination control
lengthMenu = list(c(15, 25, 50, 100), c('15', '25', '50', '100')),
search = list(regex = TRUE, caseInsensitive = TRUE)
)
)
shiny::shinyApp(pavian::dashboardUI, pavian::pavianServer, enableBookmarking="server")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.