Все
У меня проблема с моим циклом, и, возможно, вы можете помочь или предложить что-то лучшее.
Фрейм данных = df1
PARK WTG WEA FEONOFF CODE TEXT
MOZART 82262 08 WEA 82262 FE_FM1667 FM1667 PIT Critical I2t Sum Max 187
MOZART 82257 07 WEA 82257 FE_FM1667 FM1667 PIT Critical I2t Sum Max 62
df1 может продолжаться для i
количества строк.
Я использую следующий код:
SiWTG <- c()
for (i in 1:nrow(df1)) {
SW <- data.table(df1[i,])
SW <- data.table(SW)
SWTG <- data.table(unlist(SW[1])) #unlist table to pull out vectors
wtgNumber <- as.numeric(SWTG[2]) # vector needed for R Markdown report
FMCode <- as.character(SWTG[5]) # vector needed for R Markdown report
PARK <- as.character(SWTG[1]) # vector needed for R Markdown report
render("USASickWTGCSS.rmd", output_file = paste0(PARK, "-", wtgNumber,"-SickWTG.html"))
SiWTG <- SW
}
Это работает для первой строки в цикле фрейма данных (df1). Тогда я продолжаю получать эту ошибку:
Error in name_dots(...) : could not find function "name_dots"