如何在R脚本中同时生成R文件并运行它

我试图在另一个r脚本中同时生成源代码并运行r脚本

library(randomForest) 
path.name = "D:/Courses/Bioinformatics Diploma/Statistical Analysis and Visualization/Assignments/Assignment 1/Assignment_01_Data.csv"
GE_Data_Modification.R = read.table(path.name, sep = ',', header = T, row.names = 1)
GE_Data_Modification.R = as.data.frame(t(GE_Data_Modification.R)) 
GE_Data_Modification.R = na.roughfix(GE_Data_Modification.R) 
GE_Data_Modification.R = as.data.frame(t(GE_Data_Modification.R))
source("E:/Stat/Lectures/GE_Data_Modification.R")
GE_Mean = apply(GE_Data_Modification.R, 2, mean) 
GE_SD = apply(GE_Data_Modification.R, 2, sd) 
GE_Data_Normalization.R = t(t(GE_Data_Modification.R[,1:ncol(GE_Data_Modification.R)])-GE_Mean) 
GE_Data_Normalization.R = t(t(GE_Data_Modification.R[,1:ncol(GE_Data_Modification.R)])/GE_SD)

---

您可以使用rstudio作业来避免锁定控制台

library(randomForest) 
path.name = "D:/Courses/Bioinformatics Diploma/Statistical Analysis and Visualization/Assignments/Assignment 1/Assignment_01_Data.csv"
GE_Data_Modification.R = read.table(path.name, sep = ',', header = T, row.names = 1)
GE_Data_Modification.R = as.data.frame(t(GE_Data_Modification.R)) 
GE_Data_Modification.R = na.roughfix(GE_Data_Modification.R) 
GE_Data_Modification.R = as.data.frame(t(GE_Data_Modification.R))
rstudioapi::jobRunScript("E:/Stat/Lectures/GE_Data_Modification.R")
GE_Mean = apply(GE_Data_Modification.R, 2, mean) 
GE_SD = apply(GE_Data_Modification.R, 2, sd) 
GE_Data_Normalization.R = t(t(GE_Data_Modification.R[,1:ncol(GE_Data_Modification.R)])-GE_Mean) 
GE_Data_Normalization.R = t(t(GE_Data_Modification.R[,1:ncol(GE_Data_Modification.R)])/GE_SD)