Zeigen Sie einen R-Abschriftenblock in der endgültigen Ausgabe an

Ich schreibe in einer Präsentation mit Knitr, Markdown und Slidify. Die Folien werden sich teilweise mit Knitr als Thema befassen, weshalb ich auf ein Problem gestoßen bin. Ich kann zum Beispiel keinen Knitr-Markdown-Block einfügen, um ihn auf der Folie anzuzeigen. Es wird immer beim ersten Durchlauf interpretiert, auch wenn ich so etwas mache:

```
```{r eval = F, include = T}

```
``` 

Wie kann ich verhindern, dass ein Block interpretiert und somit aus der endgültigen Ausgabe entfernt wird, damit ich zeigen kann, wie ein Block bei Verwendung von Markdown und Knitr strukturiert ist?

BEARBEITEN:

Ich habe die Version von you @Ramnath ausprobiert und die folgenden Folien erstellt:

## Testslide 1

```{r verbatimchunk, verbatim = TRUE}
x = 1 + 1
x
```

```{r regularchunk}
x = 1 + 1
x
```

---

## Testslide 2

```{r verbatimchunk_2, verbatim = TRUE}
x = 1 + 1
x
```

* element 1
* element 2

---

## Testslide 3

* element 1
* element 2


```{r verbatimchunk_3, verbatim = TRUE}
x = 1 + 1
x
```

Die ersten beiden Folien funktionieren einwandfrei, aber die letzte ist das Problem. Befindet sich vor dem wörtlichen Teil eine Aufzählung, wird diese wie gewohnt interpretiert. Es ist also dasselbe wie bei der ersten Lösung von @Scott. Ich verstehe das nicht.

EDIT 2/3 (Arbeitslösung)

```{r echo = FALSE}
require(knitr)
hook_source_def = knit_hooks$get('source')
knit_hooks$set(source = function(x, options){
  if (!is.null(options$verbatim) && options$verbatim){
    opts = gsub(",\\s*verbatim\\s*=\\s*TRUE\\s*", "", options$params.src)
    bef = sprintf('\n\n    ```{r %s}\n', opts, "\n")
    stringr::str_c(bef, paste(knitr:::indent_block(x, "    "), collapse = '\n'), "\n    ```\n")
  } else {
     hook_source_def(x, options)
  }
})
```

## Testslide

* Element one
* Element two


Some text here breaks list environment:

```{r verbatim = T}
any code
```