Change dontrun to donttest

R/context_calls.R

@@ -8,7 +8,7 @@
 #' @param file_name File name. Set to `"data.{type}"` if `file_name = NULL`.
 #' @returns A [tabulatorContext()] object
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   trigger_download("csv", "table-data.csv")
 #' }
@@ -25,7 +25,7 @@ trigger_download <- function(ctx, type = c("csv", "json", "xlsx"), file_name = N
 #' Submit data to R
 #' @inherit trigger_download params return
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   trigger_get_data()
 #' }
@@ -38,7 +38,7 @@ trigger_get_data <- function(ctx) {
 #' @inherit trigger_download params return
 #' @param row (list): row data or \code{NULL} to add an empty row
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   add_row()
 #' }
@@ -50,7 +50,7 @@ add_row <- function(ctx, row = NULL) {
 #' Delete selected rows from table
 #' @inherit trigger_download params return
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   delete_selected_rows()
 #' }
@@ -61,14 +61,14 @@ delete_selected_rows <- function(ctx) {
 
 # TODO: Test bindings
 delete_row <- function(ctx) {
-  print("Not implemented yet")
+  message("Not implemented yet")
   return(ctx)
 }
 
 #' Undo changes
 #' @inherit trigger_download params return
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   undo()
 #' }
@@ -80,7 +80,7 @@ undo <- function(ctx) {
 #' Redo changes
 #' @inherit trigger_download params return
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   redo()
 #' }
@@ -92,7 +92,7 @@ redo <- function(ctx) {
 #' Submit sheet data to R
 #' @inherit trigger_download params return
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   trigger_get_sheet_data()
 #' }

R/tabulator_context.R

@@ -22,7 +22,7 @@ invoke_method <- function(widget, method_name, ...) {
 #' @param session A shiny session object.
 #' @returns A context object that can be used to interact with a [tabulator()] HTML widget
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' tabulatorContext("table") |>
 #'   trigger_download("csv")
 #' }