Add selection = "multiple" to server-data example apps

Author: glin

inst/examples/shiny-server-data-100k.R

@@ -36,6 +36,7 @@ tbl <- reactable(
         '<pre>' + JSON.stringify(rowInfo.row, null, 2) + '</pre>'
     }")
   ),
+  selection = "multiple",
   showPageSizeOptions = TRUE,
   backend = backendV8()
 )

inst/examples/shiny-server-data-1m.R

@@ -39,6 +39,7 @@ tables <- lapply(rows_options, function(rows) {
         '<pre>' + JSON.stringify(rowInfo.row, null, 2) + '</pre>'
     }")
     ),
+    selection = "multiple",
     showPageSizeOptions = TRUE,
     backend = backendV8()
   )

inst/examples/shiny-server-data-duckdb-10m.R

@@ -32,6 +32,7 @@ server <- function(input, output) {
           }")
         )
       ),
+      selection = "multiple",
       showPageSizeOptions = TRUE,
       backend = backendDuckDB()
     )

inst/examples/shiny-server-data-duckdb-1m.R

@@ -32,6 +32,7 @@ server <- function(input, output) {
           }")
         )
       ),
+      selection = "multiple",
       showPageSizeOptions = TRUE,
       backend = backendDuckDB()
     )

inst/examples/shiny-server-data-duckdb.R

@@ -32,6 +32,7 @@ server <- function(input, output) {
           }")
         )
       ),
+      selection = "multiple",
       showPageSizeOptions = TRUE,
       backend = backendDuckDB()
     )