usage-shiny.R
In equatiomatic: Transform Models into 'LaTeX' Equations

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## -----------------------------------------------------------------------------
# library(equatiomatic)
# library(shiny)
# library(shinyWidgets)
# library(gtsummary)
# library(gt)
# 
# data("penguins", package = "equatiomatic")
# 
# ui <- fluidPage(
#   titlePanel("equatiomatic w/Shiny"),
#   sidebarLayout(
#     sidebarPanel(
#       multiInput(
#         inputId = "xvars", label = "Select predictor variables :",
#         choices = names(penguins)[-3],
#         selected = "island"
#       )
#     ),
#     mainPanel(
#       gt_output("tbl")
#     )
#   )
# )
# 
# server <- function(input, output) {
#   model <- reactive({
#     form <- paste("bill_length_mm ~ ", paste(input$xvars, collapse = " + "))
#     lm(as.formula(form), penguins)
#   })
# 
#   output$tbl <- render_gt({
#     as_gt(tbl_regression(model()))
#   })
# 
# }
# 
# shinyApp(ui = ui, server = server)

## -----------------------------------------------------------------------------
# library(equatiomatic)
# library(shiny)
# library(shinyWidgets)
# library(gtsummary)
# library(gt)
# 
# ui <- fluidPage(
#   titlePanel("equatiomatic w/Shiny"),
#   withMathJax(), # Initialize mathJax so the equation renders properly
#   sidebarLayout(
#     sidebarPanel(
#       multiInput(
#         inputId = "xvars", label = "Select predictor variables :",
#         choices = names(penguins)[-3],
#         selected = "island"
#       )
#     ),
#     mainPanel(
#       eqOutput("equation"),
#       gt_output("tbl")
#     )
#   )
# )
# 
# server <- function(input, output) {
#   model <- reactive({
#     form <- paste("bill_length_mm ~ ", paste(input$xvars, collapse = " + "))
#     lm(as.formula(form), penguins)
#   })
# 
#   output$equation <- renderEq(
#     extract_eq(model())
#   )
# 
#   output$tbl <- render_gt({
#     as_gt(tbl_regression(model()))
#   })
# 
# }
# 
# shinyApp(ui = ui, server = server)

## -----------------------------------------------------------------------------
# library(equatiomatic)
# library(shiny)
# library(shinyWidgets)
# library(gtsummary)
# library(gt)
# 
# ui <- fluidPage(
#   titlePanel("equatiomatic w/Shiny"),
#   withMathJax(),
#   sidebarLayout(
#     sidebarPanel(
#       multiInput(
#         inputId = "xvars",
#         label = "Select predictor variables :",
#         choices = names(penguins)[-3],
#         selected = "island"
#       )
#     ),
#     mainPanel(
#       eqOutput("eq2"),
#       eqOutput("equation"),
#       gt_output("tbl")
#     )
#   )
# )
# 
# server <- function(input, output) {
#   model <- reactive({
#     form <- paste("bill_length_mm ~ ", paste(input$xvars, collapse = " + "))
#     lm(as.formula(form), penguins)
#   })
# 
#   output$equation <- renderEq(
#       extract_eq(
#         model(),
#         wrap = TRUE,
#         terms_per_line = 2,
#         use_coefs = TRUE,
#         font_size = "Huge"
#     )
#   )
# 
#   output$tbl <- render_gt({
#     as_gt(tbl_regression(model()))
#   })
# 
# }
# 
# shinyApp(ui = ui, server = server)