n$parameter$EZC3D$C3DR_VERSION (`actual`) not identical to as.character(packageVersion("c3dr")) (`expected`).

`actual`:   "0.1.1.9000"
`expected`: "0.1.2"

expect_error(c3d_write(TRUE, "newdir"), regexp = "'x' needs to")
expect_error(c3d_write(d, TRUE), regexp = "'file' needs to be a character")
regexp = "'file' needs to be a correct path"
tmp <- tempfile() # create temporary file
expect_identical(n$header, d$header) # same header
expect_identical(n$labels, d$labels) # same labels
expect_equal(n$data, d$data, tolerance = 0.0001) # same data
expect_equal(n$residuals, d$residuals, tolerance = 0.0001)
expect_equal(n$analog, d$analog, tolerance = 0.0001) # same analogs
# force platform data is not exported at the moment
test_that("c3dr parameter export works", {