data-raw/psa_protocols_summary.R

In evanmascitti/soiltestr: Functions for Laboratory Soil Testing

## code to prepare `psa_protocols_summary` dataset goes here


# This data object is built independently from the more verbose data object
# `psa_protocols`, but they have similar dependencies.....the former is designed
# for easy use with tab completion, while this one is meant for a quick lookup
# of the number.

suppressPackageStartupMessages({library(tidyverse)})

# make a tibble containing the summaries of each protocol
# note that protocl_ID is a character type even though I am using numbers
# this is to allow the protocols to each be named list objects
# because object names cannot be numeric type.

psa_protocols_summary <- readr::read_csv(
  here::here("inst/lab_protocols/particle_size_analysis/psa-methods-terse.csv"),
  col_types = readr::cols(.default = "c"), na= "-",
  lazy = FALSE) %>%
  select(protocol_ID, fines_method, coarse_method, g_sample, mechanical_dispersion,
         wash_thru_270_time, chemical_dispersion, carbonate_removal, OM_removal, iron_oxide_removal, other_comments,
         dplyr::everything())

# export as a data object

usethis::use_data(psa_protocols_summary, overwrite = TRUE)