R shiny datatable隐藏部分列作为子行展开显示

源代码请参考：https://datanewlook.com/shiny/vis/dt/dt-expand.rmd

类似这种效果：

使用图片替换+/-号，效果更好：

如何实现请参考本文开头的链接，可以下载源码。

参考：
[1] https://github.com/rstudio/shiny-examples/issues/9
[2] https://rstudio.github.io/DT/002-rowdetails.html
[3] https://datatables.net/examples/api/row_details.html