wire up date converter

Author: paleolimbot

r/src/vctr_builder.cc

@@ -31,6 +31,7 @@
 #include "vctr_builder_base.h"
 #include "vctr_builder_blob.h"
 #include "vctr_builder_chr.h"
+#include "vctr_builder_date.h"
 #include "vctr_builder_dbl.h"
 #include "vctr_builder_int.h"
 #include "vctr_builder_int64.h"

r/src/vctr_builder_date.h

@@ -0,0 +1,46 @@
+// 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.
+
+#ifndef R_NANOARROW_VCTR_BUILDER_DATE_H_INCLUDED
+#define R_NANOARROW_VCTR_BUILDER_DATE_H_INCLUDED
+
+#define R_NO_REMAP
+#include <R.h>
+#include <Rinternals.h>
+
+#include "vctr_builder_dbl.h"
+
+class DateBuilder : public DblBuilder {
+ public:
+  explicit DateBuilder(SEXP ptype_sexp) : DblBuilder(ptype_sexp, VECTOR_TYPE_DATE) {}
+
+  ArrowErrorCode Init(const ArrowSchema* schema, VctrBuilderOptions options,
+                      ArrowError* error) {
+    NANOARROW_RETURN_NOT_OK(DblBuilder::Init(schema, options, error));
+    switch (schema_view_.type) {
+      case NANOARROW_TYPE_NA:
+      case NANOARROW_TYPE_DATE32:
+        break;
+      default:
+        StopCantConvert();
+    }
+
+    return NANOARROW_OK;
+  }
+};
+
+#endif

r/src/vctr_builder_dbl.h

@@ -29,7 +29,8 @@
 
 class DblBuilder : public VctrBuilder {
  public:
-  explicit DblBuilder(SEXP ptype_sexp) : VctrBuilder(VECTOR_TYPE_DBL, ptype_sexp) {}
+  explicit DblBuilder(SEXP ptype_sexp, VectorType vector_type = VECTOR_TYPE_DBL)
+      : VctrBuilder(vector_type, ptype_sexp) {}
 
   SEXP GetPtype() override { return Rf_allocVector(REALSXP, 0); }
 
@@ -123,8 +124,8 @@ class DblBuilder : public VctrBuilder {
     }
 
     if (n_bad_values > 0) {
-      warn_lossy_conversion(
-          n_bad_values, "may have incurred loss of precision in conversion to double()");
+      WarnLossyConvert("may have incurred loss of precision in conversion to double()",
+                       n_bad_values);
     }
 
     return NANOARROW_OK;

r/src/vctr_builder_primitive.h

@@ -24,11 +24,6 @@
 
 #include "vctr_builder_base.h"
 
-class DateBuilder : public VctrBuilder {
- public:
-  explicit DateBuilder(SEXP ptype_sexp) : VctrBuilder(VECTOR_TYPE_DATE, ptype_sexp) {}
-};
-
 class HmsBuilder : public VctrBuilder {
  public:
   explicit HmsBuilder(SEXP ptype_sexp) : VctrBuilder(VECTOR_TYPE_HMS, ptype_sexp) {}