Mostrar um pedaço de markdown R na saída final
Eu estou escrevendo em uma apresentação usando Knitr, Markdown e Slidify. Os slides serão parcialmente tratados com Knitr como tópico, motivo pelo qual me deparo com um problema. Eu não posso incluir, por exemplo, um pedaço knitr-markdown para mostrá-lo no slide. Ele sempre será interpretado na primeira execução, mesmo se eu fizer algo assim:
```
```{r eval = F, include = T}
```
```
Como posso evitar que uma parte seja interpretada e, assim, removida da saída final para que eu possa mostrar como uma parte é estruturada ao usar Markdown e Knitr?
EDITAR:
Eu tentei a versão do @Ramnath e fiz os seguintes slides:
## 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
```
Os dois primeiros slides funcionam bem, mas o último é o problema. Se houver uma lista de marcadores antes do pedaço textual, isso é interpretado como de costume. Então, é o mesmo que com a primeira solução do @Scott. Eu não entendo isso.
EDITAR 2/3 (solução de trabalho)
```{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
```