Nothing
url <- paste0("https://github.com/THLfi/read.gt3x/",
"files/", "3522749/",
"GT3X%2B.01.day.gt3x.zip")
destfile <- tempfile(fileext = ".zip")
dl <- utils::download.file(url, destfile = destfile, mode = "wb")
gt3x_file <- utils::unzip(destfile, exdir = tempdir())
gt3x_file <- gt3x_file[!grepl("__MACOSX", gt3x_file)]
path <- gt3x_file
gz <- R.utils::gzip(path, remove = FALSE, overwrite = TRUE)
gz_file <- tempfile(fileext = ".gt3x.gz")
file.copy(gz, gz_file)
testthat::test_that("Reading in Old format works", {
have_log_and_info(path)
testthat::expect_warning({
res <- read.gt3x::read.gt3x(path, verbose = 2, debug = TRUE)
}, regexp = NA)
testthat::expect_is(res, "activity")
testthat::expect_is(res, "matrix")
testthat::expect_equal(colnames(res), c("X", "Y", "Z"))
print(res)
head(res)
cm <- unname(apply(res, 2, mean))
testthat::expect_equal(cm, c(
-0.228402625555557,
0.447592941851854,
0.11958707074074
), tolerance = 1e-5)
testthat::expect_equal(unname(res[4823, "Y"]), 0.528)
all_attr <- attributes(res)
testthat::expect_true(all_attr$old_version)
testthat::expect_equal(all_attr$sample_rate, 30)
rm(all_attr)
res = as.data.frame(res, verbose = TRUE)
print(res)
head(res)
rm(res)
})
testthat::test_that("Converting Old to Data.frame", {
res <- read.gt3x::read.gt3x(path, asDataFrame = TRUE)
testthat::expect_is(res, "activity_df")
testthat::expect_is(res, "data.frame")
testthat::expect_equal(colnames(res), c("time", "X", "Y", "Z"))
cm <- unname(apply(res[, c("X", "Y", "Z")], 2, mean))
testthat::expect_equal(cm, c(
-0.228402625555557,
0.447592941851854,
0.11958707074074
), tolerance = 1e-5)
testthat::expect_equal(
res$time[48], structure(1340794441.56667,
class = c("POSIXct", "POSIXt"), tzone = "GMT"
)
)
testthat::expect_equal(res$Y[4823], 0.528)
all_attr <- attributes(res)
rm(res)
testthat::expect_true(all_attr$old_version)
testthat::expect_equal(all_attr$sample_rate, 30)
rm(all_attr)
})
testthat::test_that("Converting Old with .gz file", {
res <- read.gt3x::read.gt3x(path, asDataFrame = FALSE)
df2 <- read.gt3x(gz_file,
asDataFrame = FALSE, verbose = 2,
cleanup = TRUE
)
testthat::expect_equal(res, df2)
rm(res)
rm(df2)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.