From 3d7b9403b876b11a6c68e0c6b3ea9348aca04f55 Mon Sep 17 00:00:00 2001
From: Dax Kellie <dax.kellie@csiro.au>
Date: Mon, 13 Jan 2025 15:49:58 +1100
Subject: [PATCH] Rename test files

* Remove mytests file
---
 tests/mytests.R                               | 106 ------------------
 ...t-use_abundance.R => test-set_abundance.R} |   0
 ...use_collection.R => test-set_collection.R} |   0
 ...e_coordinates.R => test-set_coordinates.R} |   0
 ...est-use_sf.R => test-set_coordinates_sf.R} |   0
 ...est-use_datetime.R => test-set_datetime.R} |   0
 ..._traits.R => test-set_individual_traits.R} |   0
 ...est-use_locality.R => test-set_locality.R} |   0
 ...est-use_observer.R => test-set_observer.R} |   0
 ...e_occurrences.R => test-set_occurrences.R} |   0
 ...ific_name.R => test-set_scientific_name.R} |   0
 ...est-use_taxonomy.R => test-set_taxonomy.R} |   0
 12 files changed, 106 deletions(-)
 delete mode 100644 tests/mytests.R
 rename tests/testthat/{test-use_abundance.R => test-set_abundance.R} (100%)
 rename tests/testthat/{test-use_collection.R => test-set_collection.R} (100%)
 rename tests/testthat/{test-use_coordinates.R => test-set_coordinates.R} (100%)
 rename tests/testthat/{test-use_sf.R => test-set_coordinates_sf.R} (100%)
 rename tests/testthat/{test-use_datetime.R => test-set_datetime.R} (100%)
 rename tests/testthat/{test-use_individual_traits.R => test-set_individual_traits.R} (100%)
 rename tests/testthat/{test-use_locality.R => test-set_locality.R} (100%)
 rename tests/testthat/{test-use_observer.R => test-set_observer.R} (100%)
 rename tests/testthat/{test-use_occurrences.R => test-set_occurrences.R} (100%)
 rename tests/testthat/{test-use_scientific_name.R => test-set_scientific_name.R} (100%)
 rename tests/testthat/{test-use_taxonomy.R => test-set_taxonomy.R} (100%)

