load_jstools: load shinytools JavaScript functions

In ardata-fr/shinytools: Simple 'JavaScript' Interactions in 'shiny' Applications

Description

load shinytools JavaScript functions in a shiny application. Operation has to be made in the UI part.

Usage

load_jstools()

Examples

## Not run: 
library(shinytools)

if (interactive()) {
  options(device.ask.default = FALSE)

  # Define UI
  ui <- fluidPage(
    titlePanel("Hello dghiesse!"),
    load_jstools(),
    sidebarLayout(
      sidebarPanel(
        sliderInput( "obs",
          "Number of observations:",
          min = 0, max = 1000, value = 500)
      ),
      mainPanel(plotOutput("distPlot"))
    )
  )

  server <- function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
  }

  print(shinyApp(ui, server))
}

## End(Not run)

ardata-fr/shinytools documentation built on Nov. 15, 2019, 7:53 p.m.