diff --git a/.Rbuildignore b/.Rbuildignore
index 91114bf..112ad26 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -1,2 +1,3 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^\.travis\.yml$
diff --git a/.travis.yml b/.travis.yml
new file mode 100644
index 0000000..8d139ac
--- /dev/null
+++ b/.travis.yml
@@ -0,0 +1,5 @@
+# R for travis: see documentation at https://docs.travis-ci.com/user/languages/r
+
+language: R
+sudo: false
+cache: packages
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..a610539
--- /dev/null
+++ b/README.md
@@ -0,0 +1,122 @@
+[![Travis-CI Build Status](https://travis-ci.org/JohnCoene/fullPage.svg?branch=master)](https://travis-ci.org/JohnCoene/fullPage)
+
+# fullPage
+
+[fullPage.js](https://github.com/alvarotrigo/fullPage.js) for Shiny.
+
+## Installation
+
+You can install fullPage from github with:
+
+
+``` r
+# install.packages("devtools")
+devtools::install_github("JohnCoene/fullPage")
+```
+
+## Example
+
+This is a basic example which shows you how to solve a common problem:
+
+``` r
+library(shiny)
+
+options <- list(
+  sectionsColor = c('#f2f2f2', '#4BBFC3', '#7BAABE'),
+  parallax = TRUE
+)
+
+ui <- fullPage(
+  menu = c("Full Page" = "link1",
+           "Sections" = "link2",
+           "Slides" = "section3",
+           "backgrounds" = "section4"),
+  opts = options,
+  fullSection(
+    center = TRUE,
+    menu = "link1",
+    tags$h1("fullPage.js meets Shiny")
+  ),
+  fullSection(
+    menu = "link2",
+    fullContainer(
+      fullRow(
+        fullColumn(
+          h3("Column 1"),
+          selectInput(
+          "dd",
+          "data points",
+          choices = c(10, 20, 30)
+          )
+        ),
+        fullColumn(
+          plotOutput("hist")
+        ),
+        fullColumn(
+          plotOutput("plot")
+        )
+      )
+    )
+  ),
+  fullSection(
+    menu = "section3",
+    fullSlide(
+      fullContainer(
+        center = TRUE,
+        h3("With container"),
+        plotOutput("slideplot2"),
+        shiny::verbatimTextOutput("containerCode")
+      )
+    ),
+    fullSlide(
+      center = TRUE,
+      h3("Without container"),
+      plotOutput("slideplot1")
+    )
+  ),
+  fullSectionPlot(
+    menu = "section4",
+    "fp",
+    fullContainer(
+      sliderInput(
+        "fpInput",
+        label = "Input",
+        min = 10,
+        max = 100,
+        value = 74
+      )
+    )
+  )
+)
+
+server <- function(input, output){
+
+  output$plot <- renderPlot({
+    hist(rnorm(input$dd, 1, 10))
+  })
+
+  output$hist <- renderPlot({
+    hist(rnorm(input$dd, 1, 10))
+  })
+
+  output$slideplot1 <- renderPlot({
+    plot(mtcars$mpg, mtcars$drat)
+  })
+
+  output$slideplot2 <- renderPlot({
+    plot(mtcars$wt, mtcars$mpg)
+  })
+
+  output$fp <- renderPlot({
+    hist(rnorm(input$fpInput, 1, 10))
+  })
+
+  output$containerCode <- renderText({
+    "fullSlide(
+      fullContainer(...)
+    )"
+  })
+}
+
+shinyApp(ui, server)
+```
diff --git a/man/fullPlot.Rd b/man/fullPlot.Rd
index 39d3088..d95dd70 100644
--- a/man/fullPlot.Rd
+++ b/man/fullPlot.Rd
@@ -25,3 +25,45 @@ fullSlidePlot(outputId, ..., menu = NULL, center = FALSE,
 \description{
 Use plot as background
 }
+\examples{
+library(shiny)
+
+ui <- fullPage(
+  opts = list(sectionsColor = c('#4BBFC3', '#7BAABE')),
+  fullSection(h1("Full section plots"), center = TRUE),
+  fullSectionPlot(
+    "myPlot2",
+    center = TRUE,
+    fullContainer(
+      h2("With a title")
+    )
+  ),
+  fullSectionPlot(
+    "myPlot",
+    center = TRUE,
+    fullContainer(
+      h3("Layer anything you want"),
+      selectInput(
+        "select",
+        "Choose y",
+        choices = c("mpg", "drat", "wt")
+      )
+    )
+  )
+)
+
+server <- function(input, output){
+
+  output$myPlot <- renderPlot({
+    plot(1:nrow(mtcars), mtcars[[input$select]])
+  })
+
+  output$myPlot2 <- renderPlot({
+    plot(1:nrow(mtcars), mtcars[[input$select]])
+  })
+
+}
+
+shinyApp(ui, server)
+
+}