r4ds/quarto/quarto-shiny.qmd

---
format: html
server: shiny
---

```{r}
library(shiny)

textInput("name", "What is your name?")
numericInput("age", "How old are you?", NA, min = 0, max = 150) 
```

```{r}
#| context: server
```