library(shiny)
# Define UI for application that draws a histogram
ui <- fluidPage(
   # Application title
   titlePanel("Old Faithful Geyser Data"),
   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(sliderInput("bins", "Number of bins:", min=1, max=50, value=30)),
      # Show a plot of the generated distribution
      mainPanel(plotOutput("distPlot"))
   )
)
# Define server logic required to draw a histogram
server <- function(input, output) {
   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out=input$bins+1)
      # draw the histogram with the specified number of bins
      hist(x, breaks=bins, col='darkgray', border='white')
   })
}
# Run the application 
shinyApp(ui = ui, server = server)

library(shiny)
library(googleVis)
library(ggplot2)
library(plotly)
apropos("^render")

library(googleVis)

dat <- data.frame(year=seq(tsp(Nile)[1], tsp(Nile)[2]), flow=Nile@.Data)
opt <- list(lineWidth=3, width=800, height=300, legend="none",
            title="Nile flow", vAxis="{title: 'Flow'}", hAxis="{title:'Year'}")
g <- gvisLineChart(dat, xvar="year", yvar="flow", options=opt)

plt <- plot_ly(dataframe, x=~xv, y=~yv, z=~zv, type="heatmap", frame=~frame,
               width=560, height=560) %>%
       layout( ... ) %>%
       animation_opts(frame=300, transition=300, redraw =FALSE)

output$plotly <- renderPlotly( ... )