ui.R

library(shiny)
# Define UI for application
shinyUI(fluidPage(
# Header or Title Panel 
  titlePanel(title = h4("Iris Dataset", align="center")),
  sidebarLayout(
# Sidebar panel
  sidebarPanel(
    selectInput("var", "1. Select the variable from the iris dataset", choices =c("Sepal.Length" = 1, "Sepal.Width" = 2, "Petal.Length" = 3, "Petal.Width" = 4), selected = 1),
    br(),
    sliderInput("bins", "2. Select the number of BINs for histogram", min=5, max = 25, value=15),
    br(), 
    radioButtons("color", "3. Select the colour of histogram", choices=c("Green", "Red", "Yellow"), selected ="Green")
    
    ),
  
  # Main Panel
  mainPanel(
tabsetPanel(type="tab", 
            tabPanel("Summary",verbatimTextOutput("sum")),
            tabPanel("Structure", verbatimTextOutput("str")),
            tabPanel("Data", tableOutput("data")),
            tabPanel("Plot", plotOutput("myhist"))
            
            )
                                
      )
    
    )
  )  
)