R for Interactive Reports

library(dygraphs)

# Generate some data
lungDeaths <- cbind(mdeaths, fdeaths)
# Plot
dygraphs::dygraph(lungDeaths) %>%
  dySeries("mdeaths", label = "Male") %>%
  dySeries("fdeaths", label = "Female") %>%
  dyOptions(stackedGraph = TRUE) %>%
  dyRangeSelector(height = 20)

library(DT)

# Create Sample Dataset
m = matrix(runif(1000 * 4), ncol = 4, dimnames = list(NULL, letters[1:4]))
m = cbind(id = seq_len(nrow(m)), round(m, 2))
# Create table
DT::datatable(m, , extensions = "Scroller", options = list(dom = "frtiS", scrollY = 200, 
    scrollCollapse = TRUE))