interaction-plot/ui.R at master · leeper/interaction-plot · GitHub

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
library("shiny")
library("shinyjs")

shinyUI(pageWithSidebar(
  titlePanel("", "3D Perspective Plot for Interaction Effects"),
  sidebarPanel(
    tabsetPanel(
      tabPanel("Data",
        sliderInput("b0", "Intercept:", min = -10, max = 10, value = 0, step = 0.5),
        sliderInput("b1", "Beta 1 (x1):", min = -10, max = 10, value = 0, step = 0.5),
        sliderInput("b2", "Beta 2 (x2):", min = -10, max = 10, value = 0, step = 0.5),
        sliderInput("b3", "Beta 3 (x1*x2):", min = -10, max = 10, value = 0, step = 0.5),
        sliderInput("nobs", "Number of Observations:", min = 10, max = 1000, value = 100, step = 10)
      ),
      tabPanel("Model",
        helpText("Select a model from those listed below"),
        selectInput("modelformula", "Model Formula",
                    c("y ~ x1", "y ~ x2", "y ~ x1 * x2", "y ~ x1 + x1:x2", "y ~ x2 + x1:x2", "y ~ x1:x2"),
                    selected = "y ~ x1 * x2", multiple = FALSE, selectize = TRUE)
      ),
      tabPanel("View",
        sliderInput("theta", "View azimuthal direction (theta):",
                    min = 0, max = 360, value = 45, step = 15),
        sliderInput("phi", "View colatitude (phi):",
                    min = 0, max = 360, value = 15, step = 15),
        sliderInput("distance", "View distance (d):",
                    min = 0, max = 1, value = 1, step = 0.05)
      ),
      tabPanel("Surface",
        sliderInput("density", "Grid Density:",
                    min = 2, max = 50, value = 10, step = 1),
        colourInput("color", "Surface color:", value = "gray", allowTransparent = FALSE),
        colourInput("border", "Border color:", value = "black", allowTransparent = FALSE),
        sliderInput("shade", "Shade:", min = 0, max = 1, value = 0.75, step = 0.05),
        sliderInput("ltheta", "Illumination azimuthal direction l(theta):",
                    min = 0, max = 360, value = 20, step = 10),
        sliderInput("lphi", "Illumination colatitude (lphi):",
                    min = 0, max = 360, value = 20, step = 10)
      ),
      tabPanel("Axes",
        checkboxInput("box", "Bounding box?", value = TRUE),
        checkboxInput("axes", "Axis Ticks?", value = TRUE),
        selectInput("ticktype", "Tick type", c("simple", "detailed"),
                    selected = "simple", multiple = FALSE, selectize = TRUE),
        sliderInput("nticks", "Number of ticks:", min = 2, max = 50, value = 6, step = 2),
        textInput("xlab", "x1 axis label:", value = "x1"),
        textInput("ylab", "x2 axis label:", value = "x2"),
        textInput("zlab", "Vertical axis label:", value = "y")
      ),
      tabPanel("Marginal Effects",
        selectInput("me_x2", "Marginal Effect of X1 at X2 = ", c(NA, as.character(seq(0, 1, by = 0.1))),
                    multiple = FALSE, selectize = TRUE),
        colourInput("me_x2_color", "Line Color:", value = "red", allowTransparent = FALSE),
        selectInput("me_x1", "Marginal Effect of X2 at X1 = ", c(NA, as.character(seq(0, 1, by = 0.1))),
                    multiple = FALSE, selectize = TRUE),
        colourInput("me_x1_color", "Line Color:", value = "red", allowTransparent = FALSE)
      )
    )#,
    #downloadButton("downloadImage", label = "Download Plot (.png)")
  ),
  mainPanel(
    headerPanel("Plot of Interaction Effects"),
    tabsetPanel(
      tabPanel("Perspective Plot", plotOutput("plot1"))
    )
  )
))