inst/shinyGUI/global.R

In mtrussart/CytofRUV: CytofRUV for analysing multiple CyTOF batches

library(shiny)
library(shinydashboard)
library(shinyjs)
library(ggplot2)
library(flowCore)
library(purrr)
library(CATALYST)
library(CytofRUV)
library(RColorBrewer) # Added by RMG 07/27/2022

## All Code Below Gets The Scope of the Global Environment.

# This gets the largest "meta#" term from the list of cluster_codes
cluster_var = names(metadata(daf)$cluster_codes)[length(names(metadata(daf)$cluster_codes))]

# Allows for Collapsible Boxes
collapseBox <- "shinyjs.collapse=function(id){
$('#'+id).closest('.box').not('.collapsed-box')
.find('[data-widget=collapse]').click();}"

freezeButtonsScript = "$(document).on('shiny:recalculating', function() {
    var updateButtons = document.getElementsByClassName('action-button');
    for (var i = 0; i < updateButtons.length; i++) {
      updateButtons[i].disabled = true;
    }
  });

  $(document).on('shiny:recalculated', function() {
    var updateButtons = document.getElementsByClassName('action-button');
    for (var i = 0; i < updateButtons.length; i++) {
      updateButtons[i].disabled = false;
    }
});"

source("server.R", local = TRUE)
source("ui.R")