inst/tinytest/test_match_restrictions.R

In rspa: Adapt Numerical Records to Fit (in)Equality Restrictions

## match_restrictions
# adjusts correctly
library(validate)
v <- validator(x + y == 1, x > 0, y >= 0)
dat <- data.frame(x=1,y=2)
expect_equal( suppressWarnings( match_restrictions(dat,v) )
  , data.frame(x=0,y=1)
  , tolerance=0.01
)

expect_warning(match_restrictions(dat,v))

# extra, unrelated variable
dat <- data.frame(x=1,y=2,z=0)
expect_equal( suppressWarnings(match_restrictions(dat,v))
  , data.frame(x=0,y=1,z=0)
  , tolerance=0.01
)

# order of variables in data different from order of
# variables in validator.
dat <- data.frame(y=2,x=0.2)
v <- validator(x+y==1,x>=0)
expect_equal(match_restrictions(dat,v) 
 , data.frame(y=1, x=0), tolerance=0.01)



## tagging

## tagging works
w <- women
w[1,1] <- NA
w <- tag_missing(w)
expect_identical(tagged_values(w),is.na(w))

## tags are picked up
d <- data.frame(x=NA,y=0.5)
d <- tag_missing(d)
d$x <- 1
v <- validator(x + y == 1, x>0,y>0)
expect_equivalent(
  suppressWarnings(match_restrictions(d,v))
  , data.frame(x=0.5,y=0.5)
)

# regression test (Thanks to Patrick Driessens)
# the 'row.names=1L' argument caused 
expect_silent(match_restrictions(data.frame(x=1,y=1), validator(x>=0)))


result <- match_restrictions(
            data.frame(x = 1, y = 1, row.names = 1L) 
          , validate::validator(x >= 1))

expect_inherits(result$x,"numeric")