R/zzz.R

In jqbr: 'jQuery QueryBuilder' Input for 'Shiny'

.onLoad <- function(...) {
  shiny::addResourcePath("jqbr", system.file("packer", package = "jqbr"))
  shiny::registerInputHandler(
    "jqbr.r_rules",
    function(data, ...) {
      if (is.null(data)) {
        NULL
      } else {
        recurse_filter(data[["rules"]])
      }
    },
    force = TRUE
  )
  shiny::registerInputHandler(
    "jqbr.rules",
    function(data, ...) {
      if (is.null(data)) {
        NULL
      } else {
        data[["rules"]]
      }
    },
    force = TRUE
  )
  shiny::registerInputHandler(
    "jqbr.sql_rules",
    function(data, ...) {
      if (is.null(data)) {
        NULL
      } else {
        data[["sql_rules"]]
      }
    },
    force = TRUE
  )
  shiny::registerInputHandler(
    "jqbr.all",
    function(data, ...) {
      if (is.null(data)) {
        NULL
      } else {
        list(
          r_rules = recurse_filter(data[["rules"]]),
          sql_rules = data[["sql_rules"]],
          rules = data[["rules"]]
        )
      }
    },
    force = TRUE
  )
}