I am the author of the equatiomatic R package. I would like to write and export `renderEq()`

and `eqOutput()`

functions to make it easier to use with Shiny. Unfortunately, I can't figure it out. The below works for a basic shiny app.

```
library(shiny)
library(shinyWidgets)
library(ggplot2)
library(equatiomatic)
library(gtsummary)
library(gt)
ui <- fluidPage(
titlePanel("equatiomatic w/Shiny"),
sidebarLayout(
sidebarPanel(
multiInput(
inputId = "xvars", label = "Select predictor variables :",
choices = names(mpg)[-8],
selected = "displ"
)
),
mainPanel(
uiOutput("eq"),
gt_output("tbl")
)
)
)
server <- function(input, output) {
model <- reactive({
form <- paste("hwy ~ ", paste(input$xvars, collapse = " + "))
lm(as.formula(form), mpg)
})
output$eq <- renderUI(
withMathJax(
helpText(
equatiomatic:::format.equation(
extract_eq(model(), wrap = TRUE, terms_per_line = 3)
)
)
)
)
output$tbl <- render_gt({
as_gt(tbl_regression(model()))
})
}
shinyApp(ui = ui, server = server)
```

I'd really like to simplify this so the Ui part is just `eqOutput("eq")`

and the server part is something like

```
output$eq <- renderEq(
extract_eq(model(), wrap = TRUE, terms_per_line = 3)
)
```

I know of `htmlwidgets::shinyWidgetOutput()`

but that doesn't seem to help in this case because I'm trying to modify a UI element.

Any help would be greatly appreciated.