Use tibble::as.tibble to construct tibbles (#591)

Fixes #538

NEWS.md

@@ -9,6 +9,7 @@
 * Numeric parser now returns the full string if it contains no numbers (#548).
 * `read_table()` can now handle `pipe()` connections (#552).
 * The `guess_max` argument now throws errors on inappropriate inputs (#588).
+* tibble::as.tibble now used to construct tibbles (#538).
 
 * parsing problems in `read_delim()` and `read_fwf()` when columns are skipped using col_types now report the correct column name (#573, @cb4ds)
 

src/Reader.cpp

@@ -44,7 +44,7 @@ void Reader::init(CharacterVector colNames) {
 }
 
 RObject Reader::readToDataFrame(int lines) {
-  int rows = read(lines);
+  read(lines);
 
   // Save individual columns into a data frame
   List out(outNames_.size());
@@ -53,16 +53,14 @@ RObject Reader::readToDataFrame(int lines) {
     out[j++] = collectors_[*it]->vector();
   }
 
-  out.attr("class") = CharacterVector::create("tbl_df", "tbl", "data.frame");
-  out.attr("row.names") = IntegerVector::create(NA_INTEGER, -(rows + 1));
   out.attr("names") = outNames_;
-
   out = warnings_.addAsAttribute(out);
 
   collectorsClear();
   warnings_.clear();
 
-  return out;
+  static Function as_tibble("as_tibble", Environment::namespace_env("tibble"));
+  return as_tibble(out);
 }
 
 int Reader::read(int lines) {