泡泡编辑闪亮的数据表

时间:2016-04-25 17:07:48

标签: javascript css r datatable shiny

我有兴趣学习如何在闪亮的数据表上实现气泡编辑。

我遇到了这个网站,https://editor.datatables.net/examples/bubble-editing/simple描述了如何实现气泡编辑,但他们的例子是使用javascript,html,css等。我不熟悉这些语言。我知道有关它的基本HTML。

因此,如果有人可以帮我将这个泡泡编辑功能(java,hmtl,css)合并到R中,这个玩具数据库示例可以帮助我理解R框架内的气泡编辑是如何工作的,并提高我对数据表的理解。提前谢谢。

library(shiny)
library(ggplot2)  # for the diamonds dataset

# ------------------------------------------------#
ui = shinyUI(fluidPage(
  title = 'Examples of DataTables',
  sidebarLayout(
    sidebarPanel(
      conditionalPanel(
        'input.dataset === "diamonds"',
        checkboxGroupInput('show_vars', 'Columns in diamonds to show:',
                           names(diamonds), selected = names(diamonds))
      )
    ),
    mainPanel(
      tabsetPanel(
        id = 'dataset',
        tabPanel('diamonds', DT::dataTableOutput('mytable1'))
      )
    )
  )
))

# ------------------------------------------------#
server = function(input, output) {

  # choose columns to display
  diamonds2 = diamonds[sample(nrow(diamonds), 1000), ]
  output$mytable1 <- DT::renderDataTable({
    DT::datatable(diamonds2[, input$show_vars, drop = FALSE])
  })

}

#---------------------------------------------------------#

shinyApp(ui = ui, server = server)

0 个答案:

没有答案