context("link_ethoscope_metadata_remote")
test_that("link_ethoscope_metadata_remote with date and machine name", {
remote_dir <-"https://raw.githubusercontent.com/rethomics/scopr/master/inst/extdata/ethoscope_results"
dir <- paste0(scopr_example_dir(), "/ethoscope_results/")
query <- data.frame(machine_name = c("E_014", "E_014","E_029"),
date = c("2016-01-25", "2016-02-17","2016-01-25"),
time = c("21:46:14", NA, NA),
test=c(1,2,3)
# lifespan=c(10,12, NA)
)
result_dir <- tempdir()
out1 <- scopr:::link_ethoscope_metadata_remote(query,
remote_dir = remote_dir,
result_dir = result_dir,
overwrite_local = TRUE,
verbose=F)
?data.table::fread
out2 <- scopr:::link_ethoscope_metadata(query,
dir)
dt1 <- load_ethoscope(out1, verbose=F)
dt2 <- load_ethoscope(out2, verbose=F)
dt2[,file_info := NULL, meta = T]
dt1[,file_info := NULL, meta = T]
expect_identical(dt2, dt1)
})
test_that("parse_query with date, machine name, and ROIs", {
remote_dir <-"https://raw.githubusercontent.com/rethomics/scopr/master/inst/extdata/ethoscope_results"
dir <- paste0(scopr_example_dir(), "/ethoscope_results/")
query <- data.frame(machine_name = c("E_014", "E_014","E_029"),
date = c("2016-01-25", "2016-02-17","2016-01-25"),
time = c("21:46:14", NA, NA),
test=c(1,2,3)
)
# no_region_id_query <- as.data.frame(query)
# devtools::use_data(no_region_id_query, overwrite = TRUE)
query <- data.table::as.data.table(query)
query <- query[,.(region_id=1:5),by=c(colnames(query))]
query[, treatment := rep(1:3, length.out=.N)]
result_dir <- tempdir()
out1 <- scopr:::link_ethoscope_metadata_remote(query,
remote_dir = remote_dir,
result_dir = result_dir,
overwrite_local = TRUE,
verbose=F)
out2 <- scopr:::link_ethoscope_metadata(query,
dir)
dt1 <- load_ethoscope(out1, verbose=F)
dt2 <- load_ethoscope(out2, verbose=F)
dt2[,file_info := NULL, meta = T]
dt1[,file_info := NULL, meta = T]
expect_identical(dt2, dt1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.