## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

## ----crosstalk_iris-----------------------------------------------------------
library(crosstalk)
library(lineupjs)

sharedIris <- SharedData$new(iris)

## ----crosstalk_iris_lineup1---------------------------------------------------
lineup(sharedIris, width = "100%")

## ----crosstalk_iris_lineup2---------------------------------------------------
lineup(sharedIris, width = "100%")