Как показать встроенный твит в R блестящем приложении? - PullRequest
Новая
       38

Как показать встроенный твит в R блестящем приложении?

1 голос
/ 17 апреля 2020

Я заканчиваю свою панель управления банкоматом и пытаюсь показать твит на своей странице. Для этого я использую пакет tweetrmd, но он не работает

, вот часть моего кода пользовательского интерфейса 

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")))

file: // C: \ Users \ jolien \ AppData \ Local \ Temp \ RtmpKeTPxU \ file47383c65585 c. html скриншот завершен

Заранее спасибо

1 Ответ

1 голос
/ 17 апреля 2020

Решение с использованием twitframe.com : 

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)
...