23/07/17 00:20:33.50 gBMKQVCI.net
こんな感じで作っておけば、体重に応じた添付文書が出力できる。
dexmedetomidine_on_label=\(kg,mcg=200,mL=50){
str="用法及び用量
〈集中治療における人工呼吸中及び離脱後の鎮静〉
通常、成人には、デクスメデトミジンを6μg/kg/時の投与速度で10分間静脈内へ持続注入し（初期負荷投与）、続いて患者の状態に合わせて、至適鎮静レベルが得られる様、維持量として0.2～0.7μg/kg/時の範囲で持続注入する（維持投与）。また、維持投与から開始することもできる。
通常、6歳以上の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2～1.0μg/kg/時の範囲で持続注入する。
通常、修正在胎（在胎週数＋出生後週数）45週以上6歳未満の小児には、デクスメデトミジンを0.2μg/kg/時の投与速度で静脈内へ持続注入し、患者の状態に合わせて、至適鎮静レベルが得られる様、0.2～1.4μg/kg/時の範囲で持続注入する。
なお、患者の状態に合わせて、投与速度を適宜減速すること。"
pattern='(\\d+\\.*\\d*)\\s*([～?~])\\s*(\\d+\\.*\\d*)\\s*μg/kg/[h時]'
regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
if(length(m)!=0){
sapply(as.numeric(m[2,]),\(x) x*mL/mcg*kg) |> as.character() -> m2
sapply(as.numeric(m[4,]),\(x) x*mL/mcg*kg) |> as.character() -> m4
M=t(rbind(m[1,],paste0(m2,m[3,],m4,'mL/h')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
}
pattern='(\\d+\\.*\\d*)\\s*μg/kg'
m=as.matrix(regmatches(str,gregexec(pattern, str))[[1]])
mL_h=sapply(as.numeric(m[2,]),\(x) x*kg/mcg*mL)
mL_h |> as.character() -> str_m_Lh
M=t(rbind(m[1,],paste(mL_h,'mL')))
for(i in 1:nrow(M)){
str=sub(M[i,1],M[i,2],str)
}
str |> cat()
}
dexmedetomidine_on_label(70)