修改herblabel函数生成RTF标签时出现多余空白行求助

我帮你排查了这段RTF生成代码的问题，多余空白行的根源在于嵌套ifelse逻辑里重复生成了独立的RTF段落块，和短代码版本的简洁逻辑形成了鲜明对比。下面给你详细拆解问题和修复思路：

核心问题定位 #

你的长代码存在两个关键问题：

1. 重复生成完整段落块：在处理DetNov1_Determinateur_Lieu和日期字段时，每一层ifelse分支都生成了一个包含{\\pard...\\par }的完整RTF段落结构。当Lieu不为空时，你先输出一个Lieu的段落，接着又拼接一个日期的段落块——如果日期字段全为空，这个日期段落块就会变成空的{\\pard...\\par }，直接被RTF解析为空白行。
2. 段落嵌套错误：RTF规范里不建议在一个段落块内嵌套另一个完整段落，这种结构会被解析器识别为额外的空段落，进而产生多余空白。

而你的短代码（比如Note、Projet那两行）逻辑更合理：只有当字段不为空时，才生成一个完整的段落块，不会输出空的段落结构，自然没有多余空白行。

具体错误点示例 #

看你长代码中Lieu不为空的分支：

paste("{\\pard\\keep\\keepn\\fi0\\li0\\qc", "\\sb180", "\\sb20", "\\sa20\\fs18 ", 
      ifelse(is.na(herbdat$DetNov1_Determinateur_Lieu), "", as.character(herbdat$DetNov1_Determinateur_Lieu)),
      # 此处开始拼接另一个完整的日期段落块
      ifelse(((is.na(herbdat$DetNov1_Determinateur_Date_Jour) )& (is.na(herbdat$DetNov1_Determinateur_Date_Mois) )& (is.na(herbdat$DetNov1_Determinateur_Date_Annee))), "", 
             ifelse(((is.na(herbdat$DetNov1_Determinateur_Date_Jour))& (is.na(herbdat$DetNov1_Determinateur_Date_Mois))), 
                    paste("{\\pard\\keep\\keepn\\fi0\\li0\\qc", "\\sb180", "\\sb20", "\\sa20\\fs18 ", ", ", ifelse(is.na(herbdat$DetNov1_Determinateur_Date_Annee), "", as.character(herbdat$DetNov1_Determinateur_Date_Annee)), "", "\\par }",sep = "") ,
                    # 其他日期分支也都生成独立段落块
                    ...
             )
      ), 
      "\\par }", sep = "")

这里的问题是：你已经在开头生成了一个包裹Lieu的段落块，却又在后面拼接了另一个完整的日期段落块，相当于在一个段落里嵌套了另一个段落，RTF解析时会强制把嵌套结构拆分为两个段落，哪怕日期内容为空，也会生成空白行。

修复方案（优化后的代码） #

核心思路是把Lieu和日期内容合并到同一个RTF段落块中，只在内容不为空时生成段落，避免重复或空段落。

# 第一步：先构建Lieu+日期的纯文本内容（处理各种缺失情况）
lieu_text <- ifelse(is.na(herbdat$DetNov1_Determinateur_Lieu), "", paste0(herbdat$DetNov1_Determinateur_Lieu, ", "))

date_text <- ifelse(
  all(is.na(herbdat$DetNov1_Determinateur_Date_Jour), 
      is.na(herbdat$DetNov1_Determinateur_Date_Mois), 
      is.na(herbdat$DetNov1_Determinateur_Date_Annee)),
  "",
  paste(
    ifelse(is.na(herbdat$DetNov1_Determinateur_Date_Jour), "", as.character(herbdat$DetNov1_Determinateur_Date_Jour)),
    ifelse(is.na(herbdat$DetNov1_Determinateur_Date_Mois), "", firstletteruppercase(as.character(herbdat$DetNov1_Determinateur_Date_Mois))),
    ifelse(is.na(herbdat$DetNov1_Determinateur_Date_Annee), "", as.character(herbdat$DetNov1_Determinateur_Date_Annee)),
    sep = " "
  ) %>% stringr::str_squish() # 自动去除多余空格
)

# 合并并清理文本（去掉末尾多余的逗号）
full_content <- paste0(lieu_text, date_text) %>% stringr::str_remove(", $")

# 第二步：仅当内容不为空时，生成单个RTF段落块
ifelse(full_content == "", "",
       paste("{\\pard\\keep\\keepn\\fi0\\li0\\qc\\sb180\\sb20\\sa20\\fs18 ", full_content, "\\par }", sep = "")
)

额外优化建议 #

• 用dplyr::case_when替代多层嵌套的ifelse，代码可读性更高，也更容易排查逻辑错误；
• 生成RTF时尽量保持段落结构单一，不要在一个段落块内嵌套另一个完整段落，避免解析异常；
• 可以把文本处理逻辑封装成小函数，后续维护和修改会更方便。

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