expect_lossy_cast <- function(expr) { cnd <- NULL out <- with_handlers( warning = calling(function(x) { cnd <<- x cnd_muffle(x) }), expr ) expect_s3_class(cnd, "vctrs_warning_cast_lossy") out }
Generated by dwww version 1.15 on Fri Jun 21 08:06:02 CEST 2024.