View source: R/tarpuy_traits.R
tarpuy_traits | R Documentation |
Function to export field book and traits for be used in field book app.
tarpuy_traits(fieldbook = NULL, last_factor = NULL, traits = NULL)
fieldbook |
Experiment field book [dataframe]. |
last_factor |
Last factor in the field book [string: colnames] |
traits |
Traits information [dataframe or list]. |
For the traits parameters you can used shown in the field Book app
list
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)
## Not run:
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]]
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.