-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
57 lines (41 loc) · 1.13 KB
/
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
library(shiny)
data <- read.csv("data.csv")
col = c("Samsung", "Apple", "Huawei")
x = seq(as.Date("2017/1/1"), by = "month", length.out = 33)
shinyUI(pageWithSidebar(
# Define UI for application that draws a histogram
headerPanel("Mobile Phone Market Share"),
sidebarPanel(
helpText("Select Company"),
selectInput("company", "Company:",
col),
),
mainPanel(
tabsetPanel(
tabPanel(
"Market Share History",
plotOutput("timeseries")
),
tabPanel(
"Prediction Plot",
plotOutput("prediction")
),
tabPanel(
"Residuals' Plot",
plotOutput("residuals")
),
tabPanel(
"Decomposed Plots",
plotOutput("decomposed")
)
)
)
))