tests/testthat/test-views.R

In dkyleward/caliperR: Interacct with Caliper Software from R

# © Copyright Caliper Corporation. Licensed under Apache License 2.0.

test_that("df_from_view works", {
  check_connected()
  file <- system.file("extdata", "gisdk", "testing", "toy_table.bin", package = "caliperR")
  view <- dk$OpenTable("test", "ffb", list(file, NA))
  df <- df_from_view(view)
  expect_equal(df$field_b, c("a", "b", NA, "d", "e", "g"))
  expect_equal(typeof(df$field_c), "character")
  expect_true(is.na(df$field_c[[1]]))
  dk$CloseView(view)
})

test_that("df_to_view works", {
  check_connected()
  df <- data.frame("one" = c(1, 2), "two" = c(3, 4), "three" = c(5, 6))
  if ("r_view_1" %in% dk$GetViews()[[1]]) dk$CloseView("r_view_1")
  view <- df_to_view(df)
  expect_equal(view, "r_view_1")
  expect_true(view %in% dk$GetViews()[[1]])
  df2 <- df_from_view(view)
  expect_equal(df, df2)
  df$one <- 10
  view <- df_to_view(df, view)
  expect_equal(view, "r_view_1")
  df2 <- df_from_view(view)
  expect_equal(df, df2)
})