# GSE_Download_Url.R GSE下载地址转换
根据GSE文件名,生成GSE下载地址,可以使用迅雷进行批量下载;
工程目录文件:
项目目录文件:
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_Array/1_Input/"
outputPath <- "./0_GEO/0_GSE_Download_Array/2_Output/"
GSE_NO <- read.delim(paste0(inputPath, "GSE_NO.txt"), head