R HTML 输出而不是 markdown 中的表格

问：

我有以下代码块 -

for(provider in unique(summary_data$Provider.Resource)){
  provider_appts = summary_data[summary_data$Provider.Resource == provider,]
  output_table = table1(~ Type | Appt.Status*Appt.Len, data=provider_appts, caption = provider)
  as.data.frame(output_table)
}

如果我运行笔记本，笔记本中的输出就是我想要的 - 一个漂亮、干净的 table1 输出，如下面的屏幕截图所示。所需输出的屏幕截图

问题是，当我以笔记本格式运行代码时，它还给出了一个我可以单击的 shiny.tag 表列表，这些表是 Provider.Resource 下的名称。

当我运行markdown时，输出是html格式，请参见下面的屏幕截图作为示例的片段。Markdown 示例

我觉得我离得很近了。缺少什么？

我尝试通过 Kable、使用 kable_styling 和谷歌搜索上的其他建议进行管道传输，但没有任何结果能给出所需的输出。