测试包 源码

测试包 要重现该问题,请运行代码: devtools::load_all() ## Duplicate and coerce x <- make_integer_altrep(10) .Internal(inspect(x)) x1 <- x x1[1] <- 1.0 .Internal(inspect(x1)) ## No duplicate and coerce x <- make_integer_altrep(1024) .Internal(inspect(x)) x1 <- x x1[1] <- 1.0 .Internal(inspect(x1)) 结果: devtools :: load_all() # > Loading testPkg # # Duplicate and coerce x <- make_integer_altrep( 10 ) .Internal(i