# GPL_Download.R GPL平台文件下载
工程文件目录:
项目文件目录:
rm(list = ls())
gc()
options(stringsAsFactors = F)
options(timeout=200000)
## 加载自定义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','magrittr'))
inputPath <- "./0_GEO/1_GPL_Download/1_Input/"
outputPath <- "./0_GEO/1_GPL_Download/2_Output/"
GPL_NO <- read.delim(paste0(inputPath, "GPL_NO.txt"), header &