RegressionPlot/ui.R at master · timbook/RegressionPlot · 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
library(shiny)

fluidPage(
  titlePanel("Regression Simulator"),
  sidebarLayout(
    sidebarPanel(
      plotOutput("plot1", click = "plot_click"),
      br(),
      "The line of best fit is:",
      br(),
      div(style = "color: blue", strong(textOutput("line_text"))),
      br(),
      "and the correlation is:",
      div(style = "color: blue", strong(textOutput("corr_text"))),
      br(),
      downloadButton("save_button", "Export Data"),
      actionButton("reset_button", "Reset Points"),
      br(),
      br(),
      div(style = "font-size: 12px; color: grey; text-align: right",
          em("Made by Timothy K. Book."),
          br(),
          em("See more applets at timothykbook.wix.com/home")
      )
    ),
    mainPanel(
      tableOutput("my_data_table")
    )
  )
)