# Try selecting the quant_method requested, but if not available select another
choose_quant_method <- function(ui,
qm,
verbose = TRUE) {
unique_id <- quant_method <- NULL;
meta <- eQTLcatalogue_list_datasets(verbose = FALSE)
meta.sub <- data.frame(subset(meta, unique_id == ui))
if (qm %in% unique(meta.sub$quant_method)) {
meta.sub <- subset(meta.sub, quant_method == qm)
} else {
meta.sub <- meta.sub[1, ]
messager("+ Selecting quant_method:", meta.sub$quant_method[1],
v = verbose)
}
return(meta.sub)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.