Commit f9683885 authored by Rauschenberger's avatar Rauschenberger
Browse files

automation

parent db8d7591
...@@ -199,9 +199,7 @@ get.snps.bbmri <- function(chr,biobank=NULL,path=getwd(),size=500*10^3){ ...@@ -199,9 +199,7 @@ get.snps.bbmri <- function(chr,biobank=NULL,path=getwd(),size=500*10^3){
# Remove temporary files. # Remove temporary files.
for(j in seq_along(study)){ for(j in seq_along(study)){
file1 <- paste0(study[j],".chr",chr,".dose.vcf.gz") file.remove(file.path(path1,paste0(study[j],".chr",chr,".dose.vcf")))
file2 <- paste0(study[j],".chr",chr,".dose.vcf")
file.remove(file.path(path1,c(file1,file2)))
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment