shiny app scripts

FinalProject/ui.r

+library(shiny)
+library(shinydashboard)
+
+shinyUI(fluidPage(
+  titlePanel("Linear Regression App"),
+  p("Author: Bruna Wundervald - 2015"),
+  hr(),sidebarLayout(
+    sidebarPanel(
+      checkboxInput(inputId="example",
+                    label= "Let's see an example?",
+                    value=FALSE),
+      conditionalPanel("input.example",
+                       selectInput(inputId="longleyy",
+                                   label="Choose an response variable.",
+                                   choices=names(longley),
+                                   selected=""),
+                       checkboxGroupInput(inputId="longleyx",
+                                          label="Choose the explanatory
+                                          variables.",
+                                          choices=names(longley))
+      ),
+      checkboxInput(inputId="user",
+                    label= "Upload my own file",
+                    value=FALSE),
+      conditionalPanel("input.user",
+                       fileInput(inputId="file",
+                                 label="Choose your file",
+                                 accept=c(
+                                   'text/csv',
+                                   'text/comma-separated-values',
+                                   '.csv')),
+                       checkboxInput(inputId="header",
+                                     label="Header",
+                                     value=TRUE),
+                       radioButtons(inputId="separator",
+                                    label="Separator",
+                                    choices=c("Comma"=",",
+                                              "Semicolon"=";",
+                                              "Tab"="\t"),
+                                    selected=","),
+                       radioButtons(inputId="decimal",
+                                    label="Numeric decimal",
+                                    choices=c(Period=".",
+                                              Comma=","),
+                                    selected="."),
+                       radioButtons(inputId="quotation",
+                                    label="Quote",
+                                    choices=c(
+                                      None="",
+                                      Double='"',
+                                      Single="'"),
+                                    selected='"'),
+                       actionButton(inputId="run",
+                                    label="Run"),
+                       hr(),
+                       selectInput(inputId="yvar",
+                                   label="What's your response variable?",
+                                   choices=names("input.file"),
+                                   selected=""),
+                       checkboxGroupInput(inputId="choosenvar",
+                                          label="What's your explanatory variables?",
+                                          choices=names("input.file")),
+                       hr(),
+                       radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
+                   inline = TRUE),
+                       downloadButton(outputId="download",
+                                      label="Download Report",
+                                      class = NULL)
+      ),
+                       hr(),
+                       div(HTML("<br> Developed at LEG - UFPR,
+under the orientation of Professor Walmes Zeviani.
+<br>
+               <a 'target='_blank'>www.leg.ufpr.br/~walmes")
+                       )),
+      mainPanel(
+        tabsetPanel(type = "pills",
+                    tabPanel(title="Instructions",
+                             htmlOutput("instructions")),
+                    tabPanel(title="Dataset",
+                             dataTableOutput("table")),
+                    tabPanel(title="Model Summary",
+                             verbatimTextOutput("model")),
+                    tabPanel(title="ANOVA",
+                             verbatimTextOutput("anova")),
+                    tabPanel(title="Plots",
+                             plotOutput("plots"))
+
+        )))
+  )
+)
+
+
+
+
+