minimal.Rmd

---
title: "Basic RMarkdown Shiny"
author: "Chris Beeley"
output: html_document
runtime: shiny
---

# Example RMarkdown document

This is an interactive document written in *markdown*. As you can see it is easy to include:

1. Ordered lists
2. *Italics*
3. **Bold type**
4. Links to [Documentation](http://rmarkdown.rstudio.com/authoring_shiny.html)

## This is heading two

Perhaps this introduces the visualisation below.

```{r, echo=FALSE}

sliderInput("sampleSize", label = "Size of sample",
            min = 10, max = 100, value = 50, step = 1)

renderPlot({
  
  hist(runif(input$sampleSize))
  
})

```

Shiny , ui.R and server.R

ui.R

library(shiny) #load shiny at beginning of both scripts

fluidPage(
  titlePanel("Minimal Application"),
  sidebarLayout(
    sidebarPanel(
      textInput(inputId = "comment",
                label ="Say something",
                value ="")),
    mainPanel(
      h3("This is you saying it"),
      textOutput("textDisplay")
    )
    )
  )

server.R

library(shiny) #load shiny at beginning of both scripts

function(input, output) {
  output$textDisplay = renderText({
    paste0("You said '", input$comment,
           "'.There are ", nchar(input$comment),  
           " characters in this.") })     
}