-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
36 lines (31 loc) · 821 Bytes
/
ui.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
library(shiny)
#library(tibble)
#library(ggplot2)
shinyUI(
fluidPage(
titlePanel("Easy decision tree"),
sidebarLayout(
sidebarPanel(
fileInput("file", "Choose csv file",
accept = c(
"text/csv",
"text/comma-separated-values,text/plain",
".csv")
),
tags$hr(),
htmlOutput("ydata"),
htmlOutput("xdata"),
htmlOutput("method"),
actionButton("submit", "Analyze")
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Table", tableOutput('table')),
tabPanel("Result",
plotOutput("plot"),
verbatimTextOutput("sum"))
)
)
)
)
)