R Markdown - 如何防止Knitr重复下载文件？

Question

在处理R Markdown Rmd.时,我是否可以在每次编织Markdown时阻止Knitr下载文件？

我的代码块是:

download.file(url = paste('https://d396qusza40orc.cloudfront.net/',
                      'repdata/data/StormData.csv.bz2',
                      sep = ''),
          destfile = './storm.csv.bz2',
          method = 'curl')) 

块的系统时间本身并不重要:

user    system   elapsed 
0.893   1.139    28.825 

但也许有一种方法可以缓存下载或其他内容,以便我可以更快地查看HTML.

Answer 1

在尝试下载之前,您需要检查文件是否存在.

   destfile <- './storm.csv.bz2'
    if (!file.exists(destfile))
    {
      your code
    }