I'm trying to get a table I've made to output into a pdf for distribution, however, I keep getting an argument length of zero as an error.
my df looks like this, but is 80 rows long:
DM MPH_Over Variance
1 ATLR 1.8277662 9.972406
2 BAKA 2.9154519 6.692614
3 SERF 9.1898734 6.633396
4 DKRE 0.9621212 6.723101
The code I've gotten is as follows.
library(gridExtra)
names(dmover) <- c("DM","MPH_Over","Variance")
dmovertab <- as.data.frame(dmover[1,])
EmptyLine <- data.frame(DM = "",MPH_Over = "",Variance = "")
pdf(file = "q.pdf")
for (i in 2:nrow(dmover))
{
if ((nrow(dmover$MPH_Over[i])) == (nrow(dmover$MPH_Over[i-1])))
{dmovertab <- rbind(dmovertab, dmover[i,])}
else {
dmovertab <- rbind(dmovertab, EmptyLine)
dmovertab <- rbind(dmovertab, dmover[i,])
}
}
grid.table(dmovertab,rows=NULL)
dev.off()
It keeps throwing an error (below) while outputting a .pdf table of 1 row? I do feel like I'm doing something small wrong and I'm going to be an idiot when someone tells me what I've messed up. Any help you can give me to fix this if conditional would be great.
Error in if ((nrow(dmover$MPH_Over[i])) == (nrow(dmover$MPH_Over[i - 1]))) { : argument is of length zero"