diff --git a/R/data.table.R b/R/data.table.R index 209e7aa37..112cdf7e2 100644 --- a/R/data.table.R +++ b/R/data.table.R @@ -180,7 +180,7 @@ replace_dot_alias = function(e) { stopf("When by and keyby are both provided, keyby must be TRUE or FALSE") } if (missing(by)) { missingby=TRUE; by=bysub=NULL } # possible when env is used, PR#4304 - else if (verbose) catf("Argument '%s' after substitute: %s\n", "by", paste(deparse(bysub, width.cutoff=500L), collapse=" ")) + else if (verbose && !is.null(env)) catf("Argument '%s' after substitute: %s\n", "by", paste(deparse(bysub, width.cutoff=500L), collapse=" ")) } bynull = !missingby && is.null(by) #3530 byjoin = !is.null(by) && is.symbol(bysub) && bysub==".EACHI" @@ -244,7 +244,7 @@ replace_dot_alias = function(e) { substitute2(.j, env), list(.j = substitute(j)) )) - if (missing(jsub)) {j = substitute(); jsub=NULL} else if (verbose) catf("Argument '%s' after substitute: %s\n", "j", paste(deparse(jsub, width.cutoff=500L), collapse=" ")) + if (missing(jsub)) {j = substitute(); jsub=NULL} else if (verbose && !is.null(env)) catf("Argument '%s' after substitute: %s\n", "j", paste(deparse(jsub, width.cutoff=500L), collapse=" ")) } } if (!missing(j)) { @@ -332,7 +332,7 @@ replace_dot_alias = function(e) { substitute2(.i, env), list(.i = substitute(i)) )) - if (missing(isub)) {i = substitute(); isub=NULL} else if (verbose) catf("Argument '%s' after substitute: %s\n", "i", paste(deparse(isub, width.cutoff=500L), collapse=" ")) + if (missing(isub)) {i = substitute(); isub=NULL} else if (verbose && !is.null(env)) catf("Argument '%s' after substitute: %s\n", "i", paste(deparse(isub, width.cutoff=500L), collapse=" ")) } } if (!missing(i)) {