return invisible null

ipeaGIT · Aug 29, 2024 · 23930ba · 23930ba
1 parent 78ded44
commit 23930ba
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git a/R/read_emigration.R b/R/read_emigration.R
@@ -59,7 +59,7 @@ read_emigration <- function(year = 2010,
                               cache = cache)
 
   # check if download worked
-  if(is.null(local_file)) { return(NULL) }
+  if(is.null(local_file)) { return(invisible(NULL)) }
 
   ### read data
   df <- arrow_open_dataset(local_file)

diff --git a/R/read_families.R b/R/read_families.R
@@ -53,7 +53,7 @@ read_families <- function(year = 2000,
                               cache = cache)
 
   # check if download worked
-  if(is.null(local_file)) { return(NULL) }
+  if(is.null(local_file)) { return(invisible(NULL)) }
 
   ### read data
   df <- arrow_open_dataset(local_file)

diff --git a/R/read_households.R b/R/read_households.R
@@ -50,7 +50,7 @@ read_households <- function(year = 2010,
                               cache = cache)
 
   # check if download worked
-  if(is.null(local_file)) { return(NULL) }
+  if(is.null(local_file)) { return(invisible(NULL)) }
 
   ### read data
   df <- arrow_open_dataset(local_file)

diff --git a/R/read_mortality.R b/R/read_mortality.R
@@ -64,7 +64,7 @@ read_mortality <- function(year = 2010,
                               cache = cache)
 
   # check if download worked
-  if(is.null(local_file)) { return(NULL) }
+  if(is.null(local_file)) { return(invisible(NULL)) }
 
   ### read data
   df <- arrow_open_dataset(local_file)

diff --git a/R/read_population.R b/R/read_population.R
@@ -53,7 +53,7 @@ read_population <- function(year = 2010,
                               cache = cache)
 
   # check if download worked
-  if(is.null(local_file)) { return(NULL) }
+  if(is.null(local_file)) { return(invisible(NULL)) }
 
 
   ### read data

diff --git a/R/read_tracts.R b/R/read_tracts.R
@@ -71,7 +71,7 @@ read_tracts <- function(year = 2010,
                               cache = cache)
 
   # check if download worked
-  if(is.null(local_file)) { return(NULL) }
+  if(is.null(local_file)) { return(invisible(NULL)) }
 
   ### read data
   df <- arrow_open_dataset(local_file)