| // Licensed to the Apache Software Foundation (ASF) under one |
| // or more contributor license agreements. See the NOTICE file |
| // distributed with this work for additional information |
| // regarding copyright ownership. The ASF licenses this file |
| // to you under the Apache License, Version 2.0 (the |
| // "License"); you may not use this file except in compliance |
| // with the License. You may obtain a copy of the License at |
| // |
| // http://www.apache.org/licenses/LICENSE-2.0 |
| // |
| // Unless required by applicable law or agreed to in writing, |
| // software distributed under the License is distributed on an |
| // "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| // KIND, either express or implied. See the License for the |
| // specific language governing permissions and limitations |
| // under the License. |
| |
| #include <R_ext/Rdynload.h> // for R_GetCCallable |
| #include <Rdefines.h> |
| |
| namespace vctrs { |
| struct vctrs_api_ptrs_t { |
| R_len_t (*short_vec_size)(SEXP x); |
| |
| vctrs_api_ptrs_t() { |
| short_vec_size = (R_len_t(*)(SEXP))R_GetCCallable("vctrs", "short_vec_size"); |
| } |
| }; |
| |
| const vctrs_api_ptrs_t& vctrs_api() { |
| static vctrs_api_ptrs_t ptrs; |
| return ptrs; |
| } |
| |
| R_len_t vec_size(SEXP x) { |
| if (Rf_inherits(x, "data.frame") || TYPEOF(x) != VECSXP || Rf_inherits(x, "POSIXlt")) { |
| return vctrs_api().short_vec_size(x); |
| } else { |
| return Rf_length(x); |
| } |
| } |
| |
| } // namespace vctrs |