dt

I'm writing a shiny app that has a table (using DT::renderDataTable ) from which users can select a row. But I want the user to also be able to add new row(s) if what they want is not already in the table. I'm using input controls for the user to enter new data, and I have an action button which, if pressed, should create a new row of data in the table from the input values. But pressing the button does not update the table. A minimal example: library(shiny) library(DT) mydata = data.frame(id=letters[1:5], val=sample(10,5,T)) ui = fluidPage(dataTableOutput("table"), textInput('NewID', 'Enter

I am trying to add totals to a data table footer. Using code from different sources, I wrote the following application using Shiny. The problem is, when I run it, the following message appears: "Processing ..." and stays there forever. My guess is the JS() code, but cannot debug that. library(shiny) library(DT) library(htmltools) ui <- fluidPage( fluidRow( column(9, DT::dataTableOutput('withtotal')) ) ) server <- function(input, output, session) { # server-side processing mtcars2 = mtcars[, 1:8] #sketch <- htmltools::withTags(table(tableHeader(mtcars2), tableFooter(mtcars2))) sketch =

I am currently trying to create dynamically-created data tables that each have its own tab. The number of tabs is determined by the user. I have used the code from this post as a framework. I am able to create the tabs dynamically, but I can't figure out how to add data tables to the tabs. The data tables are determined by user input too. So, for example, say in ui.R, the user has the choice to pick which data sets they want to see: ui.R library(shiny) shinyUI(fluidPage( titlePanel("Example"), sidebarLayout( sidebarPanel( selectInput("decision", label = "Choose Dataset", choices = list("mtcars

Closed. This question is off-topic. It is not currently accepting answers. Learn more . Want to improve this question? Update the question so it's on-topic for Stack Overflow. Closed last year . I'm creating a shiny application and I want to highlight certain predefined words in DT table in shiny. I'm aware of the search highlight feature in DT. For example: datatable(mtcars2, options = list(searchHighlight = TRUE, search = list(search = 'da'))) I want to highlight like the previous example but not from a search . For say, in mtcars data, I want to highlight words 'Merc', 'Fiat', 'Honda'

Please check the data table "Case Analyses Details" on the right. I want to fit the data table within the box, such that it aligns from right and bottom border in the box, such that we add a horizontal and vertical scroll bar to the DT which can be used to span the rows that overshoot the box. ## app.R ## library(shiny) library(shinydashboard) library(DT) ui <- dashboardPage( dashboardHeader(title = "My Chart"), dashboardSidebar( width = 0 ), dashboardBody( box(title = "Data Path", status = "primary",height = "595" ,solidHeader = T, plotOutput("trace_plot")), box( title = "Case Analyses

Here is a working example of my best attempt to get table click event: library(shiny) library(DT) runApp(shinyApp( ui = fluidPage(DT::dataTableOutput('table')), server = function(input, output, session) { output$table <- DT::renderDataTable({ dt <- data.frame(a = 1) datatable(dt, rownames = FALSE, selection = 'none') }) observeEvent(input$table_cell_clicked, { print(Sys.time()) })} )) The problem is that observeEvent reacts only if user clicks on the cell which differs from previously clicked. Is there a way to get event on any table click? I think it s may be helpful Try add callback with

Have been trying to change the font size of all text in the tables generated by DT. However, I could only figure out how to change the size of the records using formatStyle(names(datCalc), fontSize = '12px') . The column headers and buttons have text of the same size. Using R Markdown in RStudio. I think you almost got there. I solved it by explicitly telling DT::formatStyle() which columns I wanted. I first tried using the names() or colnames() approach, as you did. For some reason this didn't work: iris %>% DT::datatable() %>% DT::formatStyle(columns = colnames(.), fontSize = '50%') However,