From 13e2325d9a8bd2874a8d00f2f0eba9c159868bfb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?=
 <211358+averissimo@users.noreply.github.com>
Date: Thu, 19 Oct 2023 15:19:40 +0200
Subject: [PATCH] docs: improve on error message

---
 R/JoinKeys.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/JoinKeys.R b/R/JoinKeys.R
index 2ca411ec2..807b73033 100644
--- a/R/JoinKeys.R
+++ b/R/JoinKeys.R
@@ -491,7 +491,7 @@ join_key <- function(dataset_1, dataset_2 = NULL, keys) {
 primary_key <- function(dataset_1, keys) {
   if (checkmate::test_character(keys) &&
     !checkmate::test_names(names(keys), type = "unnamed")) {
-    stop("Primary keys must match exactly: keys = c('A' = 'B') are not allowed")
+    stop("Primary keys parameter must be a unamed character vector: keys = c('A' = 'A') are not allowed")
   }
   join_key(dataset_1 = dataset_1, dataset_2 = dataset_1, keys = keys)
 }