Example <!–html_preserve–> problem in knit2html

gistfile1.txt

library(shiny)
library(htmlwidgets)
library(knitr)


md.code = '
There are the annoying <!–html_preserve–> lines...

```{r "mychunk"}
textInput("myInput","Enter text","Hello World")
```

Setting results="asis" does not help...

```{r "mychunk2", results="asis"}
textInput("myInput2","Enter text","Hello World")
```

'
ui = shinyUI(fluidPage(
  uiOutput("knitr")
))

server = shinyServer(function(input, output, session) {
  output$knitr = renderUI({
    html = knitr::knit2html(text=md.code,fragment.only = TRUE)
    HTML(html)
  })
})

runApp(list(ui=ui, server=server))