-
Notifications
You must be signed in to change notification settings - Fork 1
/
ui.R
45 lines (41 loc) · 1.6 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
# ----------------------------------------------------------------------------
# PRECIOUS METALS PRICE FORECAST
# File: ui.R
# (c) 2015 - Enrique Pérez Herrero
# 20/Dec/2015
# GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007
# ----------------------------------------------------------------------------
library(shiny)
library(shinythemes)
source('helpers.R')
shinyUI(fluidPage(
theme = shinytheme('united'),
titlePanel('PRECIOUS METALS PRICE FORECAST'),
sidebarLayout(
sidebarPanel(
selectInput('metal_id', 'Metal:', precious_metals),
selectInput('metal_curr', 'Currency:', currency_list),
wellPanel(
helpText(textOutput('text.sd')),
helpText(textOutput('text.ed'))
),
width = 3
),
mainPanel(tabsetPanel(
tabPanel('Prices Plot',
radioButtons('method', 'Method:', smooth_method),
plotOutput('prices.plot')
),
tabPanel('Prices Table', dataTableOutput('metals.table')),
tabPanel('Forecast Plot', plotOutput('prediction.plot')),
tabPanel('Forecast Table', dataTableOutput('table.arima')),
tabPanel('Arima model', verbatimTextOutput('text.arima')),
tabPanel('Differences Plot',
checkboxInput('chcklog', 'log10', value = TRUE),
plotOutput('diff.plot')
),
tabPanel('Residuals Plot', plotOutput('residuals.plot')),
tabPanel('Help', includeMarkdown('help.Rmd'))
))
)
))