README init

.Rbuildignore

@@ -1,2 +1,3 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^\.travis\.yml$

.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

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)
+```