quote_wrap <- function(x) paste0('"', x, '"')
add_nonull <- function(flag, x) dplyr::if_else(is.null(x), "", paste0(flag, " ", quote_wrap(x), " "))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.