inst/ProstarApp/dev/test_mod_filtering_example.R

In samWieczorek/Prostar: Provides a GUI for DAPAR

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)