exampleSite/R/build.R (view raw)
1 2 3 4 5 6 7 8 9 10 11 12 | if (Sys.getenv('USER') != 'yihui' || Sys.which('git') == '' ||
!grepl(
'git@github.com:yihui/hugo-xmin.git',
system2('git', c('remote', '-v'), stdout = TRUE)
)) q('no')
file.copy('content/_index.markdown', '../README.md', overwrite = TRUE)
if (Sys.which('sed') != '') system("sed -i '' -e '1,6d' -e '34,38d' ../README.md")
cat(
'[](https://xmin.yihui.name)\n',
file = '../README.md', append = TRUE
)
|