1

我正在尝试在我闪亮的 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

先感谢您。

4

0 回答 0