From 43a4e2950b5a3c116fce57554944e192f4ec06b3 Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Mon, 26 Jun 2017 15:40:34 -0400
Subject: [PATCH] Update as.data.frame with stringsAsFactors = FALSE

---
 RAutoClDs.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/RAutoClDs.R b/RAutoClDs.R
index c8105f1..388f352 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -369,7 +369,7 @@ THEFT <- function(){
 			
 			roALZna <- t(ALZDAT) %>%
 				rownames(.) %>%
-				as.data.frame(.)
+				as.data.frame(.,stringsAsFactors = FALSE)
 			colnames(roALZna) <- "ID_REF"
 			
 			RAWDAT <- t(ALZDAT) %>%
@@ -637,7 +637,7 @@ THEFT <- function(){
 				namedarows <- rownames(rawword)[-hereim] %>%
 					as.data.frame(.,stringsAsFactors = FALSE)
 				RAWWORD <- rawword[-hereim,] %>%
-					as.data.frame() %>%
+					as.data.frame(.,stringsAsFactors = FALSE) %>%
 					bind_cols(namedarows,.)
 				z <- 1
 				naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE)
-- 
2.29.0