make lint happy

Toby Dylan Hocking · Toby Dylan Hocking · commit fade9220ba0b · 2024-08-02T12:31:07.000-04:00
diff --git a/R/fcast.R b/R/fcast.R
@@ -194,9 +194,9 @@ dcast.data.table = function(data, formula, fun.aggregate = NULL, sep = "_", ...,
       if (!all(lengths(list.of.columns) == 1L)) {
         msg <- gettext("Aggregating function(s) should take a vector as input and return a single value (length=1), but they do not, so the result is undefined. Please fix by modifying your function so that a single value is always returned.")
         if (is.null(fill)) { # TODO change to always stopf #6329
-          stop(msg, domain=NA)
-        } else { 
-          warning(msg, domain=NA)
+          stop(msg, domain=NA, call. = FALSE)
+        } else {
+          warning(msg, domain=NA, call. = FALSE)
         }
       }
       list.of.columns

Original file line number	Diff line number	Diff line change
`@@ -194,9 +194,9 @@ dcast.data.table = function(data, formula, fun.aggregate = NULL, sep = "_", ...,`
`194`	`194`	`if (!all(lengths(list.of.columns) == 1L)) {`
`195`	`195`	`msg <- gettext("Aggregating function(s) should take a vector as input and return a single value (length=1), but they do not, so the result is undefined. Please fix by modifying your function so that a single value is always returned.")`
`196`	`196`	`if (is.null(fill)) { # TODO change to always stopf #6329`
`197`		`- stop(msg, domain=NA)`
`198`		`- } else {`
`199`		`- warning(msg, domain=NA)`
	`197`	`+ stop(msg, domain=NA, call. = FALSE)`
	`198`	`+ } else {`
	`199`	`+ warning(msg, domain=NA, call. = FALSE)`
`200`	`200`	`}`
`201`	`201`	`}`
`202`	`202`	`list.of.columns`