query_piece <- function(argument, query_target) {
if (is.null(argument)) {
NULL
} else {
paste0("&", query_target, "=", argument)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.