Update file createURL.R

R/createURL.R

@@ -33,12 +33,12 @@ createURL <- function(var, date, freq, version){
   if (version == "chelsa_trace21k"){
     baseurl <- paste0("https://os.zhdk.cloud.switch.ch/chelsa01/", 
                       tolower(version),"/global/",freq,"/")
-    if (var %notin% c("orog", "glz")){
+    if (var %notin% c("orog", "glz", "scd", "swe")){
       url <- paste0(baseurl,var,"/CHELSA_TraCE21k_",var,
                     "_",format(as.Date(date),"%m"),
                     "_",format(as.Date(date),"%Y"),"_V.1.0.tif")
     }
-    if (var %in% c("orog", "glz")){
+    if (var %in% c("orog", "glz", "scd", "scd")){
       url <- paste0(baseurl,var,"/CHELSA_TraCE21k_",var,"_",
                     format(as.Date(date),"%Y"),"_V.1.0.tif")
     }