How to make reactive valueBox in quarto dashboard?

[saleylabo]

Description

---
title: "Monitoring Dashboard"
subtitle: "contry"
format: dashboard
server: shiny
---

```{r}
#| context: setup

if(!require(pacman)) install.packages("pacman")
pacman::p_load(tidyverse, 
           bslib,
           bsicons,
           DT,
           shinydashboard)


# download data

load("data.Rdata")

```
# row

```{r}
#| context: server
sidebarPanel(
  selectInput(
    "year",
    label = "Année du suivi",
    choices = unique(data$year),
    selected = "2024", 
    multiple = FALSE
  )
)
```

# row 
```{r}
datatable(data)
```

# row 

```{r}
#| context: server
filtered_data <- reactive({
    data %>%
      filter(year == input$year) %>%
       distinct(`Région`,	`Département`,	`Commune`, `site`)%>%
    nrow()
})
```

```{r}
#| context: server
#| content: valuebox
#| title: "Nombe de site visité"
    list(icon ="activity",
         color = "#779CB9",
         value = filtered_data()
        )
```

[mcanouil]

Could you properly format your post using code blocks for code and terminal outputs? Thanks.
If your code contains code blocks, you need to enclose it using more backticks, i.e., usually four ````.
See https://quarto.org/bug-reports.html#formatting-make-githubs-markdown-work-for-us.

Also, please make your example small and reproducible.

For reference:

• https://quarto.org/docs/dashboards/interactivity/
• https://quarto.org/docs/dashboards/data-display.html#value-boxes
• https://quarto.org/docs/gallery/

[saleylabo]

thanks @mcanouil I just format my script. I have already read quarto.org documents and I have not find solution for a reactive value in value box

[mcanouil]

If you use the whole tidyverse and its 100+ directs/indirects dependencies, don't load it.
A small reproducible example is:

• small
• reproducible: we don't have your Rdata
• has only the required dependencies and nothing else: do we need to install pacman? The whole tidyverse?

The process of building a really small reproducible example is the step that usually help to find the solution before even asking to others.
This helps others focus on what matters instead of spending time installing all the dependencies, etc.

[mcanouil]

And you probably want to read the documentation once more, especially about what context: server means.
You might as well read the Shiny documentation to clearly understand the two side of the application: UI versus server.

• https://quarto.org/docs/dashboards/interactivity/shiny-r.html
• https://quarto.org/docs/interactive/shiny/execution.html

[mcanouil]

Here is an example using only the documentations I've linked in my previous comments (especially https://quarto.org/docs/dashboards/data-display.html#shiny in the "value boxes" section)

---
format: dashboard
server: shiny
---

```{r}
#| context: setup
library(shiny)
library(bslib)
library(bsicons)
```

```{r}
#| context: server
ss <- reactive(input[["sampleSize"]])

output$ss <- renderText({
  ss()
})
```

# {.sidebar}

```{r}
sliderInput(
  "sampleSize",
  "Sample Size",
  min = 1,
  max = 10,
  value = 5,
  step = 1,
  round = 0
)
```

# Plot

```{r}
value_box(
  title = "The current sample size",
  value = textOutput("ss"),
  showcase = bs_icon("clock"),
  theme = "purple"
)
```

[saleylabo]

Thank you alot @mcanouil your example helped. My script run correctly now. In my case I have to calculate the nrow of my data.

```{r}
#| context: server
ss<- reactive(
  data %>% 
  filter(year == input$year) %>% 
  distinct(`Région`,	`Département`,	`Commune`, `Site`)%>%
 nrow()
)

output$ss <- renderText({
  ss()
})
```

```{r}
value_box(
  title = "Nombre de sites visités",
  value = textOutput("ss"),
  showcase = bs_icon("activity"),
  theme = "purple"
)
```