#' Refresh the list of valid public nameservers
#'
#' @export
refresh_publc_nameservers_list <- function() {
if (!dir.exists(path.expand("~/.zdnsr"))) dir.create(path.expand("~/.zdnsr"))
xdf <- read.csv("https://public-dns.info/nameservers.csv", stringsAsFactors=FALSE)
saveRDS(xdf, file.path(path.expand("~/.zdnsr"), "public-nameservers.rds"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.