Knitr：如何更新块选项？

Question

我想添加一个块选项，比如add_graph，如果TRUE，则将字符LINK附加到图标题。 （实际上，想要使用LaTeX attachfile包在其标题中包含一个单独的图形副本。）根据Knitr书中的一个例子，我认为以下内容可行，但事实并非如此。

hook_plot <- knit_hooks$get('plot')
knit_hooks$set(plot=function(x, options){
   if(!is.null(cap <- options$fig.cap)){
      if(options$add_graph){
         opts_chunk$set(fig.cap = paste(cap, "LINK."))
      }
   }
   hook_plot(x, options)
})

具有块选项add_graph=TRUE和fig.cap的后续块确实会生成一个图，但没有任何内容附加到标题。