easyview <-
function(sigsobject) {
FUN <- function(x) {
x <- ifelse(x==FALSE, "-", ifelse(x==TRUE, "WARNING", x))
return(as.factor(x))
}
data.frame(sigsobject[, 1, drop = FALSE],
sapply(sigsobject, FUN)[, -1], check.names=FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.