tests/testthat/test-link_ethoscope_metadata_remote.R

In scopr: Read Ethoscope Data

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)

  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)
})