扩展工作日公式以创建函数

Question

我正在练习使用R创建函数，并且可以提供一些帮助。我可以让工作日功能独立工作，但想把它变成一个限制输入值的函数。现在我试图限制0-31到0-12之间的天数并返回错误消息。如果二月有28天，有些月只有30天或者包括飞跃年，那么它是否会很长时间啰嗦？如何最好地处理限制输入值？

dayoftheweek=function(dd,mm,yyyy){
if(dd<1 | dd>31) warning("Enter a valid date")
if(mm<1 | mm>12) warning("Enter a valid date")
date=string("dd-mm-yyyy")
return(weekdays(as.Date(date,'%d-%m-%Y')))
}

dayoftheweek(12,12,2016)

我希望能够手动输入日期，但“日期”行似乎没有链接到“工作日”命令。我知道XX-XX-XXXX值在公式中起作用，所以字符串在这里使用不正确吗？