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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.