高通量数据下载 high throughput sequencing
工程文件目录:
项目文件目录:
rm(list = ls())
gc()
options(stringsAsFactors = F)
## 加载自定义R包
source("./R_Function/R_Packages_Manage.R",encoding="utf-8")
pkgs_in(c('rentrez', 'tidyverse', 'purrr','readr','ggplot2','ggpubr','readxl','AnnoProbe','GEOquery', 'httr', 'XML'))
inputPath <- "./0_GEO/0_GSE_Download_HTS/1_Input/"
outputPath <- "./0_GEO/0_GSE_Download_HTS/2_Output/"
SRA_NO <- read.delim(paste0(inputPath, "SRA_NO.txt"), header = FALSE, stringsAsFactors = FAL