library(tidyverse)
library("iNEXT")
library(openxlsx)
library(rgdal)
dir_ini <- getwd()
options(digits=14)
data.site <- read.xlsx("DATASETS/Chac01_Datacollection_pollination.xlsx",
sheet = "SiteData", startRow = 2)
data.site <- as_tibble(data.site)
data.site <- data.site %>% filter(SiteID=="chac01")
data.site <- data.site %>%
separate(col = Distance.ID, into = c("site", "dis"),"(?<=[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]) ?(?=[0-9])")
data.site <- data.site %>%
separate(col = Crop.species, into = c("Crop.species", "variety"),". Cultivar: ")
data.site <- data.site %>% filter(is.na(dis)) %>% select(-dis)
data.site$X <- as.numeric(data.site$X)
data.site$Y <- as.numeric(data.site$Y)
data.site <- data.site %>% select(-'Annual/perennial',-X10,-X11) %>%
rename(study_id=SiteID,site_id= site, X_UTM=X,Y_UTM=Y,zone_UTM=`X,Y.Projection.&.Datum`,
sampling_year=Year,crop=Crop.species,
management=Management)
data.site$zone_UTM <- 20
?read_csv
?read_csv
library(readr)
library(tidyverse)
library(testthat)
folder_base <- "C:/Users/USUARIO/Desktop/Projects/Observ/Datasets_storage"
files_base <- list.files(folder_base)
list_files_field_level <- files_base[grepl("field_level_data", files_base)]
extract_template_i <- function(file_name){
field_level_i <- read_csv(file_name,
col_types = cols(
study_id = col_character(), site_id = col_character(),
crop = col_character(),variety = col_character(),
country = col_character(),latitude = col_double(),
longitude = col_double(),sampling_year = col_double(),
field_size = col_double(),total_yield = col_double(),
fruits_per_plant = col_double(),fruit_weight = col_double(),
plant_density = col_double(), seeds_per_fruit = col_double(),
seeds_per_plant = col_double(),seed_weight = col_double(),
pollinator_richness = col_double(),total_sampled_area = col_double(),
total_sampled_time = col_double(),visitation_rate = col_double(),
Publication = col_character(),Credit = col_character(),
email = col_character()
)
)
field_level_i
}
test_file("C:/Users/USUARIO/Desktop/Projects/Observ/Datasets_Combined/test/test_Create_Dataset.R", reporter = "summary")
options(testthat.output_file = "test_out_Create_Dataset.txt")
test_file("test/test_Create_Dataset.R", reporter = "summary")
library(tidyverse)
library(tidyverse)
library(testthat) # for data tests
library(openxlsx)
library(tools) # for removing non-ASCII characters
capture_output_lines({
test_file("test/testthat/test-country.R", reporter = "summary")
})
