Changes to wd

devinit · May 31, 2022 · 63d875c · 63d875c
1 parent 30481d2
commit 63d875c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/.github/workflows/workflow.yml b/.github/workflows/workflow.yml
@@ -20,6 +20,7 @@ jobs:
           install.packages('dotenv')
           install.packages('httr')
           install.packages('dplyr')
+          install.packages('rstudioapi')
       - name: Run budget data script
         run: |
           source("iati_marker.R")

diff --git a/iati_marker.R b/iati_marker.R
@@ -1,10 +1,10 @@
-list.of.packages <- c("data.table","dotenv", "httr", "dplyr")
+list.of.packages <- c("data.table","dotenv", "httr", "dplyr","rstudioapi")
 new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
 if(length(new.packages)) install.packages(new.packages)
 lapply(list.of.packages, require, character.only=T)
 rm(list.of.packages,new.packages)
 
-setwd("C:/git/ukraine")
+setwd(dirname(getActiveDocumentContext()$path))
 
 # Note: You will need to create your own account at https://developer.iatistandard.org/ and create a .env file.
 
@@ -50,7 +50,7 @@ while(length(docs)==1000){
   message(length(docs))
 }
 
-filename = paste0("budgets-",Sys.Date())
+filename = paste0("budgets-",Sys.time())
 saveRDS(results_list, file=paste0(filename,".RData"))
 
 # We now have a dataset of iati-identifiers with their budget information for all budgets 2021 onwards.