From 00e36c7e92e2e814517014d510701577155f7933 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Herv=C3=A9=20Pag=C3=A8s?= <hpages.on.github@gmail.com>
Date: Fri, 30 Jun 2023 15:04:16 -0700
Subject: [PATCH] Make new 'current_viewport' to set_grid_context() optional

---
 R/blockApply.R    | 2 +-
 man/blockApply.Rd | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/blockApply.R b/R/blockApply.R
index c062d65..d55f9d8 100644
--- a/R/blockApply.R
+++ b/R/blockApply.R
@@ -92,7 +92,7 @@ getAutoBPPARAM <- function() S4Arrays:::get_user_option("auto.BPPARAM")
 
 set_grid_context <- function(effective_grid,
                              current_block_id,
-                             current_viewport,
+                             current_viewport=NULL,
                              envir=parent.frame(1))
 {
     if (!is.null(effective_grid))
diff --git a/man/blockApply.Rd b/man/blockApply.Rd
index 303116f..36a6475 100644
--- a/man/blockApply.Rd
+++ b/man/blockApply.Rd
@@ -48,7 +48,7 @@ getAutoBPPARAM()
 setAutoBPPARAM(BPPARAM=NULL)
 
 ## For testing/debugging callback functions:
-set_grid_context(effective_grid, current_block_id, current_viewport,
+set_grid_context(effective_grid, current_block_id, current_viewport=NULL,
                  envir=parent.frame(1))
 }