R/binding.R

Defines functions bindingY.l_hist bindingY.l_plot bindingY.l_facet_ggplot bindingY bindingX.l_hist bindingX.l_plot bindingX.l_facet_ggplot bindingX

bindingX <- function(loonplot, synchronizeBindingsX) {
  UseMethod("bindingX", loonplot)
}

bindingX.l_facet_ggplot <- function(loonplot, synchronizeBindingsX) {
  lps <- l_getPlots(loonplot)
  lapply(lps,
         function(lp) {
           tcl(lp, 'systembind', 'state', 'add',
               c('zoomX', 'panX', 'deltaX', 'swapAxes'),
               synchronizeBindingsX)
         }
  )
}

bindingX.l_plot <- function(loonplot, synchronizeBindingsX) {
  tcl(loonplot, 'systembind', 'state', 'add',
      c('zoomX', 'panX', 'deltaX', 'swapAxes'),
      synchronizeBindingsX)
}

bindingX.l_hist<- function(loonplot, synchronizeBindingsX) {
  tcl(loonplot, 'systembind', 'state', 'add',
      c('zoomX', 'panX', 'deltaX', 'swapAxes'),
      synchronizeBindingsX)
}

bindingY <- function(loonplot, synchronizeBindingsY) {
  UseMethod("bindingY", loonplot)
}

bindingY.l_facet_ggplot <- function(loonplot, synchronizeBindingsY) {
  lps <- l_getPlots(loonplot)
  lapply(lps,
         function(lp) {
           tcl(lp, 'systembind', 'state', 'add',
               c('zoomY', 'panY', 'deltaY', 'swapAxes'),
               synchronizeBindingsY)
         }
  )
}

bindingY.l_plot<- function(loonplot, synchronizeBindingsY) {
  tcl(loonplot, 'systembind', 'state', 'add',
      c('zoomY', 'panY', 'deltaY', 'swapAxes'),
      synchronizeBindingsY)
}

bindingY.l_hist<- function(loonplot, synchronizeBindingsY) {
  tcl(loonplot, 'systembind', 'state', 'add',
      c('zoomY', 'panY', 'deltaY', 'swapAxes'),
      synchronizeBindingsY)
}

Try the loon.ggplot package in your browser

Any scripts or data that you put into this service are public.

loon.ggplot documentation built on May 29, 2024, 4:58 a.m.