fix(145): Fix app the work as expected

rstudio · Dec 8, 2023 · 4539607 · 4539607
1 parent a40ae84
commit 4539607
Showing 1 changed file with 14 additions and 2 deletions.
diff --git a/inst/apps/145-dt-replacedata/app.R b/inst/apps/145-dt-replacedata/app.R
@@ -14,16 +14,28 @@ dtmod_ui <- function(id) {
 dtmod <- function(input, output, session) {
   x <- reactiveVal(0L)
 
+  df  <- reactive({
+    data.frame(value = x())
+  })
+
   output$table <- renderDT({
-    DT::datatable(data.frame(value = isolate(x())), rownames = FALSE, options = list(dom = "t", ordering = FALSE))
+    DT::datatable(
+      isolate(df()),
+      rownames = FALSE,
+      options = list(dom = "t", ordering = FALSE)
+    )
   })
 
   observeEvent(input$inc, {
     x(x() + 1L)
   })
 
   observeEvent(x(), {
-    replaceData(dataTableProxy("table"), x())
+    replaceData(
+      dataTableProxy("table"),
+      df(),
+      rownames = FALSE
+    )
   })
 
   x