rstudio后台运行命令

有些命令想要在rstudio的后台而不是一直丢在前台console那里就可以用这个包,这样就可以做其他事情

install.packages("job")
remotes::install_github("lindeloev/job")

image.png

最简单方式

job::job({
  foo = 10
  bar = rnorm(5)
})

经典方式

# Do light processing in the main session
### install.packages("brms")
library(brms)
data = mtcars[mtcars$hp > 100, ]
model1 = mpg ~ hp * wt
model2 = mpg ~ hp + wt

# Send long-running code to job(s).
job::job({
  fit1 = brm(model1, data)
})
job::job({
  fit2 = brm(model2, data)
})

# Continue working in your console
cat("I'm free now! Thank you.
    Sincerely, Console.")

用在安装依赖又长又多的R包是最好的啦

job::job({
  
  BiocManager::install("clusterProfiler")
})


job::job({
if(! require("devtools")) install.packages("devtools")
if(! require("reshape2")) install.packages("reshape2")
if(! require("ggplot2")) install.packages("ggplot2")
if(! require("pheatmap")) install.packages("pheatmap")
if(! require("ggfortify")) install.packages("ggfortify")
if(! require("stringr")) install.packages("stringr")
if(! require("survival")) install.packages("survival")
if(! require("survminer")) install.packages("survminer")
if(! require("lars")) install.packages("lars")
if(! require("glmnet")) install.packages("glmnet")
if(! require("timeROC")) install.packages("timeROC")
if(! require("ggpubr")) install.packages("ggpubr")
if(! require("randomForest")) install.packages("randomForest")
if(! require("ROCR")) install.packages("ROCR") 
if(! require("Hmisc")) install.packages("Hmisc")
if(! require("caret")) install.packages("caret")
# if(! require("genefilter")) install.packages("genefilter")
if(! require("ggstatsplot")) install.packages("ggstatsplot")
if(! require("Seurat")) install.packages("Seurat")
if(! require("SeuratObject")) install.packages("SeuratObject")


if(! require("tableone")) install.packages("tableone")

if(! require("rJava")) install.packages("rJava")
if(require('rJava')){
  # https://cran.r-project.org/src/contrib/Archive/ReporteRs/
  if(! require("ReporteRs")) install.packages("ReporteRs")
  devtools::install_github('davidgohel/ReporteRsjars')
  devtools::install_github('davidgohel/ReporteRs')
}
library(devtools) 


library('BiocInstaller')
if(! require('edgeR')){
  BiocManager::install(c('airway','DESeq2','edgeR','limma'))
}
if(! require("CLL")) BiocManager::install("CLL")
if(! require("org.Hs.eg.db")) BiocManager::installe('org.Hs.eg.db')
library(BiocInstaller)

if(! require("maftools")) BiocManager::install("maftools")
if(! require("RTCGA")) BiocManager::install("RTCGA")
if(! require("RTCGA.clinical")) BiocManager::install("RTCGA.clinical")

if(! require("RTCGA.miRNASeq")) BiocManager::install("RTCGA.miRNASeq")
if(! require("maftools")) BiocManager::install("maftools")
if(! require("genefilter")) BiocManager::install("genefilter")
})

image.png

lindeloev/job: job: free Your RStudio Console (github.com)