# #——回声= FALSE,结果=“黑名单”,回声= FALSE ----------------------------------- 犯错< -尝试({非营利组织<——(牧师(strsplit (getwd (), '/')[[ 1]]) = =“seqplots”)1(!长度(非营利组织))非营利组织< - 1 ppath < -粘贴(代表(' . ./ ',非营利组织),崩溃 = '') }) 如果(类(err) = =“try错误”)ppath < - ' . ./“猫(knitr: knit_child(文本= gsub(“img / paste0 (ppath,”本月/ seqplots / www /帮助/ img /”),readline (paste0 (ppath,“本月/ seqplots / www /帮助/ QuickStart.md”))),安静= TRUE), 9 = ' \ n ') ## ---- 回声= FALSE --------------------------------------------------------------- sessionInfo ()