ui.R

In rforbiodatascience21/Group8_Shiny: What the Shiny App Does (Title Case)

library(shiny)
library(tidyverse)

dataset <- diamonds


fluidPage(
  
  titlePanel("DNA translation"),
  
  sidebarPan(
    
    sliderInput('sampleSize', 'Sample Size', min=1, max=nrow(dataset),
                value=min(1000, nrow(dataset)), step=500, round=0),
    textInput(inputId = , label = "DNA fasta sequence"),
    selectInput('x', 'X', names(dataset)),
    selectInput('y', 'Y', names(dataset), names(dataset)[[2]]),
    selectInput('color', 'Color', c('None', names(dataset))),
    
    checkboxInput('jitter', 'Jitter'),
    checkboxInput('smooth', 'Smooth'),
    
    selectInput('facet_row', 'Facet Row', c(None='.', names(dataset))),
    selectInput('facet_col', 'Facet Column', c(None='.', names(dataset)))
  ),
  
  mainPanel(
    plotOutput('plot')
  )
)