#' ba_crops
#'
#' List supported crops in a database.
#'
#' @param con list, brapi connection object
#' @param rclass character, class of the object to be returned; default: "tibble"
#' , possible other values: "json"/"list"/"vector"/"data.frame"
#'
#' @return an object of class as specified by rclass with crop names or NULL
#'
#' @note Tested against: BMS, sweetpotatobase, test-server
#' @note BrAPI Version: 1.0, 1.1
#' @note BrAPI Status: deprecated
#'
#' @author Reinhard Simon, Maikel Verouden
#' @references \href{https://github.com/plantbreeding/API/blob/V1.2/Specification/Crops/ListCrops_Deprecated.md}{github}
#' @family brapicore
#' @example inst/examples/ex-ba_crops.R
#' @export
ba_crops <- function(con = NULL, rclass = c("tibble", "data.frame",
"list", "json", "vector")) {
.Deprecated(new = "ba_commoncropnames")
stopifnot(is.ba_con(obj = con))
rclass <- match.arg(rclass)
# temporarily store the multicrop argument in omc (oldmulticrop)
omc <- con$multicrop
con$multicrop <- FALSE
ba_check(con = con, verbose = FALSE, brapi_calls = "crops")
brp <- get_brapi(con = con)
callurl <- paste0(brp, "crops")
# store original rclass, needed when equal to data.frame
orclass <- rclass
rclass <- df2tibble(rclass = rclass)
out <- try({
res <- brapiGET(url = callurl, con = con)
res2 <- httr::content(x = res, as = "text", encoding = "UTF-8")
out <- dat2tbl(res = res2, rclass = rclass)
if (any(class(out) %in% c("tbl_df", "data.frame"))) {
names(out)[1] <- "crops"
# out$crops <- tolower(out$crops)
}
# if (rclass == "list") out$result$data <- tolower(out$result$data )
# if (rclass == "vector") out <- tolower(out)
if (orclass == "data.frame") out <- as.data.frame(out)
class(out) <- c(class(out), "ba_crops")
out
})
# reset multicrop argument in con object to omc (oldmulticrop) value
con$multicrop <- omc
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.