From ba3a702155536622fb7722aa4f2f3e3d42097019 Mon Sep 17 00:00:00 2001
From: Kate DeMarsh <katedemarsh@gmail.com>
Date: Wed, 2 Feb 2022 10:50:07 -0800
Subject: [PATCH 1/3] Create bingo cards local from RStudio

---
 R/getbingocards.R | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 R/getbingocards.R

diff --git a/R/getbingocards.R b/R/getbingocards.R
new file mode 100644
index 0000000..b061a7a
--- /dev/null
+++ b/R/getbingocards.R
@@ -0,0 +1,4 @@
+library(bingo)
+tail(get_topic("boring-meeting"))
+bc <-bingo(n_cards=8, words=get_topic("boring-meeting"))
+plot(bc)

From d5dcd647de0c26ee045ce513c3069c1e4e65cf44 Mon Sep 17 00:00:00 2001
From: Kate DeMarsh <katedemarsh@gmail.com>
Date: Wed, 2 Feb 2022 20:29:11 -0800
Subject: [PATCH 2/3] Bingo Contribution, Bachelor

---
 R/getbingocards.R           |  4 ++--
 inst/topics/BachelorBingo.R | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+), 2 deletions(-)
 create mode 100644 inst/topics/BachelorBingo.R

diff --git a/R/getbingocards.R b/R/getbingocards.R
index b061a7a..8a45474 100644
--- a/R/getbingocards.R
+++ b/R/getbingocards.R
@@ -1,4 +1,4 @@
 library(bingo)
-tail(get_topic("boring-meeting"))
-bc <-bingo(n_cards=8, words=get_topic("boring-meeting"))
+tail(get_topic("BachelorBingo"))
+bc <-bingo(n_cards=8, words=get_topic("BachelorBingo"))
 plot(bc)
diff --git a/inst/topics/BachelorBingo.R b/inst/topics/BachelorBingo.R
new file mode 100644
index 0000000..a4c798a
--- /dev/null
+++ b/inst/topics/BachelorBingo.R
@@ -0,0 +1,32 @@
+## Bachelor Bingo
+## Kate DeMarsh
+
+
+c(
+  "Journey",
+  "Dramatic Back Story",
+  "Tears",
+  "I'm not here to make friends",
+  "Fight breaks out",
+  "Painful pun entrance",
+  "Dramatically looks into Distance",
+  "Dramatic Season Ever",
+  "Eye Roll",
+  "Previous Contestant Shows up",
+  "Advice Given",
+  "Cocktail Party Canceled",
+  "Can I steal them for a sec?",
+  "Nice person goes home",
+  "Fight during 2 on 1",
+  "Helicopter Ride",
+  "Love",
+  "My future husband/wife",
+  "Shopping Date",
+  "Pool Party",
+  "Falling in love with you",
+  "COVID mentioned",
+  "Hardest Decision",
+  "Rose Given Out",
+  "Talks about Ex",
+  "Gift Given"
+)

From e094325000ff3eb55fe01c6962d7b9cd5fd08916 Mon Sep 17 00:00:00 2001
From: katedemarsh <98801446+katedemarsh@users.noreply.github.com>
Date: Wed, 2 Feb 2022 20:49:42 -0800
Subject: [PATCH 3/3] Delete getbingocards.R

---
 R/getbingocards.R | 4 ----
 1 file changed, 4 deletions(-)
 delete mode 100644 R/getbingocards.R

diff --git a/R/getbingocards.R b/R/getbingocards.R
deleted file mode 100644
index 8a45474..0000000
--- a/R/getbingocards.R
+++ /dev/null
@@ -1,4 +0,0 @@
-library(bingo)
-tail(get_topic("BachelorBingo"))
-bc <-bingo(n_cards=8, words=get_topic("BachelorBingo"))
-plot(bc)