## Not run:
# # General Search
# out <- betydb_search(query = "Switchgrass Yield")
# library("dplyr")
# out %>%
# group_by(id) %>%
# summarise(mean_result = mean(as.numeric(mean), na.rm = TRUE)) %>%
# arrange(desc(mean_result))
# # Get by ID
# ## Traits
# betydb_trait(id = 10)
# ## Species
# betydb_specie(id = 1)
# ## Citations
# betydb_citation(id = 1)
# ## Site information
# betydb_site(id = 795)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace