R/interaction_S3.R

In Yang-Tang/shinyjqui: 'jQuery UI' Interactions and Effects for Shiny

jqui_interaction <- function(ui, interaction,
                             operation = c("enable",
                                           "disable",
                                           "destroy",
                                           "save",
                                           "load"),
                             options = NULL) {
  UseMethod("jqui_interaction")
}

jqui_interaction.character <- function(ui, interaction,
                                       operation = c("enable",
                                                     "disable",
                                                     "destroy",
                                                     "save",
                                                     "load"),
                                       options = NULL) {
  type <- "interaction"

  func <- interaction
  rm(interaction)

  operation <- match.arg(operation)

  # debug <- getOption("shinyjqui.debug")

  sendMsg()

  return(ui)
}

jqui_interaction.JS_EVAL <- function(ui, interaction,
                                     operation = c("enable",
                                                   "disable",
                                                   "destroy",
                                                   "save", "
                                                   load"),
                                     options = NULL
) {
  jqui_interaction.character(ui, interaction, operation, options)
}

jqui_interaction.shiny.tag <- function(ui, interaction,
                                       operation = c("enable",
                                                     "disable",
                                                     "destroy",
                                                     "save",
                                                     "load"),
                                       options = NULL) {
  addInteractJSShiny(ui, interaction, options)
}

jqui_interaction.shiny.tag.list <- function(ui, interaction,
                                            operation = c("enable",
                                                          "disable",
                                                          "destroy",
                                                          "save",
                                                          "load"),
                                            options = NULL) {
  ui[] <- lapply(ui, addInteractJSShiny,
                 func = interaction, options = options)
  return(ui)
}

jqui_interaction.htmlwidget <- function(ui, interaction,
                                        operation = c("enable",
                                                      "disable",
                                                      "destroy",
                                                      "save",
                                                      "load"),
                                        options = NULL) {
  addInteractJSHTMLWidget(ui, interaction, options)
}