我有兴趣学习如何在闪亮的数据表上实现气泡编辑。
我遇到了这个网站,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)