smbache

# Contents of test.R:
#
#  library(ggplot2)
#
#  my_plot  <- qplot(Sepal.Length, Sepal.Width, data = iris)
#  my_plot2 <- qplot(Petal.Length, Petal.Width, data = iris)
#

```R
> import::from(test.R, my_plot)

smbache

library(shiny)

ol <- function(...) tag("ol", list(...))
li <- function(...) tag("li", list(...))

carousel_events <- function(id) 
{
  js <- sprintf("
    $('#%s').bind('slide.bs.carousel', function (e) { 
      $(e.relatedTarget).find('.shiny-bound-output').each(function(i) {

smbache

#' Recursive If-Then-Else Evaluation.
#' 
#' This function will recursively evaluate conditions, element-by-element, and 
#' apply specified actions for the elements that satisfy the conditions. Each
#' \code{condition~action} pair is specified by a formula, with the condition as
#' left-hand side and action as right-hand side. Each condition is evaluated 
#' sequentially and only to the relevant elements. This means that if an element
#' satisfies an early condition, it will never reach a later condition test.
#' The final argument is a one-sided formula with only an action applied to the
#' elements that do not satisfy any of the conditions (a default).