fix forward declaration type

Author: t-kalinowski

R/c-wrapper.R

@@ -445,7 +445,7 @@ fsub_extern_decl <- function(fsub) {
 
   fsub_c_sig <- map_chr(fsub_arg_names, function(name) {
     if (is_size_name(name)) {
-      type <- if (endsWith("__len_", name)) {
+      type <- if (name |> endsWith("__len_")) {
         "R_xlen_t"
       } else {
         "R_len_t"