From f28d10b9e4ca9d87d12735394f9b4781209f2106 Mon Sep 17 00:00:00 2001 From: markus1bauer Date: Fri, 26 Apr 2024 21:23:00 +0200 Subject: [PATCH] install pak --- R/CI_1_Generate_reports.R | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/R/CI_1_Generate_reports.R b/R/CI_1_Generate_reports.R index 3e549cb..29baf3a 100644 --- a/R/CI_1_Generate_reports.R +++ b/R/CI_1_Generate_reports.R @@ -11,6 +11,7 @@ library(here) library(kableExtra) library(knitr) library(naniar) +library(pak) library(readr) library(renv) library(stringr) @@ -147,7 +148,7 @@ traits <- traits %>% #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -## 1 Sites' vegetation cover ################################################## +## 1 Typos vegetation cover ################################################## ### Set scale of total vegetation cover ### @@ -183,7 +184,7 @@ write_csv( ) -## 2 Species' vegetation cover ################################################# +## 2 Typos abundance values ################################################### ### Set scale of species vegetation cover ### @@ -193,8 +194,7 @@ values <- c(.5, 2, 3, 4, seq(from = 0, to = 100, by = 5)) data <- species %>% pivot_longer(-name, names_to = "id", values_to = "value") %>% filter(!str_detect(id, "_seeded$")) %>% - filter(!(value %in% values) & - !is.na(value)) + filter(!(value %in% values) & !is.na(value)) file <- here("tests", "testthat", "warnings_species_typos.png") @@ -273,6 +273,7 @@ ggsave( here("tests", "testthat", "reports_missing_sites.png"), dpi = 300, height = 10, units = "cm" ) + miss_var_summary(traits, order = TRUE) vis_miss(traits, cluster = FALSE, sort_miss = TRUE) + theme(plot.background = element_rect(fill = "white"))