From 7a04cb125387afea1567e1bb2cd630efc93a321c Mon Sep 17 00:00:00 2001
From: zander-prinsloo <prinsloo.zander@gmail.com>
Date: Fri, 23 Feb 2024 15:56:31 -0500
Subject: [PATCH] correct typo

---
 R/joyn_workhorse.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/joyn_workhorse.R b/R/joyn_workhorse.R
index 972fc64c..09a78015 100644
--- a/R/joyn_workhorse.R
+++ b/R/joyn_workhorse.R
@@ -73,7 +73,7 @@ joyn_workhorse <- function(
   # not m:m => use collapse::join()
     dt_result <- tryCatch(
       expr = {
-        souce_pkg <- if (match_type == "m:m") "data.table::merge" else "collapse::join"
+        source_pkg <- if (match_type == "m:m") "data.table::merge" else "collapse::join"
         if (match_type == "m:m") {
           data.table::merge.data.table(
             x               = x,
@@ -102,7 +102,7 @@ joyn_workhorse <- function(
       error = function(e) {
 
 
-        joyn_msg("err", c("{.pkg {souce_pkg}} returned the following:",
+        joyn_msg("err", c("{.pkg {source_pkg}} returned the following:",
                           x = e$message))
       }, # end of error section
 
@@ -111,14 +111,14 @@ joyn_workhorse <- function(
           store_msg(
             type  = "warn",
             ok    = paste(cli::symbol$warning, "\nWarning: "),
-            pale  = "Your data is overidentified. Below the original message from {.pkg {souce_pkg}}:",
+            pale  = "Your data is overidentified. Below the original message from {.pkg {source_pkg}}:",
             bolded_pale  = "\n{w$message}"
           )
         } else {
           store_msg(
             type  = "warn",
             ok    = paste(cli::symbol$warning, "\nWarning: "),
-            pale  = "{.pkg {souce_pkg}} returned the following warning:",
+            pale  = "{.pkg {source_pkg}} returned the following warning:",
             bolded_pale  = "\n{w$message}"
           )
         }