从不同的R对象生成JSON

Question

根据Rmd中定义的报告，我想生成一个巨大的JSON，其中包含所有对象的标题，段落，可打印的图表和表格。 想法是将此文件发送到Node.js进行进一步的基于Web的可视化。

假设我生成了这样的对象：

## my header
my paragraph my paragraph

{Rchunk}
    tab1<-flextable(data,col_keys=names(data))

    c1<- plot_ly(tab1, x = ~Freq, y=~Q, type = 'bar', orientation='h',
                text = ~Freq )
{/Rchunk} 

我想得到……

    {"obj1":{"typ":"h2", "txt":"my header"},
     "obj2":{"typ":"p", "txt":"my paragraph my paragraph"},
     "tab1":{ "----results from toJSON(tab1)----"},
     "c1":{ "----results from toJSON(plotly_json(c1))----"}}

关键是要使其具有基于对象类型的漂亮函数，并在编织过程中运行（首先应存在所有对象）。 第二个问题是处理和命名（带有数字）降价标记。 我也考虑手动创建标头/段落，例如：

    t1->list(typ="h2", txt="my header")

但问题仍然是如何将具有名称的对象组合成一个大列表？