Commit 4ff24b78 authored by alexung3r's avatar alexung3r
Browse files

changes

parent d6e415e2

02_code/R/api/4a.R

+1 −1
Original line number Diff line number Diff line
@@ -51,7 +51,7 @@ get_active_jobs_on_date <- function(df, date) { 
  return(filtered_df)

}



# Usage

# Usage (the path might have to be changed)

all_active_jobs <- filter_active_jobs("/Users/alexanderunger/Desktop/AIDAHO_IDS_THAS/01_data/downloads")

jobs_on_date <- get_active_jobs_on_date(all_active_jobs, '2024-06-07')

02_code/R/api/docker_script.R

+2 −2
Original line number Diff line number Diff line
@@ -107,7 +107,7 @@ get_active_jobs <- function(subfolder) { 
  return(current_jobs$refnr)  # Return only active job IDs

}





#This might be changed to the new working directory

active_ids <- get_active_jobs("/Users/alexanderunger/Desktop/AIDAHO_IDS_THAS/01_data/downloads")



# It gives a fail message when there is an actual up to date dataset or no dataset at all
@@ -144,6 +144,6 @@ conditional_save_downloads <- function(subfolder, jobs, refid_active_jobs = NULL 
}







#once again the path might be changed

conditional_save_downloads("/Users/alexanderunger/Desktop/AIDAHO_IDS_THAS/01_data/downloads", result_df, active_ids, "daten")