inst/examples/R/data/pca/reduction/ui.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

library("shiny")

shinyUI(fluidPage(
  div(class="navbar navbar-static-top",
      div(class = "navbar-inner", 
          fluidRow(column(12, div(class = "brand pull-left", "PCA - Dimension reduction"))
          ))),
  sidebarLayout(
    sidebarPanel(
      sliderInput("angle", "Blue line angle (in degree)", 0, 180, 90),
      hr(),
      tableOutput("outputValues")
    ),
    mainPanel(plotOutput("outputPlot"))
  )
))