tests/testthat/test-tbl_df.R

In editbl: 'DT' Extension for CRUD (Create, Read, Update, Delete) Applications in 'shiny'

test_that("e_rows_update can update a row in a data.frame", {
      x <- mtcars
      x$id <- seq_len(nrow(x))
      y <- x[1,]
      y$mpg <- 1000
      
      result <- e_rows_update(x = x, y = y, by = "id")
      expect_equal(result[1,"mpg"][[1]], 1000)
    })