@@ -1038,24 +1038,25 @@ replace_dot_alias = function(e) {
10381038 # NB: _unary_ '-', not _binary_ '-' (#5826). Test for '!' length-2 should be redundant but low-cost & keeps code concise.
10391039 try_processSDcols = ! (colsub %iscall % c(" !" , " -" ) && length(colsub ) == 2L ) && ! (colsub %iscall % ' :' ) && ! (colsub %iscall % ' patterns' )
10401040 if (try_processSDcols ) {
1041- tryCatch({
1042- sdcols_result = .processSDcols(
1043- SDcols_sub = colsub ,
1044- SDcols_missing = FALSE ,
1045- x = x ,
1046- jsub = jsub ,
1047- by = union(bynames , allbyvars ),
1048- enclos = parent.frame()
1049- )
1041+ sdcols_result = tryCatch({
1042+ .processSDcols(
1043+ SDcols_sub = colsub ,
1044+ SDcols_missing = FALSE ,
1045+ x = x ,
1046+ jsub = jsub ,
1047+ by = union(bynames , allbyvars ),
1048+ enclos = parent.frame()
1049+ )
1050+ }, error = function (e ) {
1051+ NULL
1052+ })
10501053 if (! is.null(sdcols_result )) {
10511054 ansvars = sdvars = sdcols_result $ ansvars
10521055 ansvals = sdcols_result $ ansvals
1056+ try_processSDcols = TRUE
10531057 } else {
10541058 try_processSDcols = FALSE
10551059 }
1056- }, error = function (e ) {
1057- try_processSDcols <<- FALSE
1058- })
10591060 }
10601061 if (! try_processSDcols ) {
10611062 if (colsub %iscall % c(" !" , " -" ) && length(colsub ) == 2L ) {
0 commit comments