From 5a84d6a946e23b0e78d7b12b53299f514fcca0a7 Mon Sep 17 00:00:00 2001
From: Sam Passmore <passmore.sam@gmail.com>
Date: Tue, 13 Jun 2023 16:39:29 +1000
Subject: [PATCH] fix #5

---
 R/write_files.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/write_files.R b/R/write_files.R
index 98a2567..22f92e1 100644
--- a/R/write_files.R
+++ b/R/write_files.R
@@ -19,7 +19,7 @@ bt_write <- function(tree, data, variables, dir = "./", na.omit = FALSE, filenam
   data = data[,variables, drop = FALSE]
 
   if(class(data) == c("tbl_df", "tbl", "data.frame")){
-    stop("Data cannot be a tibble. Please use a data.frame")
+    data = as.dataframe(data)
   }
 
   # remove nas if necessary