Fix: Improves Support + Bugfix

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,10 @@ get_app_list <- function(
       req_perform() %>%
       resp_body_string() %>%
       fromJSON() %>%
-      filter(app_mode == app_mode_filter)
+      filter(
+        app_mode %in% app_mode_filter,
+        app_role == "owner"
+      )
   }
 }
 

app/view/mod_job_list.R

@@ -9,13 +9,15 @@ box::use(
     getReactableState,
     reactable,
     reactableOutput,
-    renderReactable
+    renderReactable,
+    reactableLang
   ],
   shiny[
     moduleServer,
     NS,
     reactive,
-    req
+    req,
+    isTruthy
   ],
   shinycssloaders[withSpinner],
 )
@@ -48,25 +50,31 @@ server <- function(id, state) {
 
     output$job_list_table <- renderReactable({
 
-      processed_jobs <- job_list_data() %>%
-        select(id, key, start_time, end_time) %>%
-        mutate(
-          job = paste(
-            id,
-            key,
-            start_time,
-            end_time,
-            sep = "_-_"
-          )
-        ) %>%
-        select(
-          -c(
-            id,
-            key,
-            start_time,
-            end_time
+      if (length(job_list_data())) {
+        processed_jobs <- job_list_data() %>%
+          select(id, key, start_time, end_time) %>%
+          mutate(
+            job = paste(
+              id,
+              key,
+              start_time,
+              end_time,
+              sep = "_-_"
+            )
+          ) %>%
+          select(
+            -c(
+              id,
+              key,
+              start_time,
+              end_time
+            )
           )
+      } else {
+        processed_jobs <- data.frame(
+          job = character()
         )
+      }
 
       reactable(
         data = processed_jobs,
@@ -79,16 +87,22 @@ server <- function(id, state) {
               process_job_data(job_data)
             }
           )
+        ),
+        language = reactableLang(
+          noData = "No jobs found."
         )
       )
+
     })
 
     state$selected_job <- reactive({
       index <- getReactableState("job_list_table", "selected")
-      list(
-        "key" = job_list_data()[index, ]$key,
-        "id" = job_list_data()[index, ]$id
-      )
+      if (isTruthy(index)) {
+        list(
+          "key" = job_list_data()[index, ]$key,
+          "id" = job_list_data()[index, ]$id
+        )
+      }
     })
 
   })