Dim_reductionUI: Perform dimensionality reduction using t-SNE or UMAP

In VoisinneG/flowR: R-shiny interface for the analysis of flow cytometry data

Description

Perform dimensionality reduction using t-SNE or UMAP

Dim_reduction module server function

Usage

Dim_reductionUI(id)

Dim_reduction(input, output, session, rval)

Arguments

id	shiny id
input	shiny input
output	shiny output
session	shiny session
rval	A reactive values object

Value

The updated reactiveValues object rval

Examples

## Not run: 
library(shiny)
library(shinydashboard)
library(flowWorkspace)
library(flowCore)

if (interactive()){

  ui <- dashboardPage(
    dashboardHeader(title = "Dim_reduction"),
    sidebar = dashboardSidebar(disable = TRUE),
    body = dashboardBody(
      Dim_reductionUI("module")
    )
  )

  server <- function(input, output, session) {

    rval <- reactiveValues()

    observe({
      utils::data("GvHD", package = "flowCore")
      gs <- GatingSet(GvHD)
      transformation <- lapply(colnames(GvHD), function(x){logicle_trans()} )
      names(transformation) <- colnames(GvHD)
      print(transformation)
      gs@transformation <- transformation
      rval$gating_set <- gs
    })

    rval <- callModule(Dim_reduction, "module", rval = rval)

  }

  shinyApp(ui, server)

}

## End(Not run)

VoisinneG/flowR documentation built on June 1, 2021, 6:42 p.m.