From 0cb37d334fea0451f1ad6210e8303d5b33103346 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Mon, 26 Jun 2017 15:35:19 -0400 Subject: [PATCH] Update to as.data.frame function --- RAutoClDs.R | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/RAutoClDs.R b/RAutoClDs.R index 5c2fe78..c8105f1 100644 --- a/RAutoClDs.R +++ b/RAutoClDs.R @@ -218,7 +218,7 @@ THEFT <- function(){ colnames(ALZWORD) <- colnames(ALZWORD,do.NULL=FALSE) ALZWORD <- chngrownm(ALZWORD)[-1,] ALZWORD <- ALZWORD%>% - as.data.frame()%>% + as.data.frame(.,stringsAsFactors = FALSE)%>% dplyr::select(-starts_with("col")) ##Reorganizing information within the columns and final clinical data @@ -321,7 +321,7 @@ THEFT <- function(){ #Full RAW Data Fullalzdwr <- ALZDAT %>% - as.data.frame() %>% + as.data.frame(.,stringsAsFactors = FALSE) %>% cbind(ALZWORDF,.) #Raw file is output @@ -347,9 +347,9 @@ THEFT <- function(){ ##Getting the names for the rows namedarows <- rownames(rawword)[-hereim] %>% - as.data.frame() + 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) @@ -373,7 +373,7 @@ THEFT <- function(){ colnames(roALZna) <- "ID_REF" RAWDAT <- t(ALZDAT) %>% - as.data.frame(.) + as.data.frame(.,stringsAsFactors = FALSE) colnames(RAWDAT) <- NULL rownames(RAWDAT) <- NULL @@ -416,11 +416,11 @@ THEFT <- function(){ dialzdat <- scrawdat %>% dndat(.) %>% t()%>% - as.data.frame(.) + as.data.frame(.,stringsAsFactors = FALSE) colnames(dialzdat) <- rownames(RAWDATNUM) ##setting "ID_REF" as a new variable - geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1)) + geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1),stringsAsFactors = FALSE) colnames(geneNAM) <- "ID_REF" rownames(dialzdat) <- NULL dialzdat <-bind_cols(geneNAM,dialzdat) @@ -506,7 +506,7 @@ THEFT <- function(){ colnames(ALZWORD) <- colnames(ALZWORD,do.NULL=FALSE) ALZWORD <- chngrownm(ALZWORD)[-1,] ALZWORD <- ALZWORD%>% - as.data.frame()%>% + as.data.frame(.,stringsAsFactors = FALSE)%>% dplyr::select(-starts_with("col")) ##Reorganizing information within the columns and final clinical data @@ -609,7 +609,7 @@ THEFT <- function(){ #Full RAW Data Fullalzdwr <- ALZDAT %>% - as.data.frame() %>% + as.data.frame(.,stringsAsFactors = FALSE) %>% cbind(ALZWORDF,.) #Raw file is output @@ -635,7 +635,7 @@ THEFT <- function(){ ##Getting the names for the rows namedarows <- rownames(rawword)[-hereim] %>% - as.data.frame() + as.data.frame(.,stringsAsFactors = FALSE) RAWWORD <- rawword[-hereim,] %>% as.data.frame() %>% bind_cols(namedarows,.) @@ -657,11 +657,11 @@ THEFT <- function(){ roALZna <- t(ALZDAT) %>% rownames(.) %>% - as.data.frame(.) + as.data.frame(.,stringsAsFactors = FALSE) colnames(roALZna) <- "ID_REF" RAWDAT <- t(ALZDAT) %>% - as.data.frame(.) + as.data.frame(.,stringsAsFactors = FALSE) colnames(RAWDAT) <- NULL rownames(RAWDAT) <- NULL @@ -671,7 +671,7 @@ THEFT <- function(){ ##Editing the file for R processing RAWDATID <- RAWDAT2[,1] %>% - as.matrix(.) + as.matrix(.,stringsAsFactors = FALSE) RAWDATNUM <- RAWDAT2[,-1] %>% mapply(.,FUN = as.numeric) %>% @@ -704,11 +704,11 @@ THEFT <- function(){ dialzdat <- scrawdat %>% dndat(.) %>% t()%>% - as.data.frame(.) + as.data.frame(.,stringsAsFactors = FALSE) colnames(dialzdat) <- rownames(RAWDATNUM) ##setting "ID_REF" as a new variable - geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1)) + geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1),stringsAsFactors = FALSE) colnames(geneNAM) <- "ID_REF" rownames(dialzdat) <- NULL dialzdat <-bind_cols(geneNAM,dialzdat) -- 2.29.0