tests/testthat/_snaps/sql.md

sql: dumps sql

Code
  dump_sql(m, d, skip_header = TRUE)
Output


  ALTER TABLE `ds`
  ADD `child` TEXT;

  ALTER TABLE `ds`
  ADD `workstatus` TEXT;

  -- M1: maximum age
  -- Age is limited.
  -- 
  -- R expression: if (age > 130) age <- 130
  UPDATE `ds`
  SET `age` = 130
  WHERE `age` > 130.0;

  -- M2: Child labor
  -- A child should not work.
  -- 
  -- R expression: if (age < 12) {
  --     income <- 0
  --     child <- TRUE
  -- }
  UPDATE `ds`
  SET `income` = 0
  WHERE `age` < 12.0;

  UPDATE `ds`
  SET `child` = 1
  WHERE `age` < 12.0;

  -- M3: has job
  -- Income means job.
  -- R expression: if (income > 0) {
  --     workstatus <- "job"
  -- }
  UPDATE `ds`
  SET `workstatus` = 'job'
  WHERE `income` > 0.0;


Try the dcmodifydb package in your browser

Any scripts or data that you put into this service are public.

dcmodifydb documentation built on June 17, 2022, 5:05 p.m.