From eba8377d96df9a398b2856fb4db91468dadebc59 Mon Sep 17 00:00:00 2001 From: Antranig Basman Date: Mon, 11 Nov 2024 16:13:43 +0000 Subject: [PATCH] Fixed data references in loadData --- Galiano BioBlitz 2023.Rmd | 7 ------- docs/Galiano-BioBlitz-2023.html | 12 ++++++------ scripts/loadData.R | 3 +++ 3 files changed, 9 insertions(+), 13 deletions(-) mode change 100644 => 100755 docs/Galiano-BioBlitz-2023.html diff --git a/Galiano BioBlitz 2023.Rmd b/Galiano BioBlitz 2023.Rmd index c2ccfaf..e143a36 100644 --- a/Galiano BioBlitz 2023.Rmd +++ b/Galiano BioBlitz 2023.Rmd @@ -7,13 +7,6 @@ knit: (function(inputFile, encoding) { ```{r, echo=FALSE, message=FALSE, warning=FALSE} source("scripts/loadData.R") -library(tidyverse) -records <- read.csv("tabular_data/Galiano_Island_vascular_plant_records_consolidated-prepared.csv") -summary <- read.csv("tabular_data/Galiano_Tracheophyta_review_summary_reviewed_2024-10-07-assigned_revised.csv") -new <- summary %>% filter(str_detect(Reporting.Status, "new")) -confirmed <- summary %>% filter(Reporting.Status == 'confirmed') -reported <- summary %>% filter(Reporting.Status == 'reported') -observed <- summary %>% filter(Observation == 'observed') ``` ## Community science contributions diff --git a/docs/Galiano-BioBlitz-2023.html b/docs/Galiano-BioBlitz-2023.html old mode 100644 new mode 100755 index bc3974d..b5ed9ff --- a/docs/Galiano-BioBlitz-2023.html +++ b/docs/Galiano-BioBlitz-2023.html @@ -2282,14 +2282,14 @@

Galiano BioBlitz 2023 outcomes: vascular

Community science contributions

Through the combined efforts of 25 individuals, the Hunterston Farms -naturalist community has now documented a total of 802 vascular plant -species. Based on search efforts over the last decade, 82 percent of the -historically reported plant diversity has been confirmed and 195 new +naturalist community has now documented a total of 191 vascular plant +species. Based on search efforts over the last decade, 97 percent of the +historically reported plant diversity has been confirmed and 16 new species reports added to the list. Community members have now documented -85 percent of the plant diversity known to the region on +96 percent of the plant diversity known to the region on iNaturalist.

-
- +
+

Authors

diff --git a/scripts/loadData.R b/scripts/loadData.R index c0c965b..04db924 100644 --- a/scripts/loadData.R +++ b/scripts/loadData.R @@ -9,6 +9,8 @@ source("scripts/utils.R") originalSummary <- read.csv("tabular_data/Galiano_Tracheophyta_review_summary_reviewed_2024-10-07-assigned_revised.csv") filteredSummary <- read.csv("tabular_data/Galiano_Island_vascular_plant_records_consolidated-assigned-taxa.csv") +records <- read.csv("tabular_data/Galiano_Island_vascular_plant_records_consolidated-prepared.csv") + summary <- inner_join(x = originalSummary, y = filteredSummary, by = join_by(ID == id)) # Subset historic, confirmed and new records @@ -16,3 +18,4 @@ summary <- inner_join(x = originalSummary, y = filteredSummary, by = join_by(ID new <- summary %>% filter(str_detect(Reporting.Status, "new")) confirmed <- summary %>% filter(Reporting.Status == "confirmed") reported <- summary %>% filter(Reporting.Status == "reported") +observed <- summary %>% filter(Observation == 'observed')