ui.R

library(shiny)
library(shinythemes)
library(protr)
library(markdown)


shinyUI(fluidPage(title="HDPP: Host Defence Peptide Predictor", theme=shinytheme("journal"),
                  navbarPage(strong("HDPP"),
                             tabPanel("Submit Job", titlePanel("HDPP: Host Defence Peptide Predictor"),
                                      sidebarLayout(
                                        wellPanel(
                                          tags$label("Enter your input sequence(s) in FASTA format",style="float: none; width: 100%;"),
                                          actionLink("addlink", "Insert example data"),
                                          tags$textarea(id="Sequence", rows=5, cols=100, style="float: none; width:100%;", ""),
                                          #actionLink("addlink", "Insert example data"),
                                          #tags$label("or",style="float: none; width: 100%;"),
                                          fileInput('file1', 'or upload file',accept=c('text/FASTA','FASTA','.fasta','.txt')),
                                          # tags$label("Step 2 - Submit your job",style="float: none; width: 100%;"),
                                          actionButton("submitbutton", "Submit", class = "btn btn-primary"),
                                          actionButton("clearbutton", "Clear", class = "btn btn-danger")
                                        ), #wellPanel
                                        
                                        mainPanel(
                                          verbatimTextOutput('contents'),
                                          downloadButton('downloadData', 'Download CSV')
                                        )  
                                      ) #sidebarLayout
                             ), #tabPanel Submit Job
                             
                             tabPanel("About", titlePanel("Host Defence Peptides"), div(includeMarkdown("about.md"), align="justify")),
                             navbarMenu("Download",
                                        tabPanel("Data", titlePanel("Data"), includeMarkdown("data.md")),
                                        tabPanel("Analysis", titlePanel("Markdown"), includeMarkdown("HDP.md")),
                                        tabPanel("Github", titlePanel("Github"), tags$a(href="https://github.com/Rnewbie/HDP_Hao", "Click Here!"))),
                             tabPanel("Citing Us", titlePanel("Citing Us"), includeMarkdown("citingus.md")),
                             tabPanel("Contact", titlePanel("Contact"), includeMarkdown("contact.md"))	
                             
                  ) #navbarPage
) #fluidPage	
) #shinyUI