是否可以从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输出的残迹：