Data Products Week 4

Makasani Christopher

3/2/2024

Coursera Developing Data Products Week 4: Peer Graded Assignment

Project criteria Write a shiny application with associated supporting documentation. The document should be thought of as whatever a user will need to get started using your application.

Slide with ui.R Output

library(shiny)
library(devtools)
ui <-fluidPage(
  
    titlePanel("My First App"),
    
    # Sidebar with a slider input for number
    sidebarLayout(
        sidebarPanel(
            sliderInput(inputId ="num",
                        label = "No input required",
                        min = 0,
                        max = 110,
                        value = 20),
        ),
        
        # Show a plot of the plot
        plotOutput("hist"),
        
    )
)

Slide with server.R Plot

library(shiny)

# Define server logic reguired
server <- function(input, output) {
    # Rcode
    
    output$hist <- renderPlot({
        hist(rnorm(input$num))
        
    })
    
}

Thank you