将可排序的html表（sortable.html.table）与R中的交互式散点图（rbokeh）结合起来

我正在使用SortableHTMLTables包创建R输出，以创建可排序的数据表，并使用rbokeh包创建交互式散点图。我可以在单独的页面上成功地获取这两个内容。我想将这些合并到一个单独的页面上（这样首先可以看到绘图，下面可以看到数据表。请参见下面的现有R代码：

library(SortableHTMLTables)
library(rbokeh)

DATASET=data.frame(x=1:5,y=6:2,z=6:10)

# Use rbokeh to create interactive plot
g<-figure(width = NULL, height = NULL) %>%
 ly_points(x, y, data = DATASET, color="black", hover = z) 
# Output rbokeh file to html output
rbokeh2html(g, file = "c:/r_samples/plot.html")

# Output the sortable html table.
sortable.html.table(DATASET,"table.html","c:/r_samples/")

库（可排序的HTMLTables）
图书馆（rbokeh）
DATASET=data.frame（x=1:5，y=6:2，z=6:10）
#使用rbokeh创建交互式绘图
g%
y_点（x，y，数据=数据集，color=“黑色”，悬停=z）
#将rbokeh文件输出为html输出
rbokeh2html（g，file=“c:/r\u samples/plot.html”）
#输出可排序的html表。
表（数据集，“table.html”，“c:/r\u samples/”）