update removing the error while downloading on non-windows machines

R/auxiliary.R

@@ -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."))
   #   }