#'
#'
filter_proportion_mt.ui <- function(id, label='Proportion Mt', seurat) {
value <- seurat$proportion_mt_values_max %>% add(0.05) %>% round(digits=1)
# make ui elements
div(tags$h6('Maximum', style='display: inline;'),
numericInput(inputId=NS(id, 'max_percent_mt'), label=NULL, value=value, min=0, max=value, step=0.1, width='100%')) -> high_ui
# return ui element(s)
tagList(tags$label(label), br(), high_ui)
}
#'
#'
filter_proportion_mt.server <- function(input, output, session, seurat, cell_filtering, linked_density_plot) {
filtering <- reactiveValues()
# react to the input elements
## max proportion mitochondrial umi
observeEvent(eventExpr=input$max_percent_mt, ignoreInit=TRUE, handlerExpr={
# update the reactive
value <- input$max_percent_mt
if(value != sprintf(fmt='%.1f', value)) # if the value is not already 1dp formatted, reformat it
value %<>% add(0.05) %>% round(digits=1)
cell_filtering$proportion_mt_max <- value
filtering$max <- value})
# react to the cell filtering parameter being changed eg by the brush
## max proportion mitochondrial umi
observeEvent(eventExpr=linked_density_plot$max, handlerExpr={
req(input$max_percent_mt)
high <- linked_density_plot$max
if(high != sprintf(fmt='%.1f', high)) # if the value is not already 1dp formatted, reformat it
high <- linked_density_plot$max %>% add(0.05) %>% round(digits=1)
if(high != input$max_percent_mt)
updateNumericInput(session=session, inputId='max_percent_mt', value=high)})
# react to a new seurat being loaded
observe(label='filter_proportion_mt/variable', x={
filtering$variable <- seurat$proportion_mt_variable})
observe(label='filter_proportion_mt/value', x={
filtering$max <- seurat$proportion_mt_values_max %>% add(0.05) %>% round(digits=1)})
# return the reactiveValues
return(filtering)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.