organizing code

ipeaGIT · Oct 11, 2024 · b594fde · b594fde
1 parent f036670
commit b594fde
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/R/read_aircrafts.R b/R/read_aircrafts.R
@@ -53,9 +53,6 @@ read_aircrafts <- function(date = 202001,
   # check if download failed
   if (is.null(dt)) { return(invisible(NULL)) }
 
-  # convert columns to numeric
-  convert_to_numeric(dt)
-
   # clean names
   nnn <- names(dt)
   data.table::setnames(
@@ -64,5 +61,8 @@ read_aircrafts <- function(date = 202001,
     new = janitor::make_clean_names(nnn)
     )
 
+  # convert columns to numeric
+  convert_to_numeric(dt)
+
   return(dt)
 }
diff --git a/R/read_airport_movements.R b/R/read_airport_movements.R
@@ -56,9 +56,6 @@ read_airport_movements <- function(date = 202001,
   # check if download failed
   if (is.null(dt)) { return(invisible(NULL)) }
 
-  # convert columns to numeric
-  convert_to_numeric(dt)
-
   # clean names
   nnn <- names(dt)
   data.table::setnames(
@@ -67,5 +64,8 @@ read_airport_movements <- function(date = 202001,
     new = janitor::make_clean_names(nnn)
   )
 
+  # convert columns to numeric
+  convert_to_numeric(dt)
+
   return(dt)
 }
diff --git a/R/read_flights.R b/R/read_flights.R
@@ -72,9 +72,6 @@ read_flights <- function(date = 202001,
   # row bind data tables
   dt <- data.table::rbindlist(dt_list, fill = TRUE)
 
-  # convert columns to numeric
-  convert_to_numeric(dt)
-
   # clean names
   nnn <- names(dt)
   data.table::setnames(
@@ -83,6 +80,9 @@ read_flights <- function(date = 202001,
     new = janitor::make_clean_names(nnn)
   )
 
+  # convert columns to numeric
+  convert_to_numeric(dt)
+
   return(dt)
 }