/
ui.R
124 lines (82 loc) · 2.78 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
library(shiny)
library(ggplot2)
shinyUI(navbarPage("Web Testing", id = "nav",
tabPanel("Conversion Rate",
sidebarLayout(sidebarPanel(
numericInput("conversionsControl", label = h5("Control Group Conversions"), value = 100),
numericInput("conversionsTest", label = h5("Test Group Conversions"), value = 100),
numericInput("observationsControl", label = h5("Control Group Observations"), value = 1000),
numericInput("observationsTest", label = h5("Test Group Observations"), value = 1000),
numericInput("numOfTestGroups", label = h5("Number of Test Groups"), value = 1)
),
mainPanel(
fluidRow(
column(10,
h3("Test Results"),
hr(),
textOutput('testPvalue'),
hr(),
textOutput('testEstimate'),
hr(),
textOutput('testConfInt')
)
)
)
)
),
tabPanel("Data",
sidebarLayout(sidebarPanel(
fluidRow(
fileInput("itemData", label = h4("Upload Item Data as CSV"))
),
fluidRow(
fileInput("userData", label = h4("upload User Data as CSV"))
)
),
mainPanel(
h3("Item Data:"),
hr(),
h5("Variable names must match the following exactly: idInventory, Alt, idorder, billingAddress1, shipAddress1, soldPrice,
shipPrice, date, trackingIdentifier, tbWeight, methodInternal, shipCost, idShipment"),
hr(),
fluidRow(
textOutput("errorCheck")
),
hr(),
h3("User Data:"),
hr(),
h5("Variable names must match the following exactly: Alt, trackingIdentifier, date"),
hr(),
fluidRow(
textOutput("errorCheckUser")
)
)
)
),
tabPanel("Profitability",
sidebarLayout(sidebarPanel(
checkboxInput("includeDropShip", label = "Include Drop Shippers", value = TRUE), #add explanation
hr(),
checkboxInput("includeNonShipped", label = "Include Orders That Have Not Shipped", value = TRUE),
hr(),
numericInput("perItemCost", label = h5("Enter per item cost"), value = 1.05),
hr(),
numericInput("weightBasedCost", label = h5("Enter cost per 1/100th lb"), value = 0.0015)
),
mainPanel(
plotOutput("profitPerUserPlot"),
hr(),
dataTableOutput("tTester")
)
)
),
tabPanel("Summary",
sidebarLayout(sidebarPanel(
downloadButton('downloadData', 'Download')
),
mainPanel(
dataTableOutput(outputId = 'summaryTable')
# put download option here
)
))
))