Fix selection bugs in backend modes and clean up server interface

Selection fixes:
- Fix isAllRowsSelected reporting true when only current page rows are
  selected in backend modes by checking against serverRowCount
- Fix deselect-all overwriting all selections instead of only removing
  filtered rows, using Set-based merge/remove logic
- Add toggleAllInProgressRef guard against concurrent async
  toggleAllRowsSelected calls from checkbox onChange+onClick bubbling
- Fix .selection column included in DuckDB-WASM global search SQL by
  adding searchable=FALSE to its colDef
- Fix defaultSelected highlighting wrong rows when defaultSorted reorders
  pre-rendered data by including __state in pre-rendered first page
- Fix data prop type warning for __state (object of arrays, not array)

Server interface cleanup:
- Remove unused selectedRowIds param from all backend signatures and
  server data fetch
- Add shared virtual column constants (selectionColumnId, detailsColumnId,
  virtualColumnIds) in R/utils.R
- Use constants in reactable.R and backend-duckdb.R

Tests and test docs:
- Add JS tests for isAllRowsSelected, search exclusion, defaultSelected
  with __state, deselect-all filtered, select-all queries, sort/filter
  persistence
- Add DuckDB and V8 selection test Rmd files with Shiny examples
  including updateReactable action buttons

Author: glin

R/backend-df.R

@@ -30,8 +30,6 @@ reactableServerData.reactable_backendDf <- function(
   pagination = NULL,
   paginateSubRows = NULL,
   selectAll = NULL,
-  # Unused/unimplemented props
-  selectedRowIds = NULL,
   expanded = NULL,
   ...
 ) {

R/backend-duckdb.R

@@ -109,8 +109,8 @@ reactableServerInit.reactable_backendDuckdb <- function(x, data = NULL, columns
   # Zero-copy registration - DuckDB reads directly from R data frame memory
   duckdb::duckdb_register(con, "reactable_data", data)
   x$private$con <- con
-  # Filter out virtual columns (e.g., .selection) that don't exist in the data
-  x$private$columns <- Filter(function(col) !startsWith(col$id, "."), columns)
+  # Filter out virtual columns that don't exist in the data
+  x$private$columns <- Filter(function(col) !(col$id %in% virtualColumnIds), columns)
 }
 
 #' @exportS3Method
@@ -128,8 +128,6 @@ reactableServerData.reactable_backendDuckdb <- function(
   pagination = NULL,
   paginateSubRows = NULL,
   selectAll = NULL,
-  # Unused/unimplemented props
-  selectedRowIds = NULL,
   expanded = NULL,
   ...
 ) {

R/backend-v8.R

@@ -64,8 +64,6 @@ Do you need to run `install.packages("V8")`?', call. = FALSE)
       filters = NULL,
       searchValue = NULL,
       groupBy = NULL,
-      # TODO currently unused/unimplemented props
-      selectedRowIds = NULL,
       expanded = NULL,
       ...
     ) {
@@ -77,8 +75,6 @@ Do you need to run `install.packages("V8")`?', call. = FALSE)
         searchValue = searchValue,
         sortBy = sortBy,
         groupBy = asJSONList(groupBy),
-        # Currently unused
-        selectedRowIds = selectedRowIds,
         expanded = expanded
       ))
 

R/reactable.R

@@ -367,7 +367,7 @@ reactable <- function(
   columnKeys <- columnKeys[columnKeys != subRowsKey]
 
   if (!is.null(details)) {
-    detailsKey <- ".details"
+    detailsKey <- detailsColumnId
     columnKeys <- c(detailsKey, columnKeys)
     detailsColumn <- colDef(name = "", sortable = FALSE, filterable = FALSE,
                             searchable = FALSE, resizable = FALSE, width = 45,
@@ -382,9 +382,9 @@ reactable <- function(
   }
 
   if (!is.null(selection)) {
-    selectionKey <- ".selection"
+    selectionKey <- selectionColumnId
     columnKeys <- c(selectionKey, columnKeys)
-    selectionColumn <- colDef(name = "", resizable = FALSE, width = 45)
+    selectionColumn <- colDef(name = "", searchable = FALSE, resizable = FALSE, width = 45)
     selectionColumn$selectable <- TRUE
     if (selectionKey %in% names(columns)) {
       selectionColumn <- mergeLists(selectionColumn, columns[[selectionKey]])
@@ -749,7 +749,7 @@ reactable <- function(
       sortBy = defaultSorted,
       groupBy = groupBy,
       searchMethod = searchMethod
-      # TODO add expanded, selectedRowIds
+      # TODO add expanded
     )
 
     do.call(reactableServerInit, c(list(backend), initialProps))
@@ -904,6 +904,14 @@ reactable <- function(
       firstPageData <- firstPageData[do.call(order, orderArgs), , drop = FALSE]
     }
     firstPageData <- utils::head(firstPageData, defaultPageSize)
+    # Convert _reactable_rowid into __state for stable row identification on the
+    # pre-rendered page. Without this, rows use page-relative indices as IDs, which
+    # causes defaultSelected to highlight wrong rows when defaultSorted reorders data.
+    rowids <- firstPageData[["_reactable_rowid"]]
+    firstPageData[["__state"]] <- dataFrame(
+      id = as.character(rowids),
+      index = as.integer(rowids)
+    )
     firstPageData[["_reactable_rowid"]] <- NULL
     data <- toJSON(firstPageData)
     serverRowCount <- totalRowCount

R/shiny.R

@@ -364,7 +364,6 @@ getReactableState <- function(outputId, name = NULL, session = NULL) {
 #' @param pagination Whether pagination is enabled, `TRUE` or `FALSE`.
 #' @param paginateSubRows Whether sub rows are paginated, `TRUE` or `FALSE`.
 #' @param expanded The current expanded rows.
-#' @param selectedRowIds The current selected rows.
 #' @param ... Additional arguments passed to the S3 method.
 #' @return
 #' - `reactableServerData()` should return a [resolvedData()] object.
@@ -386,7 +385,6 @@ reactableServerInit <- function(
   groupBy = NULL,
   pagination = NULL,
   paginateSubRows = NULL,
-  selectedRowIds = NULL,
   expanded = NULL,
   ...
 ) {
@@ -409,7 +407,6 @@ reactableServerData <- function(
     groupBy = NULL,
     pagination = NULL,
     paginateSubRows = NULL,
-    selectedRowIds = NULL,
     expanded = NULL,
     ...
 ) {

R/utils.R

@@ -2,6 +2,12 @@
 #' @export
 htmlwidgets::JS
 
+# Virtual column names used internally by reactable. These columns are added
+# to the column list for selection/details UI but don't exist in user data.
+selectionColumnId <- ".selection"
+detailsColumnId <- ".details"
+virtualColumnIds <- c(selectionColumnId, detailsColumnId)
+
 # Serialize a data frame to Arrow IPC stream format, base64-encoded.
 # Used by backendDuckDB() to send data to the browser for DuckDB-WASM ingestion.
 serializeArrowIPC <- function(data) {