Fix bug in 'trigger_download'

eoda-dev · Sep 21, 2024 · 9811d42 · 9811d42
1 parent 4b43b94
commit 9811d42
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/context_calls.R b/R/context_calls.R
@@ -14,11 +14,12 @@
 #' }
 #' @export
 trigger_download <- function(ctx, type = c("csv", "json", "xlsx"), file_name = NULL) {
+  type <- match.arg(type)
   if (is.null(file_name)) {
     file_name <- glue::glue("data.{type}")
   }
 
-  invoke_method(ctx, "download", match.arg(type), file_name)
+  invoke_method(ctx, "download", type, file_name)
 }
 
 #' Submit data to R