inst/extdata/examples/ex_mod_ds_metacell.R

In samWieczorek/Dapar2: Tools for the Differential Analysis of Proteins Abundance with R

library(highcharter)
library(shinyBS)
library(shiny)
library(DaparViz)

ui <- fluidPage(
  mod_ds_metacell_ui('test')
)

server <- function(input, output) {
  data(Exp1_R25_pept, package='DaparToolshedData')
  vList <- convert2viz(Exp1_R25_pept)
  vData <- vList@ll.vizData[[1]]
  
  rv <- reactiveValues(
    tags = NULL
  )
  #pattern <- c('Missing POV', 'Missing MEC')
   pattern <- NULL
   
  observe({
    rv$tags <- mod_ds_metacell_server('test',
                           vizData = reactive({vData}),
                           pal = reactive({NULL}),
                           pattern = reactive({pattern}),
                           showSelect = reactive({is.null(pattern)})
    )
  })
  
}

if (interactive())
  shinyApp(ui = ui, server = server)