inst/app-olsrr/ui/ui_regress.R

In xplorerr: Tools for Interactive Data Exploration

tabPanel('Regression', value = 'tab_regress',
  fluidPage(
    br(),
    fluidRow(
      column(6, align = 'left',
        h4('Multiple Linear Regression'),
        p('Ordinary least squares regression.')
      ),
      column(6, align = 'right',
        actionButton(inputId='mlr1', label="Help", icon = icon("question-circle"),
          onclick ="window.open('https://olsrr.rsquaredacademy.com/reference/ols_regress.html', '_blank')"),
        actionButton(inputId='mlr3', label="Demo", icon = icon("video-camera"),
          onclick ="window.open('https://www.youtube.com/watch?v=X8b0beNJ64A#t=04m50s', '_blank')")
      )
    ),
    hr(),
    fluidRow(
      column(2, align = 'right', br(), h5('Model Formula:')),
      column(10, align = 'left',
          textInput("regress_fmla", label = '', width = '660px',
                          value = ""),
          bsTooltip("regress_fmla", "Specify model formula",
                    "left", options = list(container = "body")))
    ),
    fluidRow(
        column(12, align = 'center',
        br(),
        br(),
        actionButton(inputId = 'submit_regress', label = 'Submit', width = '120px', icon = icon('check')),
        bsTooltip("submit_regress", "Click here to view regression result.",
                      "bottom", options = list(container = "body")))
    ),
    fluidRow(
        br(),
        uiOutput('reg1_title'),
        # column(12, align = 'center', h4('Regression Result')),
        hr(),
        column(12, align = 'center', verbatimTextOutput('regress_out')),
        hr()
    )
  )
)