clean code

ipeaGIT · Sep 22, 2024 · 8adcf5b · 8adcf5b
1 parent bcf6279
commit 8adcf5b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 9 deletions.
diff --git a/R/utils_airfares.R b/R/utils_airfares.R
@@ -15,13 +15,6 @@
 #'}}
 get_airfares_dates_available <- function(dom) {
 
-  # message("Function read_airfares() is temporarily  unavailable. See issue #30 https://github.com/ipeaGIT/flightsbr/issues/30")
-  # return(NULL)
-  #
-  # stop()
-
-  if( ! is.logical(dom) ){ stop(paste0("Argument 'dom' must be either 'TRUE' or 'FALSE.")) }
-
   # read html table
   if( isTRUE(dom) ) { base_url = 'https://sas.anac.gov.br/sas/tarifadomestica/' }
   if( isFALSE(dom)) { base_url = 'https://sas.anac.gov.br/sas/tarifainternacional/' }

diff --git a/tests/testthat/test_read_airfares.R b/tests/testthat/test_read_airfares.R
@@ -40,10 +40,10 @@ test_that("read_airfares", {
   testthat::expect_true(is(test6, "data.table"))
 
   # test vector of dates
-  test7 <- read_airfares(date = c(202001, 202005), showProgress = FALSE)
+  test7 <- read_airfares(date = c(202201, 202205), showProgress = FALSE)
   testthat::expect_true(is(test7, "data.table"))
 
-  test8 <- read_airfares(date = c(2021, 2020), showProgress = FALSE)
+  test8 <- read_airfares(date = c(2020, 2022), showProgress = FALSE)
   testthat::expect_true(is(test8, "data.table"))
 
 })