nvalid <- function(x){
x <- unknownToNA(x, '')
x <- cbind(x, rep(NA, nrow(data.frame(x))))
n.valid <- rowSums(ifelse(!is.na(x), 1, 0), na.rm=TRUE)
return(n.valid)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.