Skip to content
Snippets Groups Projects
Commit 2b6f62a2 authored by Jentsch, Helge's avatar Jentsch, Helge
Browse files

Merge branch '0.1.7' into 'master'

update removing the error while downloading on non-windows machines

See merge request helgejentsch/climdatdownloadr!39
parents c7d2c77b 4696fe11
No related branches found
No related tags found
No related merge requests found
......@@ -592,7 +592,11 @@ getDownloadSize <- function(URLVector){
filesizes <- sum(filesizes,fileISize)
# return(Downloadsize)
}
if(Sys.info()[names(Sys.info()) == "sysname"] == "Windows"){
availDiscSpaceMB <- as.numeric(stringr::str_remove(base::system("wmic logicaldisk get freespace", inter=TRUE)[2], pattern = " \r"))/1024/1024
}
# else if(Sys.info()[names(Sys.info()) == "sysname"] != "Windows"){
# }
# if(availDiscSpaceMB < round(filesizes*0.000001, 2)){
# print(paste0(round(filesizes*0.000001, 2),"MB will be downloaded. These is only ", availDiscSpaceMB, "MB available. Please consider another download location."))
# }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment