library(xpose4)
context("Reading data")
compare_xpdb <- function (xpdb_1, xpdb_2) {
expect_equal(xpdb_1@SData,xpdb_2@SData)
expect_equal(xpdb_1@Data,xpdb_2@Data)
}
test_that("methods work with simpraz example",{
sink("tmp.txt")
simprazExample(overwrite=TRUE)
tmp <- read.table("xptab1",skip=1,header=T)
tmp <- read.nm.tables(table.files="xptab1")
tmp <- read_nm_table(nm_table = "xptab1")
tmp <- read.nm.tables(table.files="xptab1")
xpdb_1 <- xpose.data(1)
xpdb_2 <- xpose.data(1,new_methods=FALSE)
xpdb_3 <- xpose.data(1,method="slow")
sink()
file.remove("tmp.txt")
compare_xpdb(xpdb_1,xpdb_2)
compare_xpdb(xpdb_1,xpdb_3)
compare_xpdb(xpdb_2,xpdb_3)
file.remove("run1.ext","run1.lst","run1.mod","simpraz.dta","xptab1")
})
test_that("readr methods work with local files",{
skip_on_cran()
if(!run_local_tests) skip("Examples with local file dependencies")
# compare_xpdb <- function (xpdb_1, xpdb_2) {
# expect_equal(xpdb_1@SData,xpdb_2@SData)
# expect_equal(xpdb_1@Data,xpdb_2@Data)
# }
#
setwd("/Users/ancho179/Documents/_PROJECTS/Xpose/Examples/other_examples/Andy_Simpraz")
sink("tmp.txt")
xpdb <- xpose.data(5)
xpdb_1 <- xpose.data(5,method="slow")
# xpdb_1 <- xpose.data(5,method="readr_1")
#xpdb_2 <- xpose.data(5,method="readr_2")
#xpdb_3 <- xpose.data(5,method="readr_3")
sink()
file.remove("tmp.txt")
compare_xpdb(xpdb,xpdb_1)
#compare_xpdb(xpdb,xpdb_2)
#compare_xpdb(xpdb,xpdb_3)
setwd("/Users/ancho179/Documents/_PROJECTS/Xpose/Examples/other_examples/final_954")
sink("tmp.txt")
xpdb <- xpose.data(954)
xpdb_1 <- xpose.data(954,method="slow")
sink()
file.remove("tmp.txt")
compare_xpdb(xpdb,xpdb_1)
setwd("/Users/ancho179/Documents/_PROJECTS/Xpose/Examples/other_examples/hands_on_2_solutions")
sink("tmp.txt")
xpdb <- xpose.data(12)
xpdb_1 <- xpose.data(12,method="slow")
sink()
file.remove("tmp.txt")
compare_xpdb(xpdb,xpdb_1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.