为嵌套函数的单元测试生成数据

问题描述

给定一个调用多个函数的函数：

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 生成必要数据的干净方法是什么？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）