大家有没有试过在bookdown.post.latex 里面用 for 和 if? 我试着把一些 enumerate 改成 enumerate*。但是不成功。
下面是我想要bookdown.post.latex 处理的代码
exer_start <- which(x=="\\BeginKnitrBlock{exercise}")
exer_end <- which(x=="\\EndKnitrBlock{exercise}")
enum_start <- grep("begin\\{enum", x)
enum_end <- grep("end\\{enum", x)
num_of_exer<-length(exer_start)
for (i in 1:num_of_exer) {
start<-exer_start[i]
end<-exer_end[i]
exer_env<-x[start:end]
num_items<-length(grep("item", exer_env))
if (num_items<=4) {
enum<-grep("enumerate", x[start:end])+start-1
x[enum]<- gsub('enumerate', 'enumerate*', x[enum])
}
}
各位大侠有啥建议?