View source: R/proctor_datasheet.R
| proctor_datasheet | R Documentation |
Generating a skeleton file permits a consistent data structure
to be maintained over time. It also eliminates the need to manually create
a file via Excel or another GUI, which is a nuisance and allows errors via
copy-paste or typos. The user may simply specify a directory and the file
is automatically written to disk with a sensible name(
~/<directory>/<date>_<proctor_raw_data>). Alternatively, a custom
file name can be specified.
proctor_datasheet( prep_sheet = NULL, date = NULL, tin_tare_set = NULL, tin_numbers = NULL, ambient_temp_c = 20, write = TRUE, directory = NULL, path = "auto" )
prep_sheet |
A data frame. It is recommended to pipe this argument
directly from |
tin_tare_set |
Character string (length 1) which identifies the set of tin tare
measurements to use during subsequent data analyses. If |
tin_numbers |
Numeric. Length must equal total number of experimental units in |
ambient_temp_c |
Ambient temperature during the test in °C. Used
to compute water density during data analysis (see
|
write |
Defaults to |
directory |
Directory in which to save the file. |
path |
If |
A tibble of relevant data. Also writes file to disk when write = TRUE.
# prepare reference sheet for wetting samples from existing water contents and
# estimated w_opt values (these should be estimated visually and confirmed with
# water content measurements, but are simply typed here for demonstration)
library(tibble)
library(dplyr)
library(tidyr)
w_extant_values <- tibble(
sample_name = paste0("mix_0", 1:3),
w_extant = c(0.048, 0.057, 0.062))
PL_values <- tibble(
sample_name = paste0("mix_0", 1:3),
PL= c(0.095, 0.10, 0.14),
standard = 0.9*PL,
modified= standard - 0.03)
prep_sheet <- w_extant_values %>%
left_join(PL_values) %>%
select(-PL) %>%
pivot_longer(cols= c(standard:modified),
names_to = 'effort',
values_to = 'est_w_opt')%>%
select(sample_name, effort, everything()) %>%
arrange(desc(effort)) %>%
proctor_prep(date = Sys.Date())
# write file to disk
proctor_datasheet(prep_sheet, dir= paste0(tempdir(), "/") )
# alternatively, return the data sheet as a tibble
proctor_datasheet(prep_sheet, write = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.