Add Vendor experiment

Author: chainsawriot

DESCRIPTION

@@ -31,8 +31,6 @@ Imports:
     vctrs (>= 0.4.2),
     zip,
     tools
-LinkingTo: 
-    cpp11 (>= 0.4.6)
 Suggests:
     spelling, 
     testthat,
@@ -43,7 +41,7 @@ Suggests:
     withr,
     readr (>= 1.2.1)
 License: GPL-3
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)
 Encoding: UTF-8
 VignetteBuilder: knitr

benchmark/issue81_template.md

@@ -5,7 +5,7 @@
 date()
 ```
 
-    [1] "Thu May 23 09:29:23 2024"
+    [1] "Sun May 26 01:39:17 2024"
 
 ``` r
 devtools::load_all()
@@ -19,7 +19,7 @@ system.time(x <- read_ods(file, sheet = 2, skip = 4))
 ```
 
        user  system elapsed 
-      0.375   0.072   0.446 
+      0.424   0.032   0.465 
 
 ``` r
 dim(x)

benchmark/roundtrip.md

@@ -16,22 +16,22 @@ Let’s break it down
 date()
 ```
 
-    [1] "Thu May 23 09:28:23 2024"
+    [1] "Sun May 26 01:38:17 2024"
 
 ``` r
 library(nycflights13)
 system.time(path <- writexl::write_xlsx(flights))
 ```
 
        user  system elapsed 
-      6.156   0.296   6.460 
+      6.096   0.264   6.377 
 
 ``` r
 system.time(out <- readxl::read_xlsx(path))
 ```
 
        user  system elapsed 
-      2.168   0.625   2.800 
+      2.190   0.775   2.987 
 
 ``` r
 all.equal(out, flights)
@@ -52,14 +52,14 @@ system.time(path <- readODS::write_ods(flights))
 ```
 
        user  system elapsed 
-     13.493   0.360  13.912 
+     13.252   0.496  13.902 
 
 ``` r
 system.time(out <- readODS::read_ods(path))
 ```
 
        user  system elapsed 
-     27.568   1.740  29.362 
+     27.045   2.042  29.205 
 
 ``` r
 all.equal(out, flights)

benchmark/tidyodsexample.md

@@ -5,7 +5,7 @@
 date()
 ```
 
-    [1] "Thu May 23 09:29:18 2024"
+    [1] "Sun May 26 01:39:12 2024"
 
 ``` r
 devtools::load_all()
