dt

I'm trying to create a DT with several inputs in Shiny. The columns with selectInput and numericInput work fine, but the one with dateInputs doesn't. It's like the input$date_n does not exist at all. I know close to nothing about JS, and I think the problem is probbaly in the drawCallback. I just copied this piece of code from another question in here, and it was working fine until I tried to use a dateInput. Below, there's a small code reproducing the problem. The first two outputs are OK, but the third just doesnst show up. library(shiny) library(DT) ui = fluidPage(title = 'Test', DTOutput(

I want to include sparklines in a shiny DT. It works fine in the RStudio viewer but in Shiny the sparklines are not rendered. Here is a minimal example. # dependencies require(sparkline) require(DT) require(shiny) # create data with sparklines spark_data <- data.frame( id = c('spark1', 'spark2'), spark = c( spk_chr(values = 1:3, elementId = 'spark1'), spk_chr(values = 3:1, elementId = 'spark2') ) ) # render in RStudio viewer (this works) tbl <- datatable(spark_data, escape = FALSE) spk_add_deps(tbl) # render in Shiny (no sparklines rendered in DT) ui <- fluidPage( sparklineOutput("test_spark")

The DT package allows you to get the indices of selected rows using input$tableID_rows_selected . This works great for tables that do not have filtered data. However, if we have a filtered dataset, we can't use this same approach, as the row indices are off. For a filtered dataset, then, how would we get the data in the selected rows of a datatable? Below, I've posted a basic shiny app that shows four tables: the first one is the original mtcars dataset and the second gets the selected rows in the first. The third and the fourth do the same thing, but after filtering the dataset on the "filter

I would like to merge few rows in column in DT::datatable in shiny. Is it possible to do so? Currently I am able to output which looks something like this: But ideally I would like to merge the rows and want to output something like this: Is it possible to merge rows like this in DT::datatable? It is possible with the help of the datatables-rowsgroup library . Here is an example: library(shiny) library(DT) dat <- iris[c(1,2,3,51,52,53,101,102,103), c(5,1,2,3,4)] ui <- fluidPage( DTOutput("table") ) server <- function(input, output){ output[["table"]] <- renderDT({ dtable <- datatable(dat,

I am dabbling with the datatable feature in shiny and I am interested in creating a wellpanel or a sidepanel that lists all the columns of a datatable and allows users to choose which columns they want to see on the datatable. Right now this code below displays all the columns of toy dataset mtcars library(shiny) runApp(list( ui = basicPage( h2('The mtcars data'), dataTableOutput('mytable') ), server = function(input, output) { output$mytable = renderDataTable({ mtcars }) } )) I am interested in providing the users the ability to turn these columns either on or off using a checkbox [1] "mpg"

Suppose my data looks like this: df1 = data.frame(A=c(1000000.51,5000.33), B=c(0.565,0.794)) I want to use DataTables and have column A be (1,000,001 ; 5,000) library(DT) datatable(df1) %>% formatPercentage('B', 2) %>% formatRound('A',digits = 0) I know i can use scales library(scales) comma_format()(1000000) but I'm not sure how to combine that with DataTables Thanks! Had this same issue: Try This: require(DT) require(dplyr) df1 = data.frame(A=c(1000000.51,5000.33, 2500, 251), B=c(0.565,0.794, .685, .456)) df1 <- df1 %>% mutate(A=round(A,digits=0)) datatable(df1) %>% formatPercentage('B', 2)

I am trying to display a table in Shiny, where numbers will be displayed from one data.frame (or data.table), but the size of bars will be taken from another data.frame. For instance, absolute values will be displayed, but -log(p-values) from another table (identically arranged) will determine the width of color bars. This is my mock code: output$pivot_table = DT::renderDataTable( dt <- datatable( { a <- data.frame(matrix(1, 20, 5)) pval_data <- data.frame(matrix(rnorm(n = 100), 20, byrow = T)) print(pval_data) a } ) %>% formatStyle(names(a), background = styleColorBar(range(pval_data),