From 8e712304423f6965920cb983eb62446f8e82c2c4 Mon Sep 17 00:00:00 2001 From: luciorq Date: Thu, 21 Nov 2024 10:02:10 -0500 Subject: [PATCH] fix: typo in closing brackets --- src/library/tools/R/QC.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/library/tools/R/QC.R b/src/library/tools/R/QC.R index 4d8193a12b..af665fd6c9 100644 --- a/src/library/tools/R/QC.R +++ b/src/library/tools/R/QC.R @@ -2387,7 +2387,7 @@ checkTopLevelCall <- function(expr, fun_name) { fun_name <- as.name(fun_name) fun_called <- expr[[1]] if (is.call(fun_called)) { - inner_called <- fun_called[[1] + inner_called <- fun_called[[1]] if (identical(inner_called, quote(`:::`)) || identical(inner_called, quote(`::`))) { fun_called <- fun_called[[3]]