ui.R

library(shiny)

## Warning: package 'shiny' was built under R version 4.3.3

library(shinydashboard)

## Warning: package 'shinydashboard' was built under R version 4.3.3

## 
## Attaching package: 'shinydashboard'

## The following object is masked from 'package:graphics':
## 
##     box

ui <- shinyUI(
  pageWithSidebar(
    headerPanel("Shiny app for mtcars - 21MIC0065"),
    sidebarPanel(
      selectInput("Cars", "please select the number of cylinders", choices = unique(mtcars$cyl)),
      sliderInput("sampleSize", "Pls select sample size", min = 0.1,max = 100, value = 2,step = 0.1)
    ),
    mainPanel(plotOutput("myPlot"))
  )
)