r脚本生成的输出为空

我最近学习了一个需求的r脚本，当我尝试用示例数据运行这个脚本时，它给了我0列和0行作为结果。我不确定原因是什么。有人能指出脚本出什么问题了吗

clinAct<- data.frame(
`Pr # Required Subj`= 1:5,
'Pr # enrolled'= as.Date(c("2010-01-05", "2019-01-07", "2020-01-03", "2010-01-04", "2020-01-05")),
'Pr L Subj Enr Exp'= as.Date(c("2021-03-30","2021-03-30","2021-02-09", "2010-01-04", "2020-01-05"))
)

target <- function() {
  first_column <- data.frame(
    Date = clinAct$`Pr L Subj Enr Exp`,
    `# Required Total` = clinAct$`Pr # Required Subj`,
    check.names = F
    )
  return(list(first_column))
  }

target()

---

clinAct如评论中所述，data.frame正在“修复”列名以删除空格和特殊字符。你可以很容易地检查这个

> colnames(clinAct)
[1] "Pr...Required.Subj" "Pr...enrolled"      "Pr.L.Subj.Enr.Exp" 

您可以使函数中的代码适应更改后的列名，或者-如果您确实需要以上面指定的格式保留列名-在设置
cliact
时，您可以使用与定义
第一列时相同的方法设置
check.names=F

话虽如此，我真的看不出您在尝试做什么，但我怀疑您可能能够更优雅地使用
dplyr
：）
函数中用于数据帧的名称不正确。检查
名称（clinAct）
。