adding explicit stringsAsFactors = FALSE in package code

pboesu · Mar 2, 2020 · 1b8f07d · 1b8f07d
1 parent 44a3e0f
commit 1b8f07d
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/R/ucrdtw.R b/R/ucrdtw.R
@@ -9,7 +9,7 @@
 #' @export
 #'
 summary.ucrdtw <- function(object, ...){
-  print(as.data.frame.list(object), row.names=FALSE, ...)
+  print(as.data.frame.list(object), row.names=FALSE, stringsAsFactors = FALSE, ...)
 }
 
 #' Summarize subsequence search
@@ -23,7 +23,7 @@ summary.ucrdtw <- function(object, ...){
 #' @export
 #'
 summary.ucred <- function(object, ...){
-  print(as.data.frame.list(object), row.names=FALSE, ...)
+  print(as.data.frame.list(object), row.names=FALSE, stringsAsFactors = FALSE, ...)
 }
 
 

diff --git a/data-raw/prepare_data.R b/data-raw/prepare_data.R
@@ -1,7 +1,7 @@
 #prepare package data
-synthetic_control <- read.table("data-raw/synthetic_control.data")
+synthetic_control <- read.table("data-raw/synthetic_control.data", stringsAsFactors = FALSE)
 synthetic_control <- as.matrix(synthetic_control)
-devtools::use_data(synthetic_control)
+usethis::use_data(synthetic_control, overwrite = TRUE)
 #write out data file as one long line
 write.table(as.vector(t(synthetic_control)), "inst/extdata/col_sc.txt", row.names=FALSE, col.names=FALSE)
 #write out query files

diff --git a/data/synthetic_control.rda b/data/synthetic_control.rda
diff --git a/rucrdtw.Rproj b/rucrdtw.Rproj
@@ -17,5 +17,5 @@ StripTrailingWhitespace: Yes
 
 BuildType: Package
 PackageUseDevtools: Yes
-PackageInstallArgs: --no-multiarch --with-keep.source
+PackageInstallArgs: --with-keep.source
 PackageRoxygenize: rd,collate,namespace,vignette