如何在闪亮的 r 中嵌入 facebook post？

Question

我正在尝试使用 facebook SKD 在我的 Shiny 应用程序中嵌入 post。我有 public post.

的 iframe

<iframe src="https://www.facebook.com/plugins/post.php?href=https%3A%2F%2Fwww.facebook.com%2Fladygaga%2Fposts%2F10157645664974574&width=500" width="500" height="594" style="border:none;overflow:hidden" scrolling="no" frameborder="0" allowTransparency="true" allow="encrypted-media"></iframe>

目前我正在使用闪亮的 HTML() 函数，我设法在开发者控制台中看到了 fb_iframe_widget。但是 post 没有显示。

这是我目前的方法：

ui <- fluidPage(
HTML('<div id="fb-root"></div>
     <script async defer crossorigin="anonymous" src="https://connect.facebook.net/en_US/sdk.js#xfbml=1&version=v3.3"></script>')

HTML('<iframe src="https://www.facebook.com/plugins/post.php? href=https%3A%2F%2Fwww.facebook.com%2Fladygaga%2Fposts%2F10157645664974574&width=500" width="500" height="594" style="border:none;overflow:hidden" scrolling="no" frameborder="0" allowTransparency="true" allow="encrypted-media"></iframe>')
))

我也试过他们在这里做的事情：

没用。我得到了 iframe 但没有 post.

Answer 1

您的代码运行良好。但您需要在单独的浏览器中打开该应用程序。 Iframe 在 Rstudio 查看器窗格中不起作用。

如何在闪亮的 r 中嵌入 facebook post？

How to embed facebook post in shiny r?

facebook

r

facebook-javascript-sdk

shiny