From 8aa0766693448abba0bff7c4e6c3c04e34450490 Mon Sep 17 00:00:00 2001
From: deepanshkhurana <deepanshkhurana@outlook.com>
Date: Tue, 14 May 2024 15:59:41 +0530
Subject: [PATCH] fix: handle scenario when no jobs are found for an app

---
 app/view/mod_job_list.R | 60 +++++++++++++++++++++++++----------------
 1 file changed, 37 insertions(+), 23 deletions(-)

diff --git a/app/view/mod_job_list.R b/app/view/mod_job_list.R
index 96aac6e..f4500e0 100644
--- a/app/view/mod_job_list.R
+++ b/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
+        )
+      }
     })
 
   })