dt

问题 I have the shiny app below in which the user clicks on a row and gets its index next to it. Is it possible to select the selected row with a pickerInput() which includes all the row names except of the selected one and when activated with a choice it will display the correspondent row and display its index as text. library(shiny) library(DT) library(shinyWidgets) shinyApp( ui = fluidPage( title = 'Select Table Rows', h1('A Server-side Table'), fluidRow( column(9, DT::dataTableOutput('x3')),

问题 Let say I have below data-table - library(DT) d = data.frame( names = rownames(mtcars), date = as.Date('2015-03-23') + 1:32, time = as.POSIXct('2015-03-23 12:00:00', tz = 'UTC') + (1:32) * 5000, stringsAsFactors = FALSE ) datatable(d, filter = 'bottom', options = list(pageLength = 5)) Now I want to create a new column in the data-table by combining date+time+some-other-string as date_time . This new column date_time should be sortable based only on date part (not the time part nor string part

问题 I want to remove the stripes in te limit between de table data and the header, or at least, change its color. I want to make an schedule for teachers with their respective classroom. options = (list(pageLength = 40, dom = 't', ordering = FALSE, columnDefs = list(list(className = 'dt-center', targets = 0:5)), initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#3b5998', 'color': '#ffffff', 'border-right': '1px solid #ffffff'});","}")) )) %>

问题 I have a data.frame with one ID column and multiple numeric columns, the amount of numeric columns can differ. Of these numeric columns I want to color all values above the column mean green and all values below the column mean red. The code below give my desired outcome, but it is not a generic code for data frames with more or less numeric columns. library(DT) data2 <- cbind(ID = "some ID",iris[,1:4]) datatable( data2, rownames = FALSE, class = 'cell-border stripe', options = list( dom = 't

问题 I'm looking for a straight forward way to change the formatting of numbers into K,M in shiny dataTables. Preferably with something like formatCurrency . I don't want to write k, m functions to convert number into string in order to do the formatting as it makes it difficult to sort rows by value. 回答1: There's no built-in way to do this, but it's not too bad to write your own format function in JavaScript that doesn't break row sorting. See Column Rendering in the DT docs for how to do this:

问题 I'm looking for a straight forward way to change the formatting of numbers into K,M in shiny dataTables. Preferably with something like formatCurrency . I don't want to write k, m functions to convert number into string in order to do the formatting as it makes it difficult to sort rows by value. 回答1: There's no built-in way to do this, but it's not too bad to write your own format function in JavaScript that doesn't break row sorting. See Column Rendering in the DT docs for how to do this:

问题 When using editable DataTable (package DT) where input is chosen by SelectInput the edits made isn't saved where it should be. Choosing a specific variable shows for example rows 50-60 from datatable in first rows. Editing them saves the edits on the first rows instead of in rows 50-60. In example below you can choose variable versicolor and delete setosa. Then edit Petal.Length to random number. Edit should be saved in row 51 but instead it is saved in row 1. I am thinking about a workaround

问题 I would like to use DT to allow the users to modify a dataset. However, when the factor cols change (by adding or removing a factor level) the corresponding table filter remains unchanged. In the following example: if I change a Species, the new Species does not appear in the filter dropdown list. Is there a workaround? Many thanks! library(shiny) library(DT) library(dplyr) iris2=iris %>% group_by(Species) %>% filter(Petal.Length==max(Petal.Length)) ui <- fluidPage( fluidRow(column(12,

问题 I would like to use DT to allow the users to modify a dataset. However, when the factor cols change (by adding or removing a factor level) the corresponding table filter remains unchanged. In the following example: if I change a Species, the new Species does not appear in the filter dropdown list. Is there a workaround? Many thanks! library(shiny) library(DT) library(dplyr) iris2=iris %>% group_by(Species) %>% filter(Petal.Length==max(Petal.Length)) ui <- fluidPage( fluidRow(column(12,

问题 I would like to use DT to allow the users to modify a dataset. However, when the factor cols change (by adding or removing a factor level) the corresponding table filter remains unchanged. In the following example: if I change a Species, the new Species does not appear in the filter dropdown list. Is there a workaround? Many thanks! library(shiny) library(DT) library(dplyr) iris2=iris %>% group_by(Species) %>% filter(Petal.Length==max(Petal.Length)) ui <- fluidPage( fluidRow(column(12,