inst/app-olsrr/logic/logic_regress.R

d_regress <- eventReactive(input$submit_regress, {
	# validate(need((input$regress_fmla != ''), 'Please specify model'))
  data <- final_split$train
  k <- ols_regress(input$regress_fmla, data = data)
  k
})

model <- reactive({
	d_regress()
})

r1_title <- eventReactive(input$submit_regress, {
  column(12, align = 'center', h4('Regression Result'))
})

output$reg1_title <- renderUI({
  r1_title()
})

output$regress_out <- renderPrint({
    d_regress()
})


# main regression
all_use_n <- eventReactive(input$submit_regress, {
  data <- final_split$train
  k <- lm(input$regress_fmla, data = data)
  k
})

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on Feb. 28, 2019, 5:05 p.m.