R 显示对应列表项时如何显示代码块？

在以下RMarkdown MWE中：

---
title: "Untitled"
output: 
 beamer_presentation:
   slide_level: 2
---

# Paragraph

## Slide

Hello

>- This is the first item
>- This is the second item

  ```{r}
  a <- 2+2
  ```

---
标题：“无标题”
输出：
beamer_演示：
幻灯片U级别：2
---
#段落
##滑梯
你好
>-这是第一项
>-这是第二项
```{r}
a将代码包含在
块中。这很有效

---
title: "Untitled"
output: 
 beamer_presentation:
   slide_level: 2
---

# Paragraph

## Slide

Hello

>- This is the first item

>- This is the second item
> 
>   ```{r}
>   a <- 2+2
>   ```

---
标题：“无标题”
输出：
beamer_演示：
幻灯片U级别：2
---
#段落
##滑梯
你好
>-这是第一项
>-这是第二项
> 
>`{r}
>a```