调整R闪亮DT表

Question

给定的R闪亮脚本创建一个简单的数据表，就像快照中心的actionButton一样。我想将按钮放在它当前位置的下方，使其处于搜索栏的完美水平内联位置。谢谢，请帮助。

library(DT)
library(shiny)
library(shinyBS)
library(rpivotTable)
library(bupaR)
ui <- basicPage(
h2("The mtcars data"),
column(5,offset = 5,actionButton("CR1_S1", "Button")),
dataTableOutput("mytable1")
)
server <- function(input, output) {
output$mytable1 <- DT::renderDataTable({
DT::datatable(iris)
})
}
shinyApp(ui, server)

Answer 1

您可以通过以下方式将按钮放在数据表中：

ui <- basicPage(
  h2("The mtcars data"),
  actionButton("CR1_S1", "Button"),
  DTOutput("mytable1")
)
server <- function(input, output) {
  output$mytable1 <- renderDT({
    datatable(iris, callback = JS("$('div.button').append($('#CR1_S1'));"), 
              options = list(
                dom = '<"row"<"col-sm-4"l><"col-sm-4 text-center"<"button">><"col-sm-4"f>>tip'
              ))
  })
}
shinyApp(ui, server)