I get a different error with the fundamental problem being the use of nrow(badie). If I use length(badie), the code runs.
library(openxlsx)
badie <- 10
wb <- createWorkbook()
if (nrow(badie) > 0) {
write.csv(badie,'bad.csv',row.names=FALSE,na='')
addWorksheet(wb,'bads')
writeData(wb,'bads',badie)
}
Error in if (nrow(badie) > 0) { : argument is of length zero
#This works
if (length(badie) > 0) {
write.csv(badie,'bad.csv',row.names=FALSE,na='')
addWorksheet(wb,'bads')
writeData(wb,'bads',badie)
}