gadenbuie / tweet-conf-dash Goto Github PK

 tweets <- import_tweets(
    TWEETS_FILE,
    tz_global   = tz_global(),
    topic_terms = TOPIC$terms,
    start_date  = TWEETS_START_DATE,
    blocklist   = BLOCKLIST
)

> 
> 15.
> gzfile(file, "rb") 
> 14.
> readRDS(file) 
> 13.
> eval(lhs, parent, parent) 
> 12.
> eval(lhs, parent, parent) 
> 11.
> readRDS(file) %>% mutate(created_at = lubridate::with_tz(created_at, 
>     tz_global())) %>% tweets_since(TWEETS_START_DATE) %>% tweets_not_hashdump() %>% 
>     tweets_block(blocklist$status_id, blocklist$screen_name) %>% 
>     arrange(desc(created_at)) %>% is_topic_tweet(topic_terms) at functions.R#10
> 10.
> import_tweets(TWEETS_FILE, tz_global = tz_global(), topic_terms = TOPIC$terms, 
>     start_date = TWEETS_START_DATE, blocklist = BLOCKLIST) 
> 9.
> eval(lhs, parent, parent) 
> 8.
> eval(lhs, parent, parent) 
> 7.
> import_tweets(TWEETS_FILE, tz_global = tz_global(), topic_terms = TOPIC$terms, 
>     start_date = TWEETS_START_DATE, blocklist = BLOCKLIST) %>% 
>     filter(is_topic) %>% tweet_cache_oembed() at global.R#57
> 6.
> ..stacktraceon..({
>     library(shiny)
>     library(shinydashboard)
>     library(forcats) ... 
> 5.
> eval(exprs, envir) 
> 4.
> eval(exprs, envir) 
> 3.
> sourceUTF8(file.path.ci(appDir, "global.R")) 
> 2.
> appParts$onStart() 
> 1.
> runApp() 

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

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

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()
		  })
}

dashboardPage(
  # Dashboard Page Setup ----------------------------------------------------
  title = META$name,
  skin  = META$skin_color,
  theme = c(META$theme_css, "custom.css"),
  sidebar_mini = TRUE,
  dashboardHeader(
    title = HTML(glue::glue(
      '<span class="logo-mini">{META$logo_mini}</span>
      <span class="logo-lg">{META$logo_lg}</span>'
    ))
  ),

2019-09-01T14:17:51.765485+00:00 shinyapps[1133712]: Warning: Error in readRDS: error reading from connection
2019-09-01T14:17:51.769828+00:00 shinyapps[1133712]:   68: readRDS
2019-09-01T14:17:51.769831+00:00 shinyapps[1133712]:   67: is_tokenfile
2019-09-01T14:17:51.769832+00:00 shinyapps[1133712]:   66: twitter_pat
2019-09-01T14:17:51.769833+00:00 shinyapps[1133712]:   63: get_tokens
2019-09-01T14:17:51.769834+00:00 shinyapps[1133712]:   62: rate_limit
2019-09-01T14:17:51.769835+00:00 shinyapps[1133712]:   61: get_timeline_unlimited
2019-09-01T14:17:51.769836+00:00 shinyapps[1133712]:   60: get_user_tweets
2019-09-01T14:17:51.769838+00:00 shinyapps[1133712]:   59: server [/srv/connect/apps/candidates-2019-dash/server.R#9]
2019-09-01T14:17:51.770060+00:00 shinyapps[1133712]: Error in readRDS(x) : error reading from connection