Create a modifieable datatable.
eDT(
data,
options = list(dom = "Bfrtlip", keys = TRUE, ordering = FALSE, autoFill = list(update =
FALSE, focus = "focus"), buttons = list("add", "undo", "redo", "save")),
class = "display",
callback = NULL,
rownames = FALSE,
colnames = NULL,
container,
caption = NULL,
filter = c("none", "bottom", "top"),
escape = TRUE,
style = "auto",
width = NULL,
height = NULL,
elementId = NULL,
fillContainer = getOption("DT.fillContainer", NULL),
autoHideNavigation = getOption("DT.autoHideNavigation", NULL),
selection = "none",
extensions = c("KeyTable", "AutoFill", "Buttons"),
plugins = NULL,
editable = list(target = "cell"),
id,
keys = NULL,
in_place = FALSE,
format = function(x) {
x
},
foreignTbls = list(),
columnOrder = c(),
statusColor = c(insert = "#e6e6e6", update = "#32a6d3", delete = "#e52323"),
inputUI = editbl::inputUI,
defaults = tibble(),
cloneDefaults = tibble(),
env = environment(),
canEditRow = TRUE,
canDeleteRow = TRUE,
canCloneRow = TRUE,
utilityColumns = NULL
)list
result reactive modified version of data (saved)
state reactive current state of the data (unsaved)
selected reactive selected rows of the data (unsaved)
tbl. The function will automatically cast to tbl if needed.
a list of initialization options (see
https://datatables.net/reference/option/); the character options
wrapped in JS() will be treated as literal
JavaScript code instead of normal character strings; you can also set
options globally via options(DT.options = list(...)), and
global options will be merged into this options argument if set
the CSS class(es) of the table; see https://datatables.net/manual/styling/classes
the body of a JavaScript callback function with the argument
table to be applied to the DataTables instance (i.e. table)
TRUE (show row names) or FALSE (hide row names)
or a character vector of row names; by default, the row names are displayed
in the first column of the table if exist (not NULL)
if missing, the column names of the data; otherwise it can be
an unnamed character vector of names you want to show in the table header
instead of the default data column names; alternatively, you can provide a
named numeric or character vector of the form 'newName1' = i1,
'newName2' = i2 or c('newName1' = 'oldName1', 'newName2' =
'oldName2', ...), where newName is the new name you want to show in
the table, and i or oldName is the index of the current
column name
a sketch of the HTML table to be filled with data cells; by
default, it is generated from htmltools::tags$table() with a table
header consisting of the column names of the data
the table caption; a character vector or a tag object
generated from htmltools::tags$caption()
whether/where to use column filters; none: no filters;
bottom/top: put column filters at the bottom/top of the table; range
sliders are used to filter numeric/date/time columns, select lists are used
for factor columns, and text input boxes are used for character columns; if
you want more control over the styles of filters, you can provide a named
list to this argument; see Details for more
whether to escape HTML entities in the table: TRUE means
to escape the whole table, and FALSE means not to escape it;
alternatively, you can specify numeric column indices or column names to
indicate which columns to escape, e.g. 1:5 (the first 5 columns),
c(1, 3, 4), or c(-1, -3) (all columns except the first and
third), or c('Species', 'Sepal.Length'); since the row names take
the first column to display, you should add the numeric column indices by
one when using rownames
either 'auto', 'default', 'bootstrap', or
'bootstrap4'. If 'auto', and a **bslib** theme is
currently active, then bootstrap styling is used in a way that "just works"
for the active theme. Otherwise,
DataTables
'default' styling is used. If set explicitly to 'bootstrap'
or 'bootstrap4', one must take care to ensure Bootstrap's HTML
dependencies (as well as Bootswatch themes, if desired) are included on the
page. Note, when set explicitly, it's the user's responsibility to ensure
that only one unique `style` value is used on the same page, if multiple
DT tables exist, as different styling resources may conflict with each other.
Width/Height in pixels (optional, defaults to automatic sizing)
An id for the widget (a random string by default).
TRUE to configure the table to automatically fill
it's containing element. If the table can't fit fully into it's container
then vertical and/or horizontal scrolling of the table cells will occur.
TRUE to automatically hide navigational UI
(only display the table body) when the number of total records is less
than the page size. Note, it only works on the client-side processing mode
and the `pageLength` option should be provided explicitly.
the row/column selection mode (single or multiple selection
or disable selection) when a table widget is rendered in a Shiny app;
alternatively, you can use a list of the form list(mode = 'multiple',
selected = c(1, 3, 8), target = 'row', selectable = c(-2, -3)) to
pre-select rows and control the selectable range; the element
target in the list can be 'column' to enable column
selection, or 'row+column' to make it possible to select both rows
and columns (click on the footer to select columns), or 'cell' to
select cells. See details section for more info.
a character vector of the names of the DataTables extensions (https://datatables.net/extensions/index)
a character vector of the names of DataTables plug-ins
(https://rstudio.github.io/DT/plugins.html). Note that only those
plugins supported by the DT package can be used here. You can see
the available plugins by calling DT:::available_plugins()
FALSE to disable the table editor, or TRUE (or
"cell") to enable editing a single cell. Alternatively, you can set
it to "row" to be able to edit a row, or "column" to edit a
column, or "all" to edit all cells on the current page of the table.
In all modes, start editing by doubleclicking on a cell. This argument can
also be a list of the form list(target = TARGET, disable =
list(columns = INDICES)), where TARGET can be "cell",
"row", "column", or "all", and INDICES is an
integer vector of column indices. Use the list form if you want to disable
editing certain columns. You can also restrict the editing to accept only
numbers by setting this argument to a list of the form list(target =
TARGET, numeric = INDICES) where INDICES can be the vector of the
indices of the columns for which you want to restrict the editing to
numbers or "all" to restrict the editing to numbers for all columns.
If you don't set numeric, then the editing is restricted to numbers
for all numeric columns; set numeric = "none" to disable this
behavior. It is also possible to edit the cells in text areas, which are
useful for large contents. For that, set the editable argument to a
list of the form list(target = TARGET, area = INDICES) where
INDICES can be the vector of the indices of the columns for which
you want the text areas, or "all" if you want the text areas for
all columns. Of course, you can request the numeric editing for some
columns and the text areas for some other columns by setting
editable to a list of the form list(target = TARGET, numeric
= INDICES1, area = INDICES2). Finally, you can edit date cells with a
calendar with list(target = TARGET, date = INDICES); the target
columns must have the Date type. If you don't set date in
the editable list, the editing with the calendar is automatically
set for all Date columns.
character(1) module id
character. Defaults to all columns under the assumption that at least every row is unique.
logical. Whether to modify the data object in place or to return a modified copy.
function accepting and returning a datatable
list. List of objects created by foreignTbl
vector. Order of columns, original data and foreignTbls combined. Defaults to no order specified.
named character. Colors to indicate status of the row.
function. UI function of a shiny module with at least arguments id data and ....
#' elements with inputIds identical to one of the column names are used to update the data.
expression that evaluates to a tibble with (a subset of) columns of the data.
It will be evaluated for each new row in the environment defined by 'env'.
This allows for defaults like Sys.time() or uuid::UUIDgenerate() as well as dynamic inputs.
expression that evaluates to a tibble with (a subset of) columns of the data.
It will be evaluated for each cloned row in the environment defined by 'env'.
environment in which the server function is running. Should normally not be modified.
can be either of the following:
logical, e.g. TRUE or FALSE
function. Needs as input an argument row which accepts a single row tibble and as output TRUE/FALSE.
can be either of the following:
logical, e.g. TRUE or FALSE
function. Needs as input an argument row which accepts a single row tibble and as output TRUE/FALSE.
can be either of the following:
logical, e.g. TRUE or FALSE
function. Needs as input an argument row which accepts a single row tibble and as output TRUE/FALSE.
named character vector. Defines names for (hidden) utility columns
used by eDT to keep track of modifications. Should normally only be adjusted in rare case of name clashes with data.
c(
status = '_editbl_status',
buttons = '_editbl_buttons',
identity = '_editbl_identity',
deleted = '_editbl_deleted'
)
Jasper Schelfhout
Works the same as datatable.
This function is however a shiny module and comes with additional arguments and different defaults.
Instead of having output$id = renderDT(DT::datatable(iris)), eDT(id = 'id', data = iris) should be used on the server side.
On the UI side eDTOutput should be used instead of DTOutput.
Can also be used as standalone app when not ran in reactive context.
All arguments except 'id' and 'env' can be normal objects or reactive objects.
## Only run this example in interactive R sessions
if(interactive()){
# tibble support
modifiedData <- editbl::eDT(tibble::as_tibble(mtcars))
# data.table support
modifiedData <- editbl::eDT(dtplyr::lazy_dt(data.table::data.table(mtcars)))
# database support
tmpFile <- tempfile(fileext = ".sqlite")
file.copy(system.file("extdata", "chinook.sqlite", package = 'editbl'), tmpFile)
conn <- editbl::connectDB(dbname = tmpFile)
modifiedData <- editbl::eDT(dplyr::tbl(conn, "Artist"), in_place = TRUE)
DBI::dbDisconnect(conn)
unlink(tmpFile)
# Within shiny
library(shiny)
library(editbl)
shinyApp(
ui = fluidPage(fluidRow(column(12, eDTOutput('tbl')))),
server = function(input, output) {
eDT('tbl',iris,)
}
)
# Custom inputUI
editbl::eDT(mtcars, inputUI = function(id, data){
ns <- NS(id)
textInput(
ns("mpg"),
label = "mpg",
value = data$mpg)})
# Do not allow delete
editbl::eDT(mtcars, canDeleteRow = FALSE)
}
Run the code above in your browser using DataLab