tests/testthat/test-shift_points.R

In Vickusr/AppsilonMarineDataDB: What the Package Does (One Line, Title Case)

library(dplyr)
library(data.table)
library(readr)
library(geosphere)
library(tidyr)
library(stringr)
library(RSQLite)

test_that("All ship filters can be shifted works", {
  #Data
  
  # path_to_read <- stringr::str_replace(getwd(),'tests/testthat','data/ships.rds')
  # data <- readRDS(path_to_read) %>% as_tibble()
  dbcon <- dbConnect(drv=SQLite(),dbname= str_replace(getwd(),'tests/testthat','data/ships.db'))
  data <- dbGetQuery(dbcon,'SELECT * from ships')
  dbDisconnect(dbcon)
  # We want to test that all shipnames can in deed be shifted for the 
  # distance calculation prep
  data_colnames <- colnames(data)
  
  # randomly test some examples
  testing_indexes <- unique(abs(as.integer(rnorm(50,1)*20)))
  testing_indexes[testing_indexes != 0]
  
  for (i in data$SHIPNAME[testing_indexes]){
    to_test_df <- data %>% filter(SHIPNAME == i)
    expect_equal(setdiff(colnames(shift_points(to_test_df)),data_colnames),c('PREV_LAT','PREV_LON') )
  }
  
})