In ComputationalProteomics/OmicLoupe: OmicLoupe: Taking a closer look at omics

input <- params$input
error_check <- function(func) {
    tryCatch({
        func()
    },
    error=function(e) {
        print("An error was encountered. Please sure the plots are showing up correctly in OmicLoupe before export.")
        print("If not helping, please contact the developers for further support")
        print("Error message: ")
        print(e)
    })
}

Plots

Correlation

error_check(params$make_correlation_plot)

Settings

library(dplyr)
library(DT)
library(shiny)

Tab settings

Current tab

settings_df <- params$input %>% 
    reactiveValuesToList() %>%
    unlist() %>%
    data.frame() %>%
    rownames_to_column() %>%
    `colnames<-`(c("Name", "Value"))
DT::datatable(settings_df)

Setup tab

setup_settings_df <- params$setup_input %>%
    reactiveValuesToList() %>%
    unlist() %>%
    data.frame() %>%
    rownames_to_column() %>%
    `colnames<-`(c("Name", "Value"))
DT::datatable(setup_settings_df)

Environment

sessionInfo()

ComputationalProteomics/OmicLoupe documentation built on Feb. 12, 2023, 3:57 p.m.