R语言 高通量数据下载（HTS）

高通量数据下载 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