# Construct some species id vector
spec_ids <- c(
rep(fe_species_bavrn_state_short(c("1", "2", "6", "9")),
times = c(15, 31, 70, 12)
),
NA, NA
)
summary(spec_ids)
spec_ids |> summary()
spec_ids |> summary(spec_lang = "eng")
# Usual application: Set option for species code output
# Any summary of an fe_species object will use the last setting of the
# option
options(fe_spec_lang = "sci")
spec_ids |> summary()
Run the code above in your browser using DataLab