run.R

# -- Load Functions ------------------------------------------------------------
pkgload::load_all()

# -- Throw a notification ------------------------------------------------------
cli_h1("Posting news updates")

# -- Run *all* the stuff -------------------------------------------------------

# 1. Get URLS for NEWS.md files on GitHub
urls <- news_urls()
  
# 2. Download NEWS.md files, and return paths to the ones which have been 
#    updated since the last run
updated_news_files <- urls |> 
  pull_news_files(include_old = FALSE, update_cache = TRUE) 
  
# 3. Use pandoc to apply annotations to the news files delimiting different
#    bullet points
annotated_news_files <- updated_news_files |> 
  annotate_news_files(dir = "news-files-annotated") 
  
# 4. Read news files into a single data frame
news_data <- annotated_news_files |> 
  get_news_data()
  
# 5. Exclude bullets which have already been posted
news_data_new <- news_data |> 
  remove_old_bullets(overwrite_prev_updates = TRUE) 

# 6. Make sure we don't post more than 10 updates per package. This is to
#    avoid spamming
news_data_short <- news_data_new # |> 
#  limit_update_sizes(n = 10)  
  
# 7. Turn bullet points into tweets
tweets <- news_data_short |> 
  make_tweets() 
  
# 8. Post using {rtweet}
tweets |> 
  post_news_updates()