tests/manual_tests/tests_conjointly.R

In rich-iannone/pointblank: Data Validation and Organization of Metadata for Local and Remote Tables

library(pointblank)
library(tidyverse)

tbl <-
  dplyr::tibble(
    a = c(5, 7, 6, 5, 8, 7),
    b = c(3, 4, 6, 8, 9, 11),
    c = c(2, 6, 8, NA, 3, 8)
  )

agent <-
  create_agent(tbl = tbl) %>%
  conjointly(
    ~ col_vals_gt(., columns = vars(a), value = 5),
    ~ col_vals_lt(., columns = vars(b), value = 10),
    ~ col_vals_not_null(., columns = vars(c))
  ) %>%
  col_vals_gt(columns = vars(a), value = 7) %>%
  col_vals_lt(., columns = vars(b), value = 12) %>%
  conjointly(
    ~ col_vals_gt(., columns = vars(a), value = 5),
    ~ col_vals_lt(., columns = vars(b), value = 10),
    ~ col_vals_not_null(., columns = vars(c))
  ) %>%
  interrogate()

agent

get_data_extracts(agent)


tbl <-
  dplyr::tibble(
    a = c(1, NA, NA),
    b = c(1, NA, 1),
    c = c(1, 1,  1)
  )

create_agent(tbl = tbl) %>%
  conjointly(
    ~ col_vals_not_null(., columns = vars(a, b, c)),
  ) %>%
  interrogate()