如何修改，谢谢！

dxystata

936

收藏 2013-08-06

悬赏 100 个论坛币已解决

aaa<-function(yvar,xvar){
  if (!is.null(yvar) && !is.null(xvar)) {
print("aaaaaaaaaaaaa")
  } else {
print("bbbbbbbbbbbbb")
  }
}
aaa(yvar="a",xvar="b")
结果显示aaaaaaaaaaaaa
aaa() # yvar和xvar不指定
结果显示bbbbbbbbbbbbb

但 aaa() 出错啦！

最佳答案

水天一色DIY 查看完整内容

首先，你确定你的aaa这个function环境下输入‘aaa()’得到'bbbbbbbbbbbb'？其次，按照你的意思，不指定（即为NULL值）可以得到“bbbbbbbbbbb”，那么你的function定义时需要修改一下，如下：

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

水天一色DIY

2013-8-6 00:06:40

首先，你确定你的aaa这个function环境下输入‘aaa()’得到'bbbbbbbbbbbb'？
其次，按照你的意思，不指定（即为NULL值）可以得到“bbbbbbbbbbb”，那么你的function定义时需要修改一下，如下：

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

ntsean

2013-8-7 10:05:21

这个应该可以

aaa<-function(yvar,xvar){
  call <- match.call()
  if (!is.null(call$yvar) && !is.null(call$xvar)) {
print("aaaaaaaaaaaaa")
  } else {
print("bbbbbbbbbbbbb")
  }
}

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群