Показать фрагмент уценки R в окончательном выводе

Я пишу на презентации, используя Knitr, Markdown и Slidify. Слайды будут частично посвящены теме Knitr, поэтому я столкнулся с проблемой. Я не могу включить, например, блок knitr-markdown, чтобы показать его на слайде. Он всегда будет интерпретироваться при первом запуске, даже если я сделаю что-то вроде этого:

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

```
``` 

Как я могу предотвратить интерпретацию фрагмента и тем самым удалить его из окончательного результата, чтобы я мог показать, как структурирован блок при использовании Markdown и Knitr?

РЕДАКТИРОВАТЬ:

Я попробовал вашу версию @Ramnath и составил следующие слайды:

## 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
```

Первые два слайда работают нормально, но последний является проблемой. Если перед дословным фрагментом есть список маркеров, он интерпретируется как обычно. Так же, как и с первым решением от @Scott. Я не понимаю этого.

РЕДАКТИРОВАТЬ 2/3 (Рабочий раствор)

```{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
```

Ответы на вопрос(3)

Ваш ответ на вопрос