tidy up and re-organise sub-projects

panukatan · Apr 17, 2024 · 982abc7 · 982abc7
1 parent 5f50f4a
commit 982abc7
Show file tree

Hide file tree

Showing 6 changed files with 18 additions and 16 deletions.
diff --git a/R/pagasa_heat_index.R b/R/pagasa_heat_index.R
@@ -48,7 +48,6 @@ heat_index_get_image_urls <- function(.url = "https://pubfiles.pagasa.dost.gov.p
 #' 
 #' @export
 #'
-#'
 
 heat_index_download_image_files <- function(heat_index_url,
                                             .date,

diff --git a/_targets.R b/_targets.R
@@ -1,12 +1,12 @@
 ################################################################################
 #
-# General Targets Workflow
+# Overall targets workflow for PAGASA data processing and archiving
 #
 ################################################################################
 
-## Load libraries and custom functions -----------------------------------------
-suppressPackageStartupMessages(source("packages.R"))
-for (f in list.files(here::here("R"), full.names = TRUE)) source (f)
+## Setup workflow using project-wide settings ----------------------------------
+source("_targets_setup")
+
 
 ## Create targets and list targets objects -------------------------------------
 

diff --git a/_targets_climate.R b/_targets_climate.R
@@ -1,12 +1,11 @@
 ################################################################################
 #
-# General Targets Workflow
+# Targets workflow for climate data download, extraction, and processing
 #
 ################################################################################
 
-## Load libraries and custom functions -----------------------------------------
-suppressPackageStartupMessages(source("packages.R"))
-for (f in list.files(here::here("R"), full.names = TRUE)) source (f)
+## Setup workflow using project-wide settings ----------------------------------
+source("_targets_setup")
 
 
 ## Download targets ------------------------------------------------------------

diff --git a/_targets_cyclones.R b/_targets_cyclones.R
@@ -4,9 +4,8 @@
 #
 ################################################################################
 
-## Load libraries and custom functions -----------------------------------------
-suppressPackageStartupMessages(source("packages.R"))
-for (f in list.files(here::here("R"), full.names = TRUE)) source (f)
+## Setup workflow using project-wide settings ----------------------------------
+source("_targets_setup")
 
 
 ## Download targets ------------------------------------------------------------

diff --git a/_targets_heat.R b/_targets_heat.R
@@ -1,12 +1,12 @@
 ################################################################################
 #
-# General Targets Workflow
+# Targets workflow for heat index data download, extraction, and processing
 #
 ################################################################################
 
-## Load libraries and custom functions -----------------------------------------
-suppressPackageStartupMessages(source("packages.R"))
-for (f in list.files(here::here("R"), full.names = TRUE)) source (f)
+## Setup workflow using project-wide settings ----------------------------------
+source("_targets_setup")
+
 
 ## Create targets and list targets objects -------------------------------------
 

diff --git a/_targets_setup.R b/_targets_setup.R
@@ -0,0 +1,5 @@
+# Project-wide targets workflow setup ------------------------------------------
+
+## Load libraries and custom functions -----------------------------------------
+suppressPackageStartupMessages(source("packages.R"))
+for (f in list.files(here::here("R"), full.names = TRUE)) source (f)
-Original file line number
+Diff line change
@@ Expand Up @@
     #'
     #' @export
     #'
-    #'
     heat_index_download_image_files <- function(heat_index_url,
                                                 .date,
@@ Expand Down @@