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

我需要从中选择一个选项卡tabset在 R Markdown 文档中（使用 Shiny 运行时）。

我按照中的例子如何在Shiny中选择特定的tabPanel，并尝试将其适配为 R Markdown。我添加了ids 到选项卡集/选项卡，并在updateTabsetPanel()打电话，但好像没用。 （我使用了在检查结果仪表板中的各个 HTML 元素时弹出的名称。）

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

编辑：我需要能够以编程方式选择特定选项卡（例如通过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")
})
```

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

这可以解决您的问题还是您需要它来使用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}

```

如果需要，上面的逻辑可以与observeEvent使用 {shinyjs} 和不可见的actionButton。技巧就在这里，我们仍然使用actionButton触发选项卡。但实际按钮并未显示display: none（重要的是，该按钮未设置为hidden，因为这会阻止它被点击）。然后我们创建另一个actionButton这是由观察到的observeEvent。这可以触发其他计算等，最后click on the actionButton这没有显示。如果您有更多页面并且想要从第 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}

```