Code Editor for app.R

library(shiny)

ui <- fluidPage(
  titlePanel("Simple Line Graph"),
  sidebarLayout(
    sidebarPanel(
      numericInput("points", "Number of points:", 100, min = 10, max = 1000)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    x <- seq(1, input$points)
    y <- sin(x/10) + rnorm(input$points, 0, 0.2)
    plot(x, y, type = "l", col = "blue", 
         main = "Random Sine Wave", 
         xlab = "Time", 
         ylab = "Value")
  })
}

shinyApp(ui = ui, server = server)