fix Google Drive retrieval

Author: sigven

R/sysdata.rda

@@ -217,7 +217,7 @@ biomarkers[['metadata']] <- metadata$biomarkers
 #  substr(as.character(packageVersion("pharmOncoX")),1,4),
 #  as.character(as.integer(substr(as.character(packageVersion("pharmOncoX")),5,5)) + 1))
 
-version_bump <- "2.1.9"
+version_bump <- "2.2.0"
 
 db <- list()
 db[['biomarkers']] <- biomarkers
@@ -258,7 +258,7 @@ for(elem in c('biomarkers',
 
   (gd_records[[elem]] <- googledrive::drive_upload(
     media = local_rds_fpath,
-    path = paste0("129Uf8-Z4f5ElxzX6vv14L1PpJh6xOSnE", elem, "_v", version_bump,".rds")
+    path = paste0("pharmOncoX/", elem, "_v", version_bump,".rds")
   ))
 
   google_rec_df <-