[ARROW-17702] [R][CI] Test failure on CentOS 7

• Type: Bug
• Status: Resolved
• Priority: Critical
• Resolution: Fixed
• Fix Version/s: 10.0.0
• Component/s: Continuous Integration, R
• External issue URL: https://github.com/apache/arrow/issues/32940
• Assignee: Dewey Dunnington
• Reporter: Antoine Pitrou
• Created: 13/Sep/22 10:43
• Updated: 11/Jan/23 11:52
• Resolved: 13/Oct/22 15:43

Description

Seen on
https://github.com/apache/arrow/actions/runs/3043073421/jobs/4901940045#step:5:2625

  + as_arrow_table(mtcars) %>%
  +   transmute(mpg, mpg_predicted = mtcars_predict_mpg(disp, cyl)) %>%
  +   collect() %>%
  +   head()
  + ## Don't show: 
  + }) # examplesIf
  > library(dplyr, warn.conflicts = FALSE)
  > some_model <- lm(mpg ~ disp + cyl, data = mtcars)
  > register_scalar_function("mtcars_predict_mpg", function(context, disp, 
  +     cyl) {
  +     predict(some_model, newdata = data.frame(disp, cyl))
  + }, in_type = schema(disp = float64(), cyl = float64()), out_type = float64(), auto_convert = TRUE)
  > as_arrow_table(mtcars) %>% transmute(mpg, mpg_predicted = mtcars_predict_mpg(disp, 
  +     cyl)) %>% collect() %>% head()
  Error in `collect()`:
  ! NotImplemented: Call to R (resolve scalar user-defined function output data type) from a non-R thread from an unsupported context
  Backtrace:
       ▆
    1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...)
    2. │ └─base::source(...)
    3. │   ├─base::withVisible(eval(ei, envir))
    4. │   └─base::eval(ei, envir)
    5. │     └─base::eval(ei, envir)
    6. ├─... %>% head()
    7. ├─utils::head(.)
    8. ├─dplyr::collect(.)
    9. └─arrow:::collect.arrow_dplyr_query(.)
   10.   └─base::tryCatch(...)
   11.     └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   12.       └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   13.         └─value[[3L]](cond)
   14.           └─rlang::abort(conditionMessage(e), call = call)
  Execution halted