#' @export
fixNA <- function(tt, na.string = "NA") {
if (length(dim(tt)) == 1 || length(dim(tt)) == 2) rownames(tt)[is.na(rownames(tt))] <- na.string
if (length(dim(tt)) == 2) colnames(tt)[is.na(colnames(tt))] <- na.string
return(tt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.