removed loading of testthat with library(testthat)

ropensci · Nov 30, 2023 · 687e20f · 687e20f
1 parent 9e04c5a
commit 687e20f
Show file tree

Hide file tree

Showing 40 changed files with 7 additions and 85 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -1,4 +1,3 @@
-library(testthat)
 library(ReLTER)
 
 test_check("ReLTER")
diff --git a/tests/testthat/test-eLTER_reporting.R b/tests/testthat/test-eLTER_reporting.R
@@ -1,7 +1,5 @@
 message("\n---- Test some eLTER_reporting functions ----")
 
-library(testthat)
-
 test_that("map_occ2 returns list with appropriate names", {
   id <- "https://deims.org/8eda49e9-1f4e-4f3e-b58e-e0bb25dc32a6" #zobelboden
   gres <- get_site_speciesOccurrences(

diff --git a/tests/testthat/test-get_activity_info.R b/tests/testthat/test-get_activity_info.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_activity_info() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_dataset_info.R b/tests/testthat/test-get_dataset_info.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_dataset_info() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_ilter_envcharacts.R b/tests/testthat/test-get_ilter_envcharacts.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_ilter_envcharacts() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_ilter_generalinfo.R b/tests/testthat/test-get_ilter_generalinfo.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_ilter_generalinfo() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_ilter_observedProperties.R b/tests/testthat/test-get_ilter_observedProperties.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_ilter_observedProperties() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_ilter_research_topics.R b/tests/testthat/test-get_ilter_research_topics.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_ilter_research_topics() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_location_info.R b/tests/testthat/test-get_location_info.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_location_info() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_network_envcharacts.R b/tests/testthat/test-get_network_envcharacts.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_network_envcharacts() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_network_observedProperties.R b/tests/testthat/test-get_network_observedProperties.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_network_observedProperties() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_network_related_resources.R b/tests/testthat/test-get_network_related_resources.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_network_related_resources() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_network_research_topics.R b/tests/testthat/test-get_network_research_topics.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_network_research_topics() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_network_sites.R b/tests/testthat/test-get_network_sites.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_network_sites() ----")
 
-library(testthat)
-
 skip_on_cran()
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_sensor_info.R b/tests/testthat/test-get_sensor_info.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_sensor_info() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_ODS.R b/tests/testthat/test-get_site_ODS.R
@@ -1,6 +1,5 @@
 message("\n---- Test get_site_ODS() ----")
 
-library(testthat)
 skip_if_offline(host = "s3.eu-central-1.wasabisys.com")
 
 test_that("Expect error if internet connection is down", {

diff --git a/tests/testthat/test-get_site_affiliations.R b/tests/testthat/test-get_site_affiliations.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_affiliations() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_boundaries.R b/tests/testthat/test-get_site_boundaries.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_boundaries() ----")
 
-library(testthat)
-
 # test_that("Expect error if internet connection is down", {
 #   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
 #   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_contact.R b/tests/testthat/test-get_site_contact.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_contact() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_envcharacts.R b/tests/testthat/test-get_site_envcharacts.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_envcharacts() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_general.R b/tests/testthat/test-get_site_general.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_general() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_infrastructure.R b/tests/testthat/test-get_site_infrastructure.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_infrastructure() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_observedProperties.R b/tests/testthat/test-get_site_observedProperties.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_observedProperties() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_related_resources.R b/tests/testthat/test-get_site_related_resources.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_related_resources() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_research_topics.R b/tests/testthat/test-get_site_research_topics.R
@@ -1,7 +1,5 @@
 # message("\n---- Test get_site_research_topics() ----")
 # 
-# library(testthat)
-# 
 # test_that("Expect error if internet connection is down", {
 #   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
 #   testthat::expect_error(

diff --git a/tests/testthat/test-get_site_speciesOccurrences.R b/tests/testthat/test-get_site_speciesOccurrences.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_site_speciesOccurrences() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-get_sos_foi.R b/tests/testthat/test-get_sos_foi.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_sos_foi() ----")
 
-library(testthat)
-
 skip_if_offline(host = "getit.lteritalia.it")
 
 test_that("Output of function constructs 'sf' and 'tibble' as expected in

diff --git a/tests/testthat/test-get_sos_obs.R b/tests/testthat/test-get_sos_obs.R
@@ -1,14 +1,12 @@
 message("\n---- Test get_sos_obs() ----")
 
-library(testthat)
-
 skip_if_offline(host = "getit.lteritalia.it")
 
 test_that("Output of function constructs 'tibble' as expected", {
-             result <- ReLTER::get_sos_obs(
-               sosURL = "http://getit.lteritalia.it/observations/service",
-               procedure = "http://www.get-it.it/sensors/getit.lteritalia.it/procedure/noOwnerDeclared/noModelDeclared/noSerialNumberDeclared/SI001469-SPNAirTemp", #720 Slowinski National Park
-               show_map = TRUE
-             )
-             expect_s3_class(result, "tbl_df")
-           })
+   result <- ReLTER::get_sos_obs(
+     sosURL = "http://getit.lteritalia.it/observations/service",
+     procedure = "http://www.get-it.it/sensors/getit.lteritalia.it/procedure/noOwnerDeclared/noModelDeclared/noSerialNumberDeclared/SI001469-SPNAirTemp", #720 Slowinski National Park
+     show_map = TRUE
+   )
+   expect_s3_class(result, "tbl_df")
+ })
diff --git a/tests/testthat/test-get_sos_procedure_info.R b/tests/testthat/test-get_sos_procedure_info.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_sos_procedure_info() ----")
 
-library(testthat)
-
 skip_if_offline(host = "getit.lteritalia.it")
 
 test_that("Output of function constructs 'character' as expected", {

diff --git a/tests/testthat/test-get_zenodo_data.R b/tests/testthat/test-get_zenodo_data.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_zenodo_data() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   testthat::expect_error(
     httptest::without_internet(

diff --git a/tests/testthat/test-globals.R b/tests/testthat/test-globals.R
@@ -1,7 +1,5 @@
 message("\n---- Test globals functions ----")
 
-library(testthat)
-
 test_that("Changing deims_base_url with reachable url works", {
   cur <- get_deims_base_url()
   newurl <- "http://www.get-it.it/"

diff --git a/tests/testthat/test-produce_network_points_map.R b/tests/testthat/test-produce_network_points_map.R
@@ -1,7 +1,5 @@
 message("\n---- Test produce_network_points_map() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-produce_site_map.R b/tests/testthat/test-produce_site_map.R
@@ -1,7 +1,5 @@
 message("\n---- Test produce_site_map() ----")
 
-library(testthat)
-
 sitesNetwork <- ReLTER::get_network_sites(
   networkDEIMSID =
     "https://deims.org/network/7fef6b73-e5cb-4cd2-b438-ed32eb1504b3"

diff --git a/tests/testthat/test-produce_site_observedProperties_pie.R b/tests/testthat/test-produce_site_observedProperties_pie.R
@@ -1,7 +1,5 @@
 message("\n---- Test produce_site_observedProperties_pie() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-produce_site_observedProperties_waffle.R b/tests/testthat/test-produce_site_observedProperties_waffle.R
@@ -1,7 +1,5 @@
 message("\n---- Test produce_site_observedProperties_waffle() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
   testthat::expect_error(

diff --git a/tests/testthat/test-produce_site_qrcode.R b/tests/testthat/test-produce_site_qrcode.R
@@ -1,7 +1,5 @@
 message("\n---- Test produce_site_qrcode() ----")
 
-library(testthat)
-
 skip_if_offline(host = "deims.org")
 
 test_that("Output of site affiliation function constructs ‘qr_code’ as

diff --git a/tests/testthat/test-produce_zenodo_record.R b/tests/testthat/test-produce_zenodo_record.R
@@ -1,7 +1,5 @@
 message("\n---- Test get_zenodo_data() ----")
 
-library(testthat)
-
 test_that("Expect error if internet connection is down", {
   testthat::expect_error(
     httptest::without_internet(

diff --git a/tests/testthat/test-taxon_id_pesi.R b/tests/testthat/test-taxon_id_pesi.R
@@ -1,7 +1,5 @@
 message("\n---- Test taxon_id_pesi() ----")
 
-library(testthat)
-
 test_that("Output of taxon pesi function constructs 'tibble' as expected", {
   table <- data.frame(
     taxonID = c(1, 2, 3, 4, 5, 6),

diff --git a/tests/testthat/test-taxon_id_worms.R b/tests/testthat/test-taxon_id_worms.R
@@ -1,7 +1,5 @@
 message("\n---- Test taxon_id_worms() ----")
 
-library(testthat)
-
 test_that("Output of taxon worms function constructs 'tibble' as expected", {
   input_table <- tibble::tibble(
      ID = c(1, 2, 3, 4, 5, 6, 7),

diff --git a/tests/testthat/test-taxon_id_worms_refine.R b/tests/testthat/test-taxon_id_worms_refine.R
@@ -1,7 +1,5 @@
 message("\n---- Test taxon_id_worms_refine() ----")
 
-library(testthat)
-
 test_that("Output of taxon worms function constructs 'tibble' as expected
 with choiceNumber NULL", {
   # input_table <- tibble::tibble(