library(shiny)
library(DT)
library(MSnbase)
library(DAPAR)
library(shinyBS)
library(shinyjqui)
utils::data(Exp1_R25_pept, package='DAPARdata')
obj <- Exp1_R25_pept
DT_pagelength <- 15
ui <- fluidPage(
mod_filtering_example_ui('example')
)
server <- function(input, output, session) {
rv <- reactiveValues(
widgets = list(
filtering = list(
MetacellTag = "missing",
MetacellFilters = "AllCond",
KeepRemove = 'delete',
metacell_value_th = 1,
choose_metacell_percent_th = 0,
metacell_value_percent = 0,
val_vs_percent = 'Value',
metacellFilter_operator = '>'
)
)
)
mod_filtering_example_server(id = 'example',
obj = reactive({obj[1:10,]}),
indices = reactive({1:4}),
params = reactive({rv$widgets$filtering}),
txt = reactive({paste0('Query:', "query")})
)
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.