diff --git a/tests/mytests.R b/tests/mytests.R
deleted file mode 100644
index ab71c0e..0000000
--- a/tests/mytests.R
+++ /dev/null
@@ -1,106 +0,0 @@
-
-
-library(tibble)
-library(readr)
-library(dplyr)
-library(tidyr)
-library(here)
-
-df <- read_csv(here("inst", "extdata", "westerband_2022_wdate.csv"))
-
-# take a small sample
-df_filtered <- df |>
-  select(Site, Species, Latitude, Longitude, LMA_g.m2, LeafN_area_g.m2, PNUE) |>
-  slice(200:300)
-
-df_nested <- df_filtered |>
-  group_split(row_number(), .keep = FALSE) %>%
-  purrr::map_dfr( ~ .x |>
-                    nest(measurementOrFact = c(LMA_g.m2, LeafN_area_g.m2, PNUE)))
-  # nest(measurementOrFact = c(LMA_g.m2, LeafN_area_g.m2, PNUE))
-
-test_string <- c("g/m2", "g/m2", "who knows")
-another_string <- c("leaf mass per area", "leaf Nitrogen per area", "PNUE")
-
-df_nested |>
-  dplyr::mutate(
-    measurementOrFact = purrr::map(
-      measurementOrFact,
-      ~ .x |>
-        pivot_longer(names_to = "column_name",
-                     values_to = "measurementValue",
-                     cols = everything()) |>
-        mutate(
-          measurementUnit = test_string,
-          measurementType = another_string
-          )
-      )) |>
-  unnest(measurementOrFact)
-
-
-very_nested <- df_nested |>
-  nest(data = c(Species, Latitude, Longitude, measurementOrFact))
-
-very_nested
-
-
-very_nested |>
-  unnest(data)
-
-
-
-
-test <- df_filtered |>
-  # slice(200:300) |>
-  use_measurements(cols = c(LMA_g.m2, LeafN_area_g.m2, PNUE),
-                   unit = c("g/m2", "g/m2", "something else"),
-                   type = c("leaf mass per area", "leaf nitrogen per area", "gibberish"))
-
-test
-
-test |>
-  slice(1:3) |>
-  unnest(measurementOrFact)
-
-
-number <- 7490
-
-floor(log10(number)) + 1
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-library(tibble)
-library(lubridate)
-
-df <- tibble(
-  latitude = c(-35.310, "-35.273"), # deliberate error for demonstration purposes
-  longitude = c(149.125, 149.133),
-  date = c("14-01-2023", "15-01-2023"),
-  time = c("10:23:00", "11:25:00"),
-  month = c("January", "February"),
-  day = c(100, 101),
-  species = c("Callocephalon fimbriatum", "Eolophus roseicapilla"),
-  n = c(2, 3),
-  crs = c("WGS84", "WGS8d"),
-  country = c("Australia", "Denmark"),
-  continent = c("Oceania", "Europe")
-)
-
-
-df |>
-  use_occurrences(basisOfRecord = "humanObservation")
-
-
-
-
diff --git a/tests/testthat/test-use_abundance.R b/tests/testthat/test-set_abundance.R
similarity index 100%
rename from tests/testthat/test-use_abundance.R
rename to tests/testthat/test-set_abundance.R
diff --git a/tests/testthat/test-use_collection.R b/tests/testthat/test-set_collection.R
similarity index 100%
rename from tests/testthat/test-use_collection.R
rename to tests/testthat/test-set_collection.R
diff --git a/tests/testthat/test-use_coordinates.R b/tests/testthat/test-set_coordinates.R
similarity index 100%
rename from tests/testthat/test-use_coordinates.R
rename to tests/testthat/test-set_coordinates.R
diff --git a/tests/testthat/test-use_sf.R b/tests/testthat/test-set_coordinates_sf.R
similarity index 100%
rename from tests/testthat/test-use_sf.R
rename to tests/testthat/test-set_coordinates_sf.R
diff --git a/tests/testthat/test-use_datetime.R b/tests/testthat/test-set_datetime.R
similarity index 100%
rename from tests/testthat/test-use_datetime.R
rename to tests/testthat/test-set_datetime.R
diff --git a/tests/testthat/test-use_individual_traits.R b/tests/testthat/test-set_individual_traits.R
similarity index 100%
rename from tests/testthat/test-use_individual_traits.R
rename to tests/testthat/test-set_individual_traits.R
diff --git a/tests/testthat/test-use_locality.R b/tests/testthat/test-set_locality.R
similarity index 100%
rename from tests/testthat/test-use_locality.R
rename to tests/testthat/test-set_locality.R
diff --git a/tests/testthat/test-use_observer.R b/tests/testthat/test-set_observer.R
similarity index 100%
rename from tests/testthat/test-use_observer.R
rename to tests/testthat/test-set_observer.R
diff --git a/tests/testthat/test-use_occurrences.R b/tests/testthat/test-set_occurrences.R
similarity index 100%
rename from tests/testthat/test-use_occurrences.R
rename to tests/testthat/test-set_occurrences.R
diff --git a/tests/testthat/test-use_scientific_name.R b/tests/testthat/test-set_scientific_name.R
similarity index 100%
rename from tests/testthat/test-use_scientific_name.R
rename to tests/testthat/test-set_scientific_name.R
diff --git a/tests/testthat/test-use_taxonomy.R b/tests/testthat/test-set_taxonomy.R
similarity index 100%
rename from tests/testthat/test-use_taxonomy.R
rename to tests/testthat/test-set_taxonomy.R