[ARROW-15316] [R] Make a one-function pointer function

• Type: Improvement
• Status: Resolved
• Priority: Major
• Resolution: Fixed
• Fix Version/s: 7.0.0
• Component/s: R
• Labels: pull-request-available
• External issue URL: https://github.com/apache/arrow/issues/30804
• Assignee: Dragoș Moldovan-Grünfeld
• Reporter: Jonathan Keane
• Created: 12/Jan/22 19:42
• Updated: 11/Jan/23 11:36
• Resolved: 19/Jan/22 22:25

Description

In ARROW-15173 PR we added backwards compatibly to pointers between R and Python where we use `external_pointer_addr_double()` with old python versions. We could take a number of the blocks like:

 if (pyarrow_version() >= pyarrow_version_pointers_changed) {
    x$`_export_to_c`(schema_ptr)
  } else {
    x$`_export_to_c`(external_pointer_addr_double(schema_ptr))
  }

to

x$`_export_to_c`(backwards_compatible_pointer(schema_ptr))

with backwards_compatible_pointer including the if/else

Issue Links

• links to: GitHub Pull Request #12168