From cb3fc21b41ef0d560e8146972da047a134851c14 Mon Sep 17 00:00:00 2001
From: Max Kuhn <mxkuhn@gmail.com>
Date: Mon, 21 Oct 2024 10:08:36 -0400
Subject: [PATCH] Apply suggestions from code review

Co-authored-by: Simon P. Couch <simonpatrickcouch@gmail.com>
---
 R/checks.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/checks.R b/R/checks.R
index e6d3190..2a19ca0 100644
--- a/R/checks.R
+++ b/R/checks.R
@@ -13,9 +13,7 @@ check_single_logical <- function(x, call = rlang::caller_env()) {
  invisible(x)
 }
 
-check_number_whole_vec <- function(x, call = rlang::caller_env(), ...) {
- cl <- match.call()
- arg <- as.character(cl$x)
+check_number_whole_vec <- function(x, call = rlang::caller_env(), arg = rlang::caller_arg(x), ...) {
 
  for (i in x) {
   check_number_whole(i, arg = arg, call = call, ...)