paste(c(1, 2, 3, 4), collapse = "_")
paste(c(1, 2, 3, 4), collapse = "_") -> t
paste("./", t, ".csv", sep = "")
paste("seurat", c(1, 2, 3, 4), collapse = "_")
t <- c(1, 2)
paste(c("seurat", t), collapse = "_")
shiny::runApp('C:/Users/rli8/projects/ziyi/enrichment-analysis/shiny')
runApp('C:/Users/rli8/projects/ziyi/enrichment-analysis/shiny')
runApp('C:/Users/rli8/projects/ziyi/enrichment-analysis/shiny')
library(clusterProfiler)
?GSEA
remove.packages("clusterProfiler")
remove.packages("EasyCellType")
devtools::install_github("rx-li/EasyCellType")
shiny::runApp('C:/Users/rli8/projects/ziyi/enrichment-analysis/shiny')
install.packages("shinycssloaders")
runApp('C:/Users/rli8/projects/ziyi/enrichment-analysis/shiny')
runApp()
runApp('C:/Users/rli8/projects/ziyi/enrichment-analysis/shiny')
R.version
R.version
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("EasyCellType")
library(devtools)
library(devtools)
install.packages("rlang")
library(devtools)
install.packages("pkgload")
install.packages("pkgload")
install.packages("rlang")
install.packages("rlang")
install.packages("pkgload")
library(devtools)
install.packages("BiocStyle")
BiocManager::install("BiocStyle")
install.packages("org.Hs.eg.db", repos = "http://cloud.r-project.org")
library(shiny); runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
output$main <- renderPlotly({
d <- setNames(pt_data(), c("x", "Count"))
plot_ly(d) %>%
add_bars(x = ~x, y = ~Count, color = ~x) %>%
layout(title = drills()$region %||% "Patients by Region",
xaxis = list(title = ""),
yaxis = list(title = "Number of Patients"))
})
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
runApp('C:/Users/rli8/Desktop/0712.R')
imm_lonestar <- readRDS("C:/Users/rli8/projects/zhang/mehmet_pollution/TCR/imm_lonestar.rds")
View(imm_lonestar)
setwd("C:/Users/rli8/projects/ziyi/partcnv/partCNV")
devtools::load_all()
library(BiocCheck)
devtools::check()
