App-1/app.R

In raywoo32/phylogetree: Phylogenetic tree visualizer

# Enables Shiny Functionality

###########################################################
# CITATIONS:
# https://shiny.rstudio.com/tutorial/written-tutorial/
# https://rstudio.github.io/shiny/tutorial/#shiny-text
###########################################################

ui <- fluidPage(

  titlePanel("P H Y L O G E T R E E"),

  sidebarLayout(
    sidebarPanel(
      h3("CUSTOMIZE PLOT"),
      #br(),

      helpText("Note: help text isn't a true widget,",
               "but it provides an easy way to add text to",
               "accompany other widgets."),

      fileInput("file", h3("FILE INPUT")),

      radioButtons("radio", h3("PLOT TYPE"),
                          choices = list("dN/dS from CODEML 1" = 1, "Clade Support from BEAST" = 2,
                                         "Short Read Placement from EPA" = 3),selected = 1)
    ),
    mainPanel(
      h2("Plot Type", style = "color:grey"),

      textOutput("chosenFile")
    )
  )
)


server <- function(input, output) {
  output$chosenFile <- renderText({
    paste("Displaying data from", input$file)
    paste("Displaying data from", input$file)
  })
}

shinyApp(ui = ui, server = server)