#' Replace -99 with NA in dataset.
#'
#' @param d Dataset.
#' @param replace Missing code to replace. Default is -99.
#'
#' @export
convert.to.na <- function(d,replace=-99){
names <- names(d)[which(sapply(seq_along(d),function(i)replace %in% d[,i]))]
d[names][d[names] == replace] <- NA
d
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.