ablack3 commented on issue #33807:
URL: https://github.com/apache/arrow/issues/33807#issuecomment-1398589729

   This might be a clue
   ```
    *** caught illegal operation ***
      address 0x13d7349a8, cause 'illegal opcode'
      
      Traceback:
       1: Array__GetScalar(Array$create(x, type = type), 0)
       2: Scalar$create(x)
       3: compute___expr__scalar(Scalar$create(x))
       4: Expression$scalar(1L)
       5: n()
       6: eval_tidy(expr, mask)
       7: doTryCatch(return(expr), name, parentenv, handler)
       8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
       9: tryCatchList(expr, classes, parentenv, handlers)
      10: tryCatch(eval_tidy(expr, mask), error = function(e) {    msg <- 
conditionMessage(e)    if (getOption("arrow.debug", FALSE))         print(msg)  
  patterns <- .cache$i18ized_error_pattern    if (is.null(patterns)) {        
patterns <- i18ize_error_messages()        .cache$i18ized_error_pattern <- 
patterns    }    if (grepl(patterns, msg)) {        stop(e)    }    out <- 
structure(msg, class = "try-error", condition = e)    if (grepl("not 
supported.*Arrow", msg) || getOption("arrow.debug",         FALSE)) {        
class(out) <- c("arrow-try-error", class(out))    }    invisible(out)})
      11: arrow_eval(expr, mask)
      12: arrow_eval_or_stop(as_quosure(expr, ctx$quo_env), ctx$mask)
      13: summarize_eval(names(exprs)[i], exprs[[i]], ctx, 
length(.data$group_by_vars) >     0)
      14: do_arrow_summarize(.data, !!!exprs, .groups = .groups)
      15: doTryCatch(return(expr), name, parentenv, handler)
      16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
      17: tryCatchList(expr, classes, parentenv, handlers)
      18: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    
if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))      
       call <- sys.call(-4L)        dcall <- deparse(call, nlines = 1L)        
prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- 
strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = 
"w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + 
nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if 
(w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- 
"Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    
.Internal(seterrmessage(msg[1L]))    if (!silent && 
isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)     
   .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = 
"try-error", condition = e))})
      19: try(do_arrow_summarize(.data, !!!exprs, .groups = .groups), silent = 
TRUE)
      20: summarise.ArrowTabular(x, `:=`(!!name, n()))
      21: dplyr::summarize(x, `:=`(!!name, n()))
      22: tally.ArrowTabular(.)
      23: tally(.)
   
   ```


-- 
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.

To unsubscribe, e-mail: github-unsubscr...@arrow.apache.org

For queries about this service, please contact Infrastructure at:
us...@infra.apache.org

Reply via email to