R语言循环生成Markdown时数据类型错误的原因及解决方法

错误原因 #

当学生未提交作业时，currentreport会变成行数为0但保留原列类型的tibble（比如Points列是整数类型）。此时代码执行currentreport[nrow(currentreport) + 1, ] <- list('-', '-', '-')，试图往整数类型的Points列中插入字符'-'，而tibble严格要求列类型一致性，无法自动将字符转换为整数，因此触发类型不兼容错误。

解决办法 #

核心思路是确保添加的内容与列类型兼容，或者提前统一列类型，以下是两种可行方案：

方案1：提前将所有列转换为字符类型 #

在获取currentreport后，直接将所有列转为字符类型，这样后续插入字符或数字都不会有类型冲突：

currentreport <- df2[df2[paste("Student", i, sep = " ")] == 1, c(1, 2, 3)]
# 转换所有列为字符类型
currentreport <- dplyr::mutate(currentreport, dplyr::across(everything(), as.character))

方案2：为空数据创建新的兼容类型dataframe #

当currentreport为空时，直接创建一个新的dataframe，确保列类型统一为字符，避免在原类型约束下插入不兼容值：

if (nrow(currentreport) < 1) {
  # 替换Column1、Column2为df2中对应列的实际名称
  currentreport <- tibble::tibble(
    Column1 = '-',
    Column2 = '-',
    Points = '-'
  )
}

修改后的完整代码片段 #

结合方案1的完整循环内代码示例：

for (i in 1:n) {
  cat("\n\n\\pagebreak\n")
  currentname <- df2[1, paste("Student", i, sep = " ")]
  currentreport <- df2[df2[paste("Student", i, sep = " ")] == 1, c(1, 2, 3)]
  # 新增：统一转换为字符类型
  currentreport <- dplyr::mutate(currentreport, dplyr::across(everything(), as.character))
  
  deduct <- sum(as.integer(currentreport$Points), na.rm = TRUE)
  grade <- 100 + deduct
  
  cat('\n')  
  writeLines(paste("\\begin{center}
\\section*{", title, "}
\\end{center}
", sep = '')) 
  writeLines(paste("\\begin{center}
\\textbf{\\large Name: ", currentname, "}
\\end{center}
", sep = '')) 
  writeLines(paste("\\begin{center}
\\textbf{\\large Grade: ", grade, "}
\\end{center}
", sep = '')) 
  cat('\n\n')  
  cat('&nbsp;')
  
  if (nrow(currentreport) < 1) {
    currentreport[nrow(currentreport) + 1, ] <- list('-', '-', '-')
  }
  currentreport[nrow(currentreport) + 1, ] <- list(NA, "Total points deducted", as.character(deduct))   
  currentreport[nrow(currentreport) + 1, ] <- list(NA, "Grade", as.character(grade))
  
  table <- xtable(currentreport, align = "lclc")
  print(table, hline.after = c(-1, 0, nrow(currentreport) - 2, nrow(currentreport)), 
        comment = F, include.rownames = FALSE, digits = 0, size = 'large')

  cat('\n') 
}

注意：使用方案1时，计算deduct需要将字符类型的Points转回整数，同时加上na.rm = TRUE避免NA干扰；添加deduct和grade到表格时，也需要转为字符类型保持一致。

内容的提问来源于stack exchange，提问作者David Beales