如何在我闪亮的R应用程序中添加垂直社交共享栏？

Question

我正在尝试在我闪亮的R应用中添加一个垂直浮动社交栏。我从sharebutton.net获得了HTML代码，现在是：

<script>
document.write('<script src="//sharebutton.net/plugin/sharebutton.php? type=vertical&u=' + encodeURIComponent(document.location.href) + '"></scr' + 'ipt>');

这是我的代码：

require(shiny)
require(shinydashboard)

ui=shinyUI(fluidPage(
titlePanel("title panel"),
tabsetPanel(
tabPanel("Panel 1"),
tabPanel("Panel 2")),
tags$script(HTML("<script>
               document.write('<script src=\"//sharebutton.net/plugin/sharebutton.php?type=vertical&u=' 
               + encodeURIComponent(document.location.href) + '\"></scr' + 'ipt>');"))))
server <- function(input, output){}
shinyApp(ui, server)

我没有错误，但也没有社交栏。另外，如何在此社交栏中添加文字和我的网页？最终结果应该是PERMUTATION TEST

提前谢谢。