From 82ec63a5ee1ef7eb0c28f1b398dbf381efc4b43f Mon Sep 17 00:00:00 2001 From: deepanshkhurana Date: Tue, 14 May 2024 15:47:12 +0530 Subject: [PATCH] fix: add support for quarto-shiny and python-shiny (tested with apps that work) --- app/logic/api_utils.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/app/logic/api_utils.R b/app/logic/api_utils.R index ea09ead..28eca43 100644 --- a/app/logic/api_utils.R +++ b/app/logic/api_utils.R @@ -42,14 +42,14 @@ get_api_url <- function( #' Function to get a list of all apps belonging to the token #' -#' @param app_mode_filter Character. The filter for app_mode in the API -#' response. Default is "shiny". +#' @param app_mode_filter Character list. The filter for app_mode in the API +#' response. Default is list("shiny", "python-shiny", "quarto-shiny"). #' @param endpoint Character. Default is "content" #' @param dry_run Logical. Whether to dry run the API for debugging. #' Default is FALSE #' @export get_app_list <- function( - app_mode_filter = "shiny", + app_mode_filter = list("shiny", "python-shiny", "quarto-shiny"), endpoint = "content", dry_run = FALSE ) { @@ -70,7 +70,7 @@ get_app_list <- function( req_perform() %>% resp_body_string() %>% fromJSON() %>% - filter(app_mode == app_mode_filter) + filter(app_mode %in% app_mode_filter) } }