Access Selected Tab Value in Quarto Shiny Dashboard

[erikdeluca]

Description

Hello Quarto team,

I hope you’re doing well. I’m working on a dashboard using Quarto with Shiny and noticed a limitation that could be a beneficial feature for the user community.

I propose adding functionality to easily access the value of the currently selected tab within a Quarto Shiny dashboard. This feature would allow developers to conditionally perform actions or update components based on user interaction with different tabs. I would need something like input$active_tab.

Here’s an example of my current setup, where I need to determine which tab is selected:

---
title: "panel-tabset"
format: dashboard
server: shiny
---

'```{r}
#|context: setup

data(trees)
data(mtcars)
'```

# Input {.sidebar}

::: panel-tabset
## mtcarst 

'```{r}
selectInput("axis_x_mtcars",
            "axis x",
            choices = names(mtcars),
            selected = names(mtcars)[1]
)

selectInput("axis_y_mtcars",
            "axis y",
            choices = names(mtcars),
            selected = names(mtcars)[4]
)
'```

## trees

'```{r}
selectInput("axis_x_trees",
            "axis x",
            choices = names(trees),
            selected = names(trees)[1]
)

selectInput("axis_y_trees",
            "axis y",
            choices = names(trees),
            selected = names(trees)[2]
)
'```
:::

# Plot

'```{r}
plotOutput("plot_data")
'```


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

library(ggplot2)
library(tidyverse)

dataset <- reactive({
  # if (input$active_tab == "mtcars") {
    mtcars %>%
      select(x = input$axis_x_mtcars,
             y = input$axis_y_mtcars)
  # } else {
  #   trees %>%
  #     select(x = input$axis_x_trees,
  #            y = input$axis_y_trees)
  # }
})


output$plot_data <- renderPlot({
  ggplot(dataset(), aes(x, y)) +
    geom_point()
})
'```

Thanks

Best regards

[mcanouil]

This is already tracked and more generally than dashboard:

• Allow to link/anchor to specific tab in tabset #11830