From 52b15bb52cda27b39a0125628b6d9daf56ee40b1 Mon Sep 17 00:00:00 2001
From: Jon Harmon <jonthegeek@gmail.com>
Date: Tue, 19 Sep 2023 06:39:47 -0500
Subject: [PATCH] Add donate links. (#36)

---
 r4ds-helpers-mastodon.R | 2 ++
 runner-shared.R         | 7 ++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/r4ds-helpers-mastodon.R b/r4ds-helpers-mastodon.R
index f50a382..04f59c5 100644
--- a/r4ds-helpers-mastodon.R
+++ b/r4ds-helpers-mastodon.R
@@ -72,6 +72,7 @@ set_toot_content <- function(tt_toot_jon) {
     "It's #TidyTuesday y'all! Show us what you made on our Slack at https://r4ds.io/join (find the #chat-tidytuesday channel)!",
     "RT @jonthegeek {tt_toot_jon$url}",
     "{tt_toot_jon$content}",
+    "Please consider a tax-deductible donation at https://r4ds.io/donate to support our work!",
     .sep = "\n\n"
   )
   
@@ -80,6 +81,7 @@ set_toot_content <- function(tt_toot_jon) {
       "It's #TidyTuesday y'all! Show us what you made on our Slack at https://r4ds.io/join (find the #chat-tidytuesday channel)!",
       "RT @jonthegeek {tt_toot_jon$url}",
       "#RStats #DataViz #PyData #tidyverse #r4ds",
+      "Please consider a tax-deductible donation at https://r4ds.io/donate to support our work!",
       .sep = "\n\n"
     )
   }
diff --git a/runner-shared.R b/runner-shared.R
index caaec6b..8815783 100644
--- a/runner-shared.R
+++ b/runner-shared.R
@@ -14,6 +14,7 @@ if (week_num == 1) {
     "{emoji::emoji('index pointing at the viewer')} Personal metadata (TV shows watched, music listened, #RStats written, etc)",
     "{emoji::emoji('question')} Whatever else you want to use!",
     "\n#r4ds #tidyverse #DataViz",
+    "\nPlease consider a tax-deductible donation at https://r4ds.io/donate to support our work!",
     .sep = "\n"
   )
   img_paths <- NULL
@@ -73,7 +74,11 @@ if (week_num == 1) {
     " We're exploring {data_title}!\n\n", 
     "{emoji::emoji('folder')} https://tidytues.day/{week_year}/{week_date}" 
   )
-  status_msg_end <- "\n\n#RStats #DataViz #PyData #tidyverse #r4ds"
+  status_msg_end <- paste(
+    "\n\n#RStats #DataViz #PyData #tidyverse #r4ds",
+    "Please consider a tax-deductible donation at https://r4ds.io/donate to support our work!",
+    sep = "\n"
+  )
   
   if (length(post_vars)) {
     long_msg <- glue::glue(