Question

我在我正在构建的包中有一个函数，它将十六进制代码分配给全局环境以供分析师使用...

optiplum<-function(){
  assign(
    x="optiplum",
    value=rgb(red=129,green=61,blue=114, maxColorValue = 255),
    envir=.GlobalEnv)
  }

我的单位测试代码是：

test_that("optiplum - produces the correct hex code",{
 optiplum()
  expect_true(identical(optiplum,"#813D72"))
})

当我手动运行代码时，没有错误：

> str(optiplum)
 chr "#813D72"
> str("#813D72")
 chr "#813D72"
> identical("#813D72",optiplum)
[1] TRUE
> expect_true(identical(optiplum,"#813D72"))

当我运行test_file（）时也没有错误

> test_file("./tests/testthat/test-optiplum.R")
optiplum : .

但是，当我将测试作为我的devtools工作流程的一部分运行时：

> test()
Testing optINTERNAL
Loading optINTERNAL
optiplum : 1


1. Failure: optiplum - produces the correct hex code --------------------------------------------------------------------------------------------------------------
identical(optiplum, "#813D72") isn't true

任何人对于为什么会出现这种情况以及如何解决这种情况有任何想法？

Answer 1

分配给全局环境是禁忌，请参阅R Inferno和testthat尽可能隔离测试（请参阅test_that()详细信息）。因此，optiplum()对全局环境的分配将不会成功，因为testthat函数严格禁止此类行为。

@Hadley正确地指出函数应该只返回字符串而不是分配它，特别是因为每次使用它只是两个额外的字符。

所以不是

optiplum<-function(){
  assign(
    x="optiplum",
    value=rgb(red=129,green=61,blue=114, maxColorValue = 255),
    envir=.GlobalEnv)
  }

但

optiplum <- function() rgb(red=102,green=17,blue=109, maxColorValue = 255)

r devtools test（）错误但testthat test_file（）有效

1 个答案: