Tried to replicate the GUI of 'Media Tweets' but not successful completely

[ghost]

Hi,

I was trying to replicate the 'Media Tweets' tab of the App to get the Twitter window as follows -

Note - the tweets.rds file used here is available in [https://gofile.io/?c=3pcjhp]

Loading required libraries

library(shiny)
library(shinyThings)
library(shinycssloaders)
library(plotly)
library(lubridate)
library(stringr)
library(tidyr)
library(purrr)
library(dplyr)

The UI page with applicable CSS

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
.masonry {
  margin: 1.5em auto;
  max-width: 100%;
  column-gap: 1.5em;
}

/* The Masonry Brick */
.tweet-item {
  /*background: #fff;*/
  padding: 0;
  border-radius: 5px;
  margin: auto;
  max-width: 500px;
}

/* Masonry on large screens */
@media only screen and (min-width: 1561px) {
  .masonry {
    column-count: 4;
  }
}

@media only screen and (min-width: 1024px) and (max-width: 1560px)  {
  .masonry {
    column-count: 3;
  }
}

/* Masonry on medium-sized screens */
@media only screen and (max-width: 1023px) and (min-width: 701px) {
  .masonry {
    column-count: 2;
  }
}

/* Masonry on small screens */
@media only screen and (max-width: 700px) and (min-width: 540px) {
  .masonry {
    column-count: 1;
  }
}"))),

  shinyThings::paginationUI("pic_tweets", width = 12, offset = 0),
  uiOutput("pic_tweets_wall"),
  shinyThings::pagerUI("pic_tweets", centered = TRUE)
)

The Server page

server <- function(input, output, session) {
    ## Few important functions
        masonify_tweets <- function(tweets, id = NULL, class = NULL) {
              stopifnot("status_id" %in% names(tweets))

              t_embed <-
                tweets %>%
                pmap(get_tweet_blockquote) %>%
                map(HTML) %>%
                map(tags$div, class = "tweet-item")

              tagList(
                tags$div(id = id,
                         class = paste("masonry text-left", class),
                         t_embed
                )
              )
            }

            get_tweet_blockquote <- function(screen_name, status_id, ..., null_on_error = TRUE, theme = "light") {
              oembed <- list(...)$oembed
              if (!is.null(oembed) && !is.na(oembed)) return(unlist(oembed))
              oembed_url <- glue::glue("https://publish.twitter.com/oembed?url=https://twitter.com/{screen_name}/status/{status_id}&omit_script=1&dnt=1&theme={theme}")
              bq <- possibly(httr::GET, list(status_code = 999))(URLencode(oembed_url))
              if (bq$status_code >= 400) {
                if (null_on_error) return(NULL)
                '<blockquote style="font-size: 90%">Sorry, unable to get tweet ¯\\_(ツ)_/¯</blockquote>'
              } else {
                httr::content(bq, "parsed")$html
              }
            }

    tweets_all <- reactiveFileReader(1 * 60 * 1000, session, 'tweets.rds', function(file) {
                            x <- readRDS(file)
                            x
                          })

    tweets <- reactive({
        req(tweets_all())
        tweets_all()
      })

        Break <- 20   

        tweets_pictures <- reactive({
            tweets() %>%
              select(created_at, status_id, screen_name, media_url)
          })

        pic_tweets_n_items <- reactive({ nrow(tweets_pictures()) })   

        pic_tweets_page <- shinyThings::pager("pic_tweets", pic_tweets_n_items, Break)  

        output$pic_tweets_wall <- renderUI({
            s_page_items <- pic_tweets_page() %||% 1L

            tweets_pictures() %>%
          slice(s_page_items) %>%
          masonify_tweets()
          })
}

However as you see, with this I not getting complete styling of the actual Twitter page. For example, in Twitter if we see the tweet with 'Arranging stacked bar graph by a plot order', we see a snapshot as in https://gofile.io/?c=0DmEY1

Any pointer if it is possible to get Tweet information just like in the Twitter page, will be highly helpful.

Thanks,