R/ams2tbl.R

In c5sire/brapi: Client to Access Breeding Databases Using BrAPI

ams2tbl <- function(res, format, rclass, pb = NULL) {
  res <- httr::content(x = res, as = "text", encoding = "UTF-8")
  out <- NULL
  markerprofileDbId <- NULL
  alleleCall <- NULL
  if (format == "json") {
    out <- dat2tbl(res = res, rclass = rclass)
    if (rclass %in% c("data.frame", "tibble")) {
      colnames(out) <- c("markerprofileDbId", "markerDbId", "alleleCall")
      out <- tidyr::spread(data = out,
                           key = markerprofileDbId,
                           value = alleleCall)
      colnames(out)[1] <- "markerprofileDbId"
    }
  }
  if (format == "csv") {
    url <- jsonlite::fromJSON(txt = res)$metadata$data$url
    out <- readr::read_csv(file = url, progress = TRUE)
  }
  if (format == "tsv") {
    url <- jsonlite::fromJSON(txt = res)$metadata$data$url
    out <- readr::read_tsv(file = url, progress = TRUE)
  }
  class(out) <- c(class(out), "ba_allelematrix")
  return(out)
}