23/03/16 09:57:48.23 s2OdkC//0.net
維持
通常、成人にはミダゾラム0.03~0.06mg/kg/hより持続静脈内投与を開始し、患者の鎮静状態をみながら適宜増減する。(0.03~0.18mg/kg/hの範囲が推奨される)
~を挟んで表示されても変換できるようにプログラムする必要があるなぁ。
正規表現を使って抽出
> cat(str)
通常、成人にはミダゾラム0.03~0.06mg/kg/hより持続静脈内投与を開始し、患者の鎮静状態をみながら適宜増減する。(0.03~0.18mg/kg/hの範囲が推奨される)
> pattern='(\\d+\\.*\\d*)\\s*([~~])\\s*(\\d+\\.*\\d*)\\s*mg/kg'
> regmatches(str,gregexec(pattern, str))[[1]] |> as.matrix() -> m
> m
[,1] [,2]
[1,] "0.03~0.06mg/kg" "0.03~0.18mg/kg"
[2,] "0.03" "0.03"
[3,] "~" "~"
[4,] "0.06" "0.18"