r - 是否可以从 xtable 中删除水平边框？

Question

我有一些来自 shinyapp 的代码，它确定将导出到 pdf 文档的内容：

  special_ortho_table <- reactive({
    if(input$ortho == "yes"){
      sp_ortho_table <- drugsUI %>%
        filter(Ortho == "yes", Special_ortho == TRUE) %>% 
       select(Name, Recommendations)
     }else{
       sp_ortho_table <- drugsUI[0,]
       names(sp_ortho_table) <- c("", "", "", "")
       }

    return(sp_ortho_table)
  })

 output$ortho_table <- renderTable({
    xtable(special_ortho_table())
  })

rmd中对应的代码为：

xtable(special_ortho_table())

您可以看到我试图删除列名，但 pdf 仍然会生成一个带有水平边框的空白表格。有什么办法可以删除边框，如果没有，任何人都可以建议一种解决方法，让我可以在什么时候留下空白的东西input$ortho == "no"？

编辑：

下图显示了我希望删除的内容，它基本上是 pdf 上空白 xtable 输出的残余：

标签： rshinyr-markdownxtableshinyapps