I've created a gadget for editing probability distributions.  

This seems to work in inside of a Rmarkdown document.
```{r gadgetInRmd}
gadget <- MakeRegressionGadget(node)
shiny::shinyApp(gadget$ui,gadget$server,options(height=2000))
```

However, I'm trying to move this into a qmd document.  Here is my attempt:
```{r gadgetInQuarto}
#| context: server
gadget1 <- MakeRegressionGadget(node)
shiny::shinyApp(gadget1$ui,gadget1$server,options(height=2000))
```


Where node is defined in a bunch of code run in context setup.  

In the quarto version my code isn't rendering, and I'm wondering what I'm missing.

I suppose I could try running the function in `gadget$ui()` in a render context; however, then I don't know what to do with `gadget1$server()` which is a three argument function.

Source code for the gadgets is at https://github.com/ralmond/Peanut/R/shinyNode.R  if you are curious.

cscheid
2023-02-20T17:28:20Z
ralmond
needs-repro
closed
Including Shiny Gadgets in a Quarto Page
https://github.com/quarto-dev/quarto-cli/issues/4437