Function to export field book and traits for be used in field book app.
Arguments
- fieldbook
Experiment field book [dataframe].
- last_factor
Last factor in the field book [string: colnames]
- traits
Traits information [dataframe or list].
Examples
library(inti)
fieldbook <- inti::potato
traits <- list(
list(variable = "altura de planta"
, abbreviation = "altp"
, format = "numeric"
, when = "30, 40, 50"
, samples = 3
, units = "cm"
, details = NA
, minimum = 0
, maximum = 100
)
, list(variable = "severidad"
, abbreviation = "svr"
, format = "categorical"
, when = "30, 40, 50"
, samples = 1
, units = "scale"
, details = NA
, categories = "1, 3, 5, 7, 9"
)
, list(variable = "foto"
, abbreviation = "foto"
, format = "photo"
, when = "hrv, pshrv"
, samples = 1
, units = "image"
, details = NA
)
, list(variable = "germinacion"
, abbreviation = "ger"
, format = "boolean"
, when = "30, 40, 50"
, samples = 1
, units = "logical"
, details = NA
)
)
fbapp <- tarpuy_traits(fieldbook, last_factor = "bloque", traits)
#> Warning: There was 1 warning in `dplyr::arrange()`.
#> ℹ In argument: `..1 = as.numeric(.data$when)`.
#> Caused by warning:
#> ! NAs introduced by coercion
if (FALSE) {
library(inti)
library(gsheet)
url_fb <- paste0("https://docs.google.com/spreadsheets/d/"
, "1_BVzChX_-lzXhB7HAm6FeSrwq9iKfZ39_Sl8NFC6k7U/edit#gid=150858522")
fb <- gsheet2tbl(url_fb)
url_ds <- paste0("https://docs.google.com/spreadsheets/d/"
, "1_BVzChX_-lzXhB7HAm6FeSrwq9iKfZ39_Sl8NFC6k7U/edit#gid=1255730357")
ds <- gsheet2tbl(url_ds)
fb <- ds %>% tarpuy_design()
url_trt <- paste0("https://docs.google.com/spreadsheets/d/"
, "1_BVzChX_-lzXhB7HAm6FeSrwq9iKfZ39_Sl8NFC6k7U/edit#gid=2106059499")
traits <- gsheet2tbl(url_trt)
fbapp <- tarpuy_traits(fb, last_factor = "cols", traits)
dsg <- fbapp[[1]]
}