Функция сортировки работает.Он выводит список лет вместо чтения в 104 файлах на моем компьютере.Я также попытался установить knitr и код, указанный ниже в комментариях.Я открыт для идей о внутренней части функции (year = "all"), но моя домашняя работа требует, чтобы мы использовали функцию вставки.
setwd("C:/Users/Sarah/Downloads/names-full-datasets/names-full-datasets")
library(purrr)
baby.names <- function(year="all"){
if(year!="all"){cnames <- read.table(paste("yob",year,".txt", sep =
""),header = FALSE,
sep = ",", col.names = c("Name","Sex","Count"))
cnames$year <- year
}
else
{
cnames <- lapply(1910:2013, baby.names)
ldply(cnames)
}
}
yall <- baby.names()`
```