Commit 7aba6446 authored by Simon CHEVOLLEAU's avatar Simon CHEVOLLEAU 💻
Browse files

Update

parent 83b96f73
......@@ -237,7 +237,7 @@ umapAllKit <- function(umapAll, merged_cell_annotation, annot, colorScale = FALS
return(plot)
}
umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", sampleAnnot, main, violin_plot = FALSE, pointSize = 3, colorScale = c("white","yellow","red","purple")){
umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", sampleAnnot, main, violin_plot = FALSE, pointSize = 3, ...){
#' Plot UMAP with numeric variable
#'
#' @description WRAPPER
......@@ -390,7 +390,7 @@ getColors <- function() {
return(colors_list)
}
plotCompressedUmapExpr <- function(dir_path, pdf_path, names_list, correctedAll, umapAll, merged_cell_annotation, annot = "res.0.75", dataset = "Dataset", pointSize=2, nrow = 3, ncol = 3, colorScale = colorScale=c("white","yellow","red","purple")) {
plotCompressedUmapExpr <- function(dir_path, pdf_path, names_list, correctedAll, umapAll, merged_cell_annotation, annot = "res.0.75", dataset = "Dataset", pointSize=2, nrow = 3, ncol = 3, ...) {
plot_list_compressed <- list()
plot_list <- list()
for (marker in names_list){
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment