tests/manual_tests/tests_yaml.R

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

library(pointblank)

al <- action_levels(warn_at = 0.1, stop_at = 0.2)

agent <- 
  create_agent(
    read_fn = ~ small_table,
    actions = al,
    lang = "de"
  ) %>%
  col_vals_in_set(
    vars(f), set = c("low", "mid", "high"),
    actions = action_levels(warn_at = 3, notify_at = 5)
  ) %>%
  col_vals_between(vars(a), 2, 8) %>%
  col_vals_gt(vars(d), 100) %>%
  col_vals_lt(
    vars(a), vars(d), na_pass = TRUE,
    preconditions = ~ . %>% dplyr::filter(a > 3)
  ) %>%
  col_vals_equal(vars(d), vars(d), na_pass = TRUE) %>%
  col_vals_null(
    vars(c),
    actions = action_levels(warn_at = 3, fns = list(warn = ~print(Sys.time())))
  ) %>%
  col_vals_regex(vars(b), regex = "[0-9]-[a-z]{3}-[0-9]{3}") %>%
  col_is_character(vars(b)) %>%
  col_exists(vars(a, b)) %>%
  col_vals_expr(expr(a %% 1 == 0)) %>%
  rows_distinct(vars(a, b, c)) %>%
  rows_distinct() %>%
  col_schema_match(
    schema = col_schema(
      date_time = c("POSIXct", "POSIXt"),
      date = "Date",
      a = "integer",
      b = "character",
      c = "numeric",
      d = "numeric",
      e = "logical",
      f = "character"
    ), 
    complete = FALSE,
    in_order = FALSE
  ) %>%
  conjointly(
    ~ col_vals_lt(., vars(a), 8),
    ~ col_vals_gt(., vars(c), vars(a)),
    ~ col_vals_not_null(., vars(b))
  ) %>%
  col_vals_between(vars(c), left = 2.03, right = vars(d), na_pass = TRUE)

yaml_agent_string(agent)

yaml_write(agent, filename = "test.yaml")

yaml_agent_string(filename = "test.yaml")

yaml_agent_show_exprs(filename = "test.yaml")

agent_plan <- yaml_read_agent(filename = "test.yaml")
agent_plan

agent_intel <- yaml_agent_interrogate(filename = "test.yaml")
agent_intel