Reactivity issues in shiny/markdown

Question

I am trying to include a interactive chunk in a HTML Markdown document, with the following code, if I select and run the UI,server and ShinyApp sections I get the desire res