这是一个相当简单的问题，应该有一个简单的解决方案，对不对？我一直在试图删除脚注数字之间的空格，我可以使用一些帮助。
下面是一些示例代码：
dat$place <- c("South Atlantic", "Gulf of Mexico", "Pacific")
Footnotes.list$ft_IOModel <- "Footnote_1"
Footnotes.list$ft_EFL <- "Footnote_2"
Footnotes.list$ft_WFL <- "Footnote_3"
for (i in 1:length(dat$place)) {
rmarkdown::render(Comm_Region.Rmd,
output_dir = output,
output_file = paste0(filename,".docx"))
}下面是Comm_Region.Rmd的markdown代码（重点是“South Atlantic”和“Gulf of Mexico”的代码）：
retailers.`r if(place == "South Atlantic") {
paste0("^[",Footnotes.list$ft_IOModel,"] ^,^ ^[", Footnotes.list$ft_EFL,"]")}
else if (place == "Gulf of Mexico") {
paste0("^[",Footnotes.list$ft_IOModel,"] ^,^ ^[", Footnotes.list$ft_WFL,"]")}
else {
paste0("^[",Footnotes.list$ft_IOModel,"]")}`这就是我要找的
这就是我一直得到的：
我明白我需要删除逗号（^,^ ^）前后的空格以获得所需的输出;然而，当我这样做时，整个代码中断，脚注不再出现在页面底部。我也试过LaTex，但没有用。一定有更好的方式来写这个。有什么建议吗？
1条答案
按热度按时间whlutmcx1#
如果你喜欢使用LaTeX，这可能对使用
fnpct包有帮助。Retailers.
r if(place == "South Atlantic"){ paste0("\\footnote{", Footnotes.list$ft_IOModel, "}\\footnote{", Footnotes.list$ft_EFL, "}") }else if(place == "Gulf of Mexico"){ paste0("\\footnote{", Footnotes.list$ft_IOModel, "}\\footnote{", Footnotes.list$ft_WFL, "}") }else{ paste0("\\footnote{", Footnotes.list$ft_IOModel, "}") }