commenting

app.R

@@ -1,12 +1,3 @@
-#
-# This is a Shiny web application. You can run the application by clicking
-# the 'Run App' button above.
-#
-# Find out more about building applications with Shiny here:
-#
-#    http://shiny.rstudio.com/
-#
-
 library(shiny)
 library(agridat)
 library(tidyverse)
@@ -15,13 +6,13 @@ data1<-cox.stripsplit
 data1$none<-"1"
 data1$x<-data1$soil
 
-# Define UI for application that draws a histogram
+
 ui <- fluidPage(
 
-    # Application title
+
     titlePanel("Factorial Experiments Presentation"),
 
-    # Sidebar with a slider input for number of bins 
+
     sidebarLayout(
         sidebarPanel(
             selectInput("outcome",
@@ -36,14 +27,14 @@ ui <- fluidPage(
         htmlOutput("bucketlist")
         ),
 
-        # Show a plot of the generated distribution
+
         mainPanel(
            plotOutput("Plot1")
         )
     )
 )
 
-# Define server logic required to draw a histogram
+
 server <- function(input, output) {
 
 output$Plot1 <- renderPlot({