#'@templateVar aqs_endpoint retrieve
#'
#'@description
#' Returns the data created with a previsously submitted request.
#'
#'@template transaction_id
#'@template endpoint_title
#'@export
get_retrieve <- function(x) {
if(class(x) == "raqdmObject") {
id <- x$id
} else {
id <- x
}
get_aqdm("retrieve", list(id = id))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.