R/zzz.R

In shinysurveys: Create and Deploy Surveys in 'Shiny'

.onLoad <- function(...) {

  shiny::registerInputHandler("radioMatrixInput.dataframe", function(value, ...) {
    if (is.null(value)) {
      return(value)
    } else {
      df <- safeFromJSON(value)
      return(df)
    }
  }, force = TRUE)
}