going through CharacterVector makes sure this is a character vector

apache · Jan 2, 2019 · 6e74003 · 6e74003
1 parent 2585501
commit 6e74003
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/r/src/csv.cpp b/r/src/csv.cpp
@@ -28,7 +28,7 @@ std::shared_ptr<arrow::csv::ReadOptions> csv___ReadOptions__initialize(List_ opt
   return res;
 }
 
-inline char get_char(SEXP x) { return CHAR(STRING_ELT(x, 0))[0]; }
+inline char get_char(CharacterVector x) { return CHAR(STRING_ELT(x, 0))[0]; }
 
 // [[Rcpp::export]]
 std::shared_ptr<arrow::csv::ParseOptions> csv___ParseOptions__initialize(List_ options) {