Validate input data in R Script

Building R Powered Custom Visual

In order to write a truly robust R Powered Custom Visual, you should validate all the input you get before running some R function that expects specific values to be given.

For example, the corrplot function needs to run on at least two columns and at least two rows. If the function gets one row, the function will fail. corrplot also require that all column types will be numeric and non-constant

So you should prepare to validate your input prior to running the code.

Example for input validation in R code

Validate number of columns and rows

Here is an example for validating that we got the right columns types and at least two columns and at lease two rows:

errorText <- NULL
#filter out non-numeric columns and constant columns
correctColumn <- function(someColumn) { is.numeric(someColumn) && length(unique(someColumn)) > 1 }
useColumns <- sapply(Values,correctColumn)
if(sum(useColumns) < ncol(Values))
  errorText <- "Filtered out non numeric columns and constant columns"

Values <-[,useColumns])

columnCount <- ncol(Values)
rowCount <- nrow(Values)

if (rowCount < 2 || columnCount < 2) {
    errorText<-paste(errorText, "Not enough input dimensions", sep="\n")
    title(main = NULL, sub = errorText, outer = FALSE, col.sub = "gray50", cex.sub = 0.75)

In this example, if we get one row or one column, we will print some error message into the graphical device instead of leting the corrplot function to fail

Validate column types

See commit for what was added at this step.