diff --git a/R/ucrdtw.R b/R/ucrdtw.R index dfec108..2db2d13 100644 --- 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 index 2358bc7..9a9e617 100644 --- 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 index c798497..35f8658 100644 Binary files a/data/synthetic_control.rda and b/data/synthetic_control.rda differ diff --git a/rucrdtw.Rproj b/rucrdtw.Rproj index f0d6187..ea5edfe 100644 --- 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