fix problem with values column in LogViewer

CorrelAidSwitzerland · Apr 22, 2024 · 3745ad0 · 3745ad0
1 parent b80ec41
commit 3745ad0
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/tools/LogViewerA4D/server.R b/tools/LogViewerA4D/server.R
@@ -122,11 +122,13 @@ shinyServer(function(input, output, session) {
       select(-"tracker_in_fileName")
 
     values$eventLog <-   values$eventLog  %>%
-        mutate(Message = map(Message, ~ jsonlite::fromJSON(.) %>% lapply(.,function(x) if(is.null(x)) NA else x ) %>% as_tibble())) %>%
-        unnest(Message) %>% rename(Message=message) %>%
+        dplyr::filter(substr(Message, 1, 1) == "{") %>%
+        mutate(Message = map(Message, ~ jsonlite::fromJSON(.) %>% lapply(.,function(x) if(is.null(x)) NA else if (is.list(x)) toString(x) else x ) %>% as_tibble())) %>%
+        unnest(Message) %>%
+        rename(Message=message) %>%
+        ungroup() %>%
         mutate(across(c("file","errorCode","warningCode","functionName"),factor))
 
-
     values$proccessedFilesInfo <- allLogs %>%
       filter(str_detect(pattern = "Found", Message)) %>%
       extract(Message, into = c("number", "type"), regex = "Found (\\d+) (\\w+)") %>%

diff --git a/tools/LogViewerA4D/ui.R b/tools/LogViewerA4D/ui.R
@@ -32,12 +32,12 @@ shinyUI(
           tabName = "dashboard",
           fluidRow(
             box(
-              width = 6,
+              width = 8,
               title = "Main Table",
               DTOutput("logTable")
             ),
             box(
-              width = 6,
+              width = 4,
               title = "Tracker Overview",
               DTOutput("trackerSummary"),
               plotlyOutput("sankey")