disqus_shiny_example

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
   sidebarMenu(
    menuItem(
     "Comments",
     tabName = "disqus_here",
     icon = icon("info")
    )
   )
  ),
  dashboardBody(
     tabItems(
        tabItem(tabName = "disqus_here",
         div(id="disqus_thread",
         HTML(
"<script>
    (function() {  
        var d = document, s = d.createElement('script');
        
        s.src = '//CHANEL_NAME.disqus.com/embed.js';
        
        s.setAttribute('data-timestamp', +new Date());
        (d.head || d.body).appendChild(s);
    })();
</script>
<noscript>Please enable JavaScript to view the <a href='https://disqus.com/?ref_noscript' rel='nofollow'>comments powered by Disqus.</a></noscript>"
         )
        )
      )
    ),
    div(HTML('<script id="dsq-count-scr" src="//CHANEL_NAME.disqus.com/count.js" async></script>'))
  )
) 

server <- function(input, output, session) {
}

shinyApp(ui, server)