From 14fd95ceaea6d89d88ff605f4147a0f88a2d24fc Mon Sep 17 00:00:00 2001 From: Barret Schloerke Date: Wed, 4 Sep 2024 10:57:03 -0400 Subject: [PATCH] Set default exercise debounce to 1s Co-authored-by: Garrick Aden-Buie --- R/exercise.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/exercise.R b/R/exercise.R index a3753cc4..c2726b1e 100644 --- a/R/exercise.R +++ b/R/exercise.R @@ -34,7 +34,7 @@ setup_exercise_handler <- function(exercise_rx, session) { rv <- reactiveValues(triggered = 0, result = NULL) # debounce option to slow down successive exercise execution requests - debounce_s <- getOption("tutorial.exercise.debounce", 0) # value in seconds + debounce_s <- getOption("tutorial.exercise.debounce", 1) # in seconds if (is.numeric(debounce_s) && debounce_s > 0) { exercise_rx <- debounce(exercise_rx, debounce_s * 1000) # in milliseconds }