给定一个调用多个函数的函数:
myFun_top <- function (a = "this", b = "that") {
x <- myFun_low1(a = a)
y <- myFun_low2(b = b)
z <- paste(x, y)
return(z)
}
myFun_low1 <- function (a) {
x <- paste(a, "is")
return(x)
}
myFun_low2 <- function (b) {
y <- paste(b, "isn't")
return(y)
}
由于每个单元测试都应该测试一个函数(这里是 myFun_low1 或 myFun_low2),在单元测试之前为 myFun_low2 生成必要数据的干净方法是什么?