R/filter.R

In mrjoh3/cytoscape: Create and Style Simple Network Charts

cy_filter <- function(id, filter, options) {
  message <- list(id = id, filter = filter)
  if (!missing(options)) {
    message['options'] <- options
  }
  session <- shiny::getDefaultReactiveDomain()
  session$sendCustomMessage("cytoscape:filter", message)
}