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

我正在尝试在我闪亮的R应用程序中添加一个垂直浮动的社交栏。我从中获得了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)

require（闪亮）
要求（仪表板）
ui=shinyUI（fluidPage(
标题板（“标题板”），
选项卡面板(
选项卡面板（“面板1”），
选项卡面板（“面板2”），
标记$script（HTML（“
文件。写（“”）；“”）
你找到答案了吗？你找到答案了吗？