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

如何解决为嵌套函数的单元测试生成数据

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

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