if (FALSE) {
lst <- rl_assessment_list(ids = c(166290968, 136250858))
# get complex elements as a list
ex1 <- rl_assessment_extract(lst, "taxon")
# get simple elements as a data.frame
ex2 <- rl_assessment_extract(lst, "red_list_category__code", format = "df")
# get complex elements as a data.frame
ex3 <- rl_assessment_extract(lst, "threats", format = "df")
# get the same elements flattened to a single data.frame
ex4 <- rl_assessment_extract(lst, "threats", format = "df", flatten = TRUE)
# get subelements flattened to a data.frame
ex5 <- rl_assessment_extract(lst, "taxon__order_name", format = "df",
flatten = TRUE)
# get a data frame with taxon name and red list category code
ex6 <- merge(
rl_assessment_extract(lst, "taxon", format = "df", flatten = TRUE),
rl_assessment_extract(lst, "red_list_category__code", format = "df"),
by = "assessment_id"
)
}
Run the code above in your browser using DataLab