如何在R Shiny应用程序中显示嵌入式推文？

我正在整理仪表板的atm，并尝试在页面上显示一条推文。我正在使用tweetrmd软件包来执行此操作，但它似乎不起作用

这是我的UI代码的一部分

library(tidyverse)
library(shiny)
library(rtweet)
library(tweetrmd)

screenshot <- tweet_screenshot(tweet_url("Metro", "1251153881209307136"))
# UI

list(
  ui <- tagList(
    includeCSS("style.css"),
    navbarPage("#Corona",
               windowTitle = "#Corona",
                 tabPanel("Twitter",
                          sidebarLayout(
                            sidebarPanel(
                              h2("Algemene twitter data", align = "left"),
                              ),
                            mainPanel(
                              tabsetPanel(
                                id = "Tabs", 
                                  tabPanel(
                                  title = "Kranten",
                                  h3("Frequentie tweets over corona door populaire kranten", align = "center"),
                                  plotOutput("plot1")%>% withSpinner(color="#dca108"),
                                  div(img(src= screenshot, align = "center"), style="text-align: center;", id= "screenshot"),
                                ),                                )
                              )
                            )
                            ))
  )
)

问题是：我可以使tweet_screenshot函数在闪亮的应用程序中工作吗（默认值为rmarkdown），怎么办？

如果我签出屏幕快照对象，它将显示以下内容：

(screenshot <- tweet_screenshot(tweet_url("Metro", "1251153881209307136")))

文件：// C：\ Users \ jolien \ AppData \ Local \ Temp \ RtmpKeTPxU \ file47383c65585c.html屏幕截图完成

提前感谢

library(shiny)

tweet <- "https://twitter.com/Twitter/status/1144673160777912322"
url <- URLencode(tweet, reserved = TRUE)
src <- paste0("https://twitframe.com/show?url=", url)

js <- '
$(window).on("message", function(e) {
  var oe = e.originalEvent;
  if (oe.origin !== "https://twitframe.com")
    return;
  if (oe.data.height && oe.data.element.id === "tweet"){
    $("#tweet").css("height", parseInt(oe.data.height) + "px");
  }
});'

ui <- fluidPage(
  fluidRow(
    tags$head(
      tags$script(HTML(js)),
      tags$style(HTML(
        "
        .content {
          margin: auto;
          padding: 20px;
          width: 60%;
        }"))
    ),

    uiOutput("frame")
  )
)


server <- function(input, output, session) {
  output[["frame"]] <- renderUI({
    tagList(
      tags$div(
        class = "content",
        tags$div(tags$iframe(
          id = "tweet",
          border=0, frameborder=0, height=50, width=550,
          src = src
        ))
      ),
      singleton(tags$script(HTML(
        "$(document).ready(function(){
          $('iframe#tweet').on('load', function() {
            this.contentWindow.postMessage(
              { element: {id:this.id}, query: 'height' },
              'https://twitframe.com');
          });
        });")))
    )
  })
}

shinyApp(ui, server)

StackOverflow

收藏 分享 链接