ui.R

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


shinyUI(fluidPage(title="HOBBIT: A webserver for prediction the oxygen affinity of human hemoglobin", theme=shinytheme("cerulean"),
                  navbarPage(strong("FPOP"),
                             tabPanel("Submit Job", titlePanel("HOBBIT: A webserver for prediction the oxygen affinity of human hemoglobin"),
                                      sidebarLayout(
                                        wellPanel(
                                          radioButtons("Selection", "Select the Sequence", list("Alpha", "Beta")),
                                          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("Fluorescent protein oligomerization"), div(includeMarkdown("about.md"), align="justify")),
                             tabPanel("Citing Us", titlePanel("Citing Us"), includeMarkdown("citingus.md")),
                             tabPanel("Contact", titlePanel("Contact"), includeMarkdown("contact.md"))	
                             
                  ) #navbarPage
) #fluidPage	
) #shinyUI