Commit b17dc9e9 authored by GAREL Marc's avatar GAREL Marc
Browse files

Add 2 panel, details about app

parent f3080adb
# Shiny app allowing: plot and parameters for microbial growth dataset
# Marc Garel, Severine Martini, Christian Tamburini
### October 2017
library(shiny)
shinyUI(fluidPage(
headerPanel("Application of a logistic model on microbial datasets"),
# load dataset
titlePanel("Upload file"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose CSV File',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv', '.txt')),
tags$hr(),
checkboxInput('header', 'Header', TRUE),
radioButtons('sep', 'Separator',
c(Comma=',',
Semicolon=';',
Tab='\t'),
','),
radioButtons('quote', 'Quote',
c(None='',
'Double Quote'='"',
'Single Quote'="'"),
'"')
),
mainPanel(tableOutput('contents'),
plotOutput('plot')
)
)
))
# Shiny app allowing: plot and parameters for microbial growth dataset
# Marc Garel, Severine Martini, Christian Tamburini
### October 2017
library(shiny)
shinyUI(fluidPage(
headerPanel("Application of a logistic model on microbial datasets"),
# load dataset
titlePanel("Upload file"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose CSV File',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv', '.txt')),
tags$hr(),
checkboxInput('header', 'Header', TRUE),
radioButtons('sep', 'Separator',
c(Comma=',',
Semicolon=';',
Tab='\t'),
','),
radioButtons('quote', 'Quote',
c(None='',
'Double Quote'='"',
'Single Quote'="'"),
'"')
),
mainPanel(
h4("Some details"),
verbatimTextOutput("txtout"),
tabsetPanel(
tabPanel("Data",tableOutput('contents')),
tabPanel("Plot",plotOutput('plot'), verbatimTextOutput('ex_out'))
)
)
)
))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment