org babel如何tangle result?

tangle好像默认是只导出代码块, 如何一并把结果块导出了? 举个例子: 这是org file中的样子:

#+begin_src R
data %>% head(2)
#+end_src

#+RESULTS:
: # A tibble: 2 x 31
:     date s1bm1 s1bm2 s1bm3 s1bm4 s1bm5 s2bm1 s2bm2 s2bm3 s2bm4 s2bm5 s3bm1 s3bm2
:    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
: 1 192701  0.45  -8.3 -4.79  3.23  2.02  2.56 -4.24 -0.06 -0.67 11.1  -0.63 -0.22
: 2 192702  2.49  -0.3 11.0   3.75 10.2   1.96  8.69  7.86  4.45  7.59  6.12  5.53
: # … with 18 more variables: s3bm3 <dbl>, s3bm4 <dbl>, s3bm5 <dbl>, s4bm1 <dbl>,
: #   s4bm2 <dbl>, s4bm3 <dbl>, s4bm4 <dbl>, s4bm5 <dbl>, s5bm1 <dbl>,
: #   s5bm2 <dbl>, s5bm3 <dbl>, s5bm4 <dbl>, s5bm5 <dbl>, RMRF <dbl>, SMB <dbl>,
: #   HML <dbl>, Mom <dbl>, RF <dbl>

我希望tangle的结果文件的样子是:

data %>% head(2)
##+RESULTS:
#: # A tibble: 2 x 31
#:     date s1bm1 s1bm2 s1bm3 s1bm4 s1bm5 s2bm1 s2bm2 s2bm3 s2bm4 s2bm5 s3bm1 s3bm2
#:    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#: 1 192701  0.45  -8.3 -4.79  3.23  2.02  2.56 -4.24 -0.06 -0.67 11.1  -0.63 -0.22
#: 2 192702  2.49  -0.3 11.0   3.75 10.2   1.96  8.69  7.86  4.45  7.59  6.12  5.53
#: # … with 18 more variables: s3bm3 <dbl>, s3bm4 <dbl>, s3bm5 <dbl>, s4bm1 <dbl>,
#: #   s4bm2 <dbl>, s4bm3 <dbl>, s4bm4 <dbl>, s4bm5 <dbl>, s5bm1 <dbl>,
#: #   s5bm2 <dbl>, s5bm3 <dbl>, s5bm4 <dbl>, s5bm5 <dbl>, RMRF <dbl>, SMB <dbl>,
#: #   HML <dbl>, Mom <dbl>, RF <dbl>

也就是result前面加上注释. 如果直接不行的话. 我想或许可以用literate programming, 但有个问题, 在引用前面的结果的时候, 怎样才能自动加上注释?

你们可能会觉得为什么不直接导出就好了. 原因是我希望直接得到可执行的源文件, 同时希望, 如果不执行也能看到结果.

这么说起来这个需求好像也没什么必要, 我导出两个文件就好了. 因此这个问题, 如果有办法固然好, 没办法也有将就将就的做法.