4

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

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

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

4

1 回答 1

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)
于 2014-05-02T14:12:08.060 回答