如何在 R Markdown 中选择特定选项卡？

Question

我需要从 R Markdown 文档中的 tabset 中选择一个标签（使用 Shiny 运行时）。

我遵循How to select a specific tabPanel in Shiny 中的示例，并尝试使其适应 R Markdown。我将ids 添加到tabset / tab，并在updateTabsetPanel() 调用中使用它们，但它似乎不起作用。 （我使用了在结果仪表板中检查单个 HTML 元素时弹出的名称。）

如何通过单击按钮从tabset 中选择“Chart3”选项卡？

编辑：我需要能够以编程方式选择特定选项卡（例如通过observeEvent() 调用），而不仅仅是在启动时。

---
title: "Tabset Column"
output: flexdashboard::flex_dashboard
runtime: shiny
---
    
Column 
-------------------------------------
    
### Chart 1
    
```{r}
actionButton("switch_tab", "Switch tab", width=200)
```
   
Column {#mytabset .tabset}
-------------------------------------
   
### Chart 2

```{r}
```   
 
### Chart 3 {#mytab}
    
```{r}
observeEvent(input$switch_tab, {
    updateTabsetPanel(session, inputId = "section-mytabset", selected = "#section-mytab")
})
```

Answer 1

{.active} 属性可以在启动仪表板时回答您的问题（静态解决方案），并与 html_document 一起使用：

---
title: "Active Tabset"
output: html_document
---
    

Column {.tabset}
-------------------------------------
   
### Tab 1

Some text
 
### Tab 2 {.active}

Some other text

不幸的是，这不适用于Flexdashboard：

---
title: "Active Tabset"
output: flexdashboard::flex_dashboard
---
    

Column {.tabset}
-------------------------------------
   
### Tab 1

Some text
 
### Tab 2 {.active}

Some other text

该问题已被通知here，但由于自动锁定而被关闭。
为了遵守RMarkdownissue guide的等待期结束，我用上面的Minimal Reproducible Example提交了new issue。

编辑： 这个请求是taken into account，所以这应该很快就会与 Shiny Dashboard 一起使用。

Answer 2

您可以将actionButton 本身包装在tags$a 中，并链接到#section-mytab，而不是observeEvent。请注意，使用runtime: shiny时，您必须在选项卡名称前添加section-。

这是否解决了您的问题，或者您需要它与observeEvent 一起使用？

---
title: "Tabset Column"
output: flexdashboard::flex_dashboard
runtime: shiny
---

Column 
-------------------------------------
  
### Chart 1
  
```{r, echo = FALSE}
tags$a(href = "#section-mytab",
  shiny::actionButton("btn1", "go to mytab")
       )
```

Column {.tabset}
-------------------------------------
    
### Chart 2

```{r}

```   
  
### Chart 3 {#mytab}
  
```{r}

```

如果需要，可以使用 {shinyjs} 和不可见的 actionButton 将上述逻辑与 observeEvent 结合使用。诀窍就在这里，我们仍然使用actionButton 来触发选项卡。但是实际的按钮没有显示display: none（重要的是，按钮没有设置为hidden，因为这会阻止它被点击）。然后我们创建另一个actionButton，由observeEvent 观察。这可以触发其他计算等，最后是actionButton 上的click，未显示。如果您有更多页面并且想要从第 1 页跳转到第 2 页上的选项卡 3，那么我们将需要两个 clicks：一个更改页面，一个激活选项卡。但是我们都可以在observeEvent 中触发它。它很老套，看起来不像是好代码，但从好的方面来说，它可以工作，即使没有自定义 javascript 函数。

---
title: "Tabset Column"
output: 
flexdashboard::flex_dashboard
runtime: shiny
---

```{r global, echo = FALSE}
library(shiny)
library(shinyjs)
useShinyjs(rmd = TRUE)
```


Column 
-------------------------------------
  
### Chart 1

```{r, echo = FALSE}
observeEvent(input$btn1, {
  # do some calculations here
  click("btn2")})
 
shiny::actionButton("btn1", "do something")

tags$a(href = "#section-mytab",
  # set this button to `display: none;` but *not* to `hidden`
  shiny::actionButton("btn2", "go to mytab", style = "display: none")
  )
```

Column {.tabset}
-------------------------------------

### Chart 2

```{r}

```   
  
### Chart 3 {#mytab}
  
```{r}

```