@@ -23,7 +23,7 @@ bench::mark("readODS" = read_ods(file, sheet = 2), check = FALSE, filter_gc = FA
     # A tibble: 1 × 4
       expression      min   median     mean
       <bch:expr> <bch:tm> <bch:tm> <bch:tm>
-    1 readODS      5.01ms   5.29ms   7.83ms
+    1 readODS      5.12ms   5.29ms   7.59ms
 
 ``` r
 postcodes_file <- here::here("benchmark/civil-service-postcodes-2021.ods")
@@ -52,4 +52,4 @@ bench::mark("readODS" = readODS::read_ods(postcodes_file, 2), check = FALSE, fil
     # A tibble: 1 × 4
       expression      min   median     mean
       <bch:expr> <bch:tm> <bch:tm> <bch:tm>
-    1 readODS       425ms    444ms    445ms
+    1 readODS       420ms    429ms    435ms

benchmark/write_ods.md

@@ -5,7 +5,7 @@
 date()
 ```
 
-    [1] "Thu May 23 09:29:28 2024"
+    [1] "Sun May 26 01:39:22 2024"
 
 ``` r
 devtools::load_all()
@@ -28,7 +28,7 @@ system.time(write_ods(df1, path = tempfile(fileext = ".ods")))
 ```
 
        user  system elapsed 
-      0.043   0.004   0.062 
+      0.046   0.000   0.052 
 
 Large df
 
@@ -37,7 +37,7 @@ system.time(write_ods(nycflights13::flights))
 ```
 
        user  system elapsed 
-     14.517   0.484  15.222 
+     14.158   0.556  14.893 
 
 ``` r
 sessionInfo()

benchmark/write_ods_apend.md

@@ -5,7 +5,7 @@
 date()
 ```
 
-    [1] "Thu May 23 09:29:25 2024"
+    [1] "Sun May 26 01:39:19 2024"
 
 ``` r
 devtools::load_all()
@@ -30,21 +30,21 @@ system.time(write_ods(df1, path = path, sheet = "aaaa", append = TRUE))
 ```
 
        user  system elapsed 
-      0.254   0.020   0.290 
+      0.249   0.025   0.280 
 
 ``` r
 system.time(write_ods(df1, path = path, sheet = "aaaa", update = TRUE))
 ```
 
        user  system elapsed 
-      0.332   0.020   0.367 
+      0.313   0.035   0.357 
 
 ``` r
 system.time(write_ods(mtcars, path = path, sheet = "aaaa", update = TRUE))
 ```
 
        user  system elapsed 
-      0.225   0.012   0.249 
+      0.211   0.028   0.246 
 
 ``` r
 sessionInfo()

inst/include/cpp11.hpp

@@ -0,0 +1,26 @@
+// cpp11 version: 0.4.7
+// vendored on: 2024-05-26
+#pragma once
+
+#include "cpp11/R.hpp"
+#include "cpp11/altrep.hpp"
+#include "cpp11/as.hpp"
+#include "cpp11/attribute_proxy.hpp"
+#include "cpp11/data_frame.hpp"
+#include "cpp11/doubles.hpp"
+#include "cpp11/environment.hpp"
+#include "cpp11/external_pointer.hpp"
+#include "cpp11/function.hpp"
+#include "cpp11/integers.hpp"
+#include "cpp11/list.hpp"
+#include "cpp11/list_of.hpp"
+#include "cpp11/logicals.hpp"
+#include "cpp11/matrix.hpp"
+#include "cpp11/named_arg.hpp"
+#include "cpp11/protect.hpp"
+#include "cpp11/r_bool.hpp"
+#include "cpp11/r_string.hpp"
+#include "cpp11/r_vector.hpp"
+#include "cpp11/raws.hpp"
+#include "cpp11/sexp.hpp"
+#include "cpp11/strings.hpp"

inst/include/cpp11/R.hpp

@@ -0,0 +1,63 @@
+// cpp11 version: 0.4.7
+// vendored on: 2024-05-26
+#pragma once
+
+#ifdef R_INTERNALS_H_
+#if !(defined(R_NO_REMAP) && defined(STRICT_R_HEADERS))
+#error R headers were included before cpp11 headers \
+  and at least one of R_NO_REMAP or STRICT_R_HEADERS \
+  was not defined.
+#endif
+#endif
+
+#define R_NO_REMAP
+#define STRICT_R_HEADERS
+#include "Rinternals.h"
+
+// clang-format off
+#ifdef __clang__
+# pragma clang diagnostic push
+# pragma clang diagnostic ignored "-Wattributes"
+#endif
+
+#ifdef __GNUC__
+# pragma GCC diagnostic push
+# pragma GCC diagnostic ignored "-Wattributes"
+#endif
+// clang-format on
+
+#include <type_traits>
+#include "cpp11/altrep.hpp"
+
+namespace cpp11 {
+namespace literals {
+
+constexpr R_xlen_t operator"" _xl(unsigned long long int value) { return value; }
+
+}  // namespace literals
+
+namespace traits {
+template <typename T>
+struct get_underlying_type {
+  using type = T;
+};
+}  // namespace traits
+
+template <typename T>
+inline T na();
+
+template <typename T>
+inline typename std::enable_if<!std::is_same<typename std::decay<T>::type, double>::value,
+                               bool>::type
+is_na(const T& value) {
+  return value == na<T>();
+}
+
+template <typename T>
+inline typename std::enable_if<std::is_same<typename std::decay<T>::type, double>::value,
+                               bool>::type
+is_na(const T& value) {
+  return ISNA(value);
+}
+
+}  // namespace cpp11

inst/include/cpp11/altrep.hpp

@@ -0,0 +1,44 @@
+// cpp11 version: 0.4.7
+// vendored on: 2024-05-26
+#pragma once
+
+#include "Rversion.h"
+
+#if defined(R_VERSION) && R_VERSION >= R_Version(3, 5, 0)
+#define HAS_ALTREP
+#endif
+
+#ifndef HAS_ALTREP
+
+#define ALTREP(x) false
+
+#define REAL_ELT(x, i) REAL(x)[i]
+#define INTEGER_ELT(x, i) INTEGER(x)[i]
+#define LOGICAL_ELT(x, i) LOGICAL(x)[i]
+#define RAW_ELT(x, i) RAW(x)[i]
+
+#define SET_REAL_ELT(x, i, val) REAL(x)[i] = val
+#define SET_INTEGER_ELT(x, i, val) INTEGER(x)[i] = val
+#define SET_LOGICAL_ELT(x, i, val) LOGICAL(x)[i] = val
+#define SET_RAW_ELT(x, i, val) RAW(x)[i] = val
+
+#define REAL_GET_REGION(...) \
+  do {                       \
+  } while (false)
+
+#define INTEGER_GET_REGION(...) \
+  do {                          \
+  } while (false)
+#endif
+
+#if !defined HAS_ALTREP || (defined(R_VERSION) && R_VERSION < R_Version(3, 6, 0))
+
+#define LOGICAL_GET_REGION(...) \
+  do {                          \
+  } while (false)
+
+#define RAW_GET_REGION(...) \
+  do {                      \
+  } while (false)
+
+#endif