Add ui.R

Bradford/ui.R

+fluidPage(
+  title = 'Download a PDF report',
+  sidebarLayout(
+    sidebarPanel(
+      helpText(),
+      selectInput('x', 'Build a regression model of mpg against:',
+                  choices = names(mtcars)[-1]),
+      radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
+                   inline = TRUE),
+      downloadButton('downloadReport')
+    ),
+    mainPanel(
+      plotOutput('regPlot')
+    )
+  )
+)
\ No newline at end of file