Nothing
norm_this <- function(x) {
m <- min(x, na.rm = TRUE)
M <- max(x, na.rm = TRUE)
if (m == M) {
if (m > 0.5) {
x <- rep(1, length(x))
} else {
x <- rep(0, length(x))
}
} else {
x <- (x - m) / (M - m)
}
x
}
# possibly table tag if across table collation is required
defcols <- c("row", "col", "value", "data_block", "table_tag")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.