hide internal functions

r-package/DESCRIPTION

@@ -43,6 +43,6 @@ Imports:
  httr (>= 1.4.1),
  sf (>= 0.9-3),
  utils
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.1
 Roxygen: list(markdown = TRUE)
 VignetteBuilder: knitr

r-package/NAMESPACE

@@ -1,11 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(cep_to_state)
-export(check_connection)
-export(download_gpkg)
-export(download_metadata)
 export(list_geobr)
-export(load_gpkg)
 export(lookup_muni)
 export(read_amazon)
 export(read_biomes)
@@ -34,9 +30,6 @@ export(read_statistical_grid)
 export(read_urban_area)
 export(read_urban_concentrations)
 export(read_weighting_area)
-export(select_data_type)
-export(select_metadata)
-export(select_year_input)
 importFrom(curl,"has_internet")
 importFrom(data.table,"%like%")
 importFrom(utils,"tail")

r-package/R/download_metadata.R

@@ -1,7 +1,6 @@
 #' Support function to download metadata internally used in geobr
 #'
-#' @export
-#' @family general support functions
+#' @keywords internal
 #' @examples \dontrun{ if (interactive()) {
 #' df <- download_metadata()
 #' }}

r-package/R/utils.R

@@ -8,8 +8,7 @@
 #'
 #' @param temp_meta A dataframe with the file_url addresses of geobr datasets
 #' @param simplified Logical TRUE or FALSE indicating whether the function returns the 'original' dataset with high resolution or a dataset with 'simplified' borders (Defaults to TRUE)
-#' @export
-#' @family support functions
+#' @keywords internal
 #'
 select_data_type <- function(temp_meta, simplified=NULL){
 
@@ -29,12 +28,9 @@ select_data_type <- function(temp_meta, simplified=NULL){
 
 #' Select year input
 #'
-#'
-#'
 #' @param temp_meta A dataframe with the file_url addresses of geobr datasets
 #' @param y Year of the dataset (passed by red_ function)
-#' @export
-#' @family support functions
+#' @keywords internal
 #'
 select_year_input <- function(temp_meta, y=year){
 
@@ -60,8 +56,7 @@ select_year_input <- function(temp_meta, y=year){
 #' @param simplified Logical TRUE or FALSE indicating whether the function returns the 'original' dataset with high resolution or a dataset with 'simplified' borders (Defaults to TRUE)
 #' @param year Year of the dataset (passed by red_ function)
 #'
-#' @export
-#' @family support functions
+#' @keywords internal
 #' @examples \dontrun{ if (interactive()) {
 #'
 #' library(geobr)
@@ -97,8 +92,7 @@ select_metadata <- function(geography, year=NULL, simplified=NULL){
 #'
 #' @param file_url A string with the file_url address of a geobr dataset
 #' @param progress_bar Logical. Defaults to (TRUE) display progress bar
-#' @export
-#' @family support functions
+#' @keywords internal
 #'
 download_gpkg <- function(file_url, progress_bar = showProgress){
 
@@ -237,8 +231,7 @@ download_gpkg <- function(file_url, progress_bar = showProgress){
 #'
 #' @param file_url A string with the file_url address of a geobr dataset
 #' @param temps The address of a gpkg file stored in tempdir. Defaults to NULL
-#' @export
-#' @family support functions
+#' @keywords internal
 #'
 load_gpkg <- function(file_url, temps=NULL){
 
@@ -278,8 +271,7 @@ load_gpkg <- function(file_url, temps=NULL){
 #'
 #' @return Logical. `TRUE` if url is working, `FALSE` if not.
 #'
-#' @export
-#' @family support functions
+#' @keywords internal
 #'
 check_connection <- function(file_url = 'https://www.ipea.gov.br/geobr/metadata/metadata_gpkg.csv'){
 

r-package/tests/testthat.R

@@ -1,5 +1,9 @@
+if (requireNamespace("testthat", quietly = TRUE)) {
+
 library(testthat)
 library(geobr)
 library(sf)
 
 test_check("geobr")
+
+}

r-package/tests/testthat/test-check_connection.R

@@ -5,15 +5,15 @@ skip_if(Sys.getenv("TEST_ONE") != "")
 testthat::skip_on_cran()
 
 
-url_ok <- 'http://google.com/'
-url_timeout <- 'http://www.google.com:81/'
-url_error <- 'http://httpbin.org/status/300'
+url_ok <- 'https://google.com/'
+url_timeout <- 'https://www.google.com:81/'
+url_error <- 'https://httpbin.org/status/300'
 
 
 # expected success ------------------------------------
 test_that("check_connection", {
 
- testthat::expect_true(check_connection(file_url = url_ok) )
+ testthat::expect_true( check_connection(file_url = url_ok) )
 })