ui.R

library(shiny)
library(shinyjs)
library(shinythemes)
library(markdown)

shinyUI(fluidPage(title="ERpred: A web server for the discovery of estrogen receptor alpha and beta inhibitors", theme=shinytheme("united"),
                  useShinyjs(),
                  navbarPage(strong("ERpred"), collapsible = TRUE,
                             titleContent <- HTML("<b>ERpred</b>: A web server for the discovery of estrogen receptor alpha and beta inhibitors"),
                             tabPanel("Submit Job", titlePanel(titleContent),
                                      sidebarLayout(
                                        
                                        sidebarPanel(
                                          tags$label("Enter your input molecule(s) in SMILES notation",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('.smi','.csv','.txt')),
                                          # tags$label("Step 2 - Submit your job",style="float: none; width: 100%;"),
                                          actionButton("submitbutton", "Submit", class = "btn btn-primary"),
                                          HTML("<a class='btn btn-default' href='/hcvpred'>Clear</a>")
                                        ), #wellPanel
                                        
                                        mainPanel(
                                          tags$label("Status/Output",style="float: none; width: 100%;"),
                                          verbatimTextOutput('contents'),
                                          downloadButton('downloadData', 'Download CSV')
                                        )  
                                      ) #sidebarLayout
                             ), #tabPanel Submit Job
                             
                             #tabPanel("About", titlePanel("About"), div(includeMarkdown("about.md"), align="justify")),
                             #tabPanel("Citing Us", titlePanel("Citing Us"), includeMarkdown("cite.md")),
                             #tabPanel("Contact", titlePanel("Contact"), includeMarkdown("contact.md")),	
                             
                             copyright <- div(HTML("<br><table border=0 cellpadding=10 cellspacing=10 width='100%' height='50'><tr><td bgcolor='#f2f2f2' align='center'>Copyright © 2020 <a href='http://codes.bio'>codes.bio</a>. All rights reserved.</td></tr></table>")),
                             cat(as.character(copyright))
                  ) #navbarPage
) #fluidPage	
) #shinyUI