♻️ Refactor

Author: Ciencia de Datos • GECI

R/cli.R

@@ -109,7 +109,7 @@ plot_individual_kernels <- function(options) {
 write_trips_summary <- function(options) {
   config_content <- read_config(options[["config-path"]])
   readr::read_csv(options[["data-path"]], show_col_types = FALSE) |>
-    get_summary_of_trips(config_content) |>
+    xxget_summary_of_trips(config_content) |>
     readr::write_csv(options[["output-path"]])
 }
 

tests/testthat/test_cli.R

@@ -55,7 +55,8 @@ describe("plot map of individuals KDE", {
 describe("Write trips summary", {
   it("write_trips_cummary", {
     output_path <- "/workdir/tests/trips_summary.csv"
-    options <- list("data-path" = gps_path, "config-path" = config_path, "output-path" = output_path)
+    trips_path <- "/workdir/tests/data/trips.csv"
+    options <- list("data-path" = trips_path, "config-path" = config_path, "output-path" = output_path)
     testtools::if_exist_remove(output_path)
     write_trips_summary(options)
     expect_true(testtools::exist_output_file(output_path))