Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
---
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))
})
```
@Inkimar

This comment has been minimized.

Copy link
Owner Author

@Inkimar Inkimar commented Jul 30, 2020

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.") })     
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment