Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment