editable's Introduction

editable

A R Shiny wrapper to the DataTables library including an open source cell editor. All other arguments are passed to the DataTable library according to: https://datatables.net/reference/option/

Install by executing devtools::install_github("LukasK13/editable") in the R console.

Example usage:

library(shiny)
library(editable)

ui <- fluidPage(
  titlePanel("Editable Table"),
  editableOutput("Table")
)

server <- function(input, output) {
  output$Table = renderEditable(iris, editType = list(Sepal.Length = "text", Sepal.Width = "text", Petal.Length = "text",
                                                                 Petal.Width = "text", Species = "select"),
                                editAttribs = list(Sepal.Length = list(placeholder = "Length"), Sepal.Width = list(placeholder = "Width"),
                                                   Petal.Length = list(placeholder = "Length"), Petal.Width = list(placeholder = "Width"),
                                                   Species = list(options = c("setosa", "versicolor", "virginica"))),
                                order = list(), rownames = F, checkboxSelect = T)
  
  observeEvent(input$Table_selection, {
    print(input$Table_selection)
  })
  
  observeEvent(input$Table_cellEdited, {
    print(input$Table_cellEdited)
  })
}

shinyApp(ui = ui, server = server)

Recommend Projects