knitr::opts_chunk$set(echo = TRUE) library(luminophor) library(magrittr)
set.seed(122) histdata <- rnorm(500)
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
luminophor() %>% addWidget(id = "widget-slider", title = "Slider", caption = "Slider", icon = icon("sliders-h"), closable = FALSE, ui = sliderInput("myslider", "My Slider", 0, 100, 50)) %>% addWidget(id = "widget-plot", title = "Plot", ui = plotOutput("myplot"), closable = FALSE)
output$myplot <- renderPlot({ mydata <- histdata[seq_len(input$myslider)] hist(mydata) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.