23/03/19 12:42:40.89 bczs8UVv0.net
URLリンク(www.kegg.jp)
6の次が8になっている
drug2infusion=\(kg,mg,mL,src,
start='(6. 用法及び用量',
end='.+)(7. 用法及び用量に関連する注意|8. 重要な基本的注意)'){
pattern=paste0(start,end,collapse='')
re=regmatches(src,gregexec(pattern,src))[[1]][2]
str=gsub('<','\n\n<',re)
g2mL(kg,mg,mL,str)
}
で対応できるけど、まだまだ変化球がありそう。