底辺私立医大を卒業した医者って頭悪いよね? Part27at HOSP底辺私立医大を卒業した医者って頭悪いよね? Part27 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト850:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122]) 23/03/19 12:23:31.87 bczs8UVv0.net ファイルをダウンロートしてからscanして文字置換するのでon lineのRだとサーバー上にファイル作成することになるので動作しないかと思ったら download.file(URL,'temp.txt') scan('temp.txt', what = character(), sep = "\n", blank.lines.skip = TRUE) は想定通りに動作してくれた。 出先でも使えて( ・∀・)イイ!! まあ、使いそうな薬剤の用量はローカルの保存してあるけど。 851:卵の名無しさん (ワッチョイ f7c7-F0re [124.47.76.122]) 23/03/19 12:42:40.89 bczs8UVv0.net https://www.kegg.jp/medicus-bin/japic_med?japic_code=00054920 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) } で対応できるけど、まだまだ変化球がありそう。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch