Merge pull request #377 from onc-healthit/LANTERN-587-fix-profiles-tab

Lantern 587 fix profiles tab

shinydashboard/lantern/modules/profilemodule.R

@@ -62,7 +62,7 @@ selected_fhir_endpoint_profiles <- reactive({
         )
       } else {
         tagList(
-            reactable::reactableOutput(ns("no_filter_profile_table"))
+            DT::dataTableOutput("no_filter_profile_table")
         )
      }
     }
@@ -90,29 +90,4 @@ selected_fhir_endpoint_profiles <- reactive({
 
      )
   })
-
-  output$no_filter_profile_table <- reactable::renderReactable({
-     reactable(
-              selected_fhir_endpoint_profiles(),
-              defaultColDef = colDef(
-                align = "center"
-              ),
-              columns = list(
-                  url = colDef(name = "Endpoint", minWidth = 300, sortable = TRUE, align = "left", html = TRUE),
-                  profileurl = colDef(name = "Profile URL", minWidth = 300, align = "left", sortable = FALSE, aggregate = "count",
-                  format = list(aggregated = colFormat(prefix = "Count: "))),
-                  profilename = colDef(name = "Profile Name", minWidth = 200, sortable = FALSE),
-                  resource = colDef(name = "Resource", sortable = FALSE),
-                  fhir_version = colDef(name = "FHIR Version", sortable = FALSE, aggregate = "unique"),
-                  vendor_name = colDef(name = "Certified API Developer Name", minWidth = 110, sortable = FALSE)
-              ),
-              groupBy = "url",
-              striped = TRUE,
-              searchable = TRUE,
-              showSortIcon = TRUE,
-              highlight = TRUE,
-              defaultPageSize = 10
-
-     )
-  })
 }

shinydashboard/lantern/server.R

@@ -7,6 +7,39 @@ library(dygraphs)
 
 # Define server function
 function(input, output, session) { #nolint
+
+selected_fhir_endpoint_profiles <- reactive({
+    res <- isolate(app_data$supported_profiles())
+    req(input$fhir_version, input$vendor)
+
+    res <- res %>% filter(fhir_version %in% input$fhir_version)
+
+    if (input$vendor != ui_special_values$ALL_DEVELOPERS) {
+      res <- res %>% filter(vendor_name == input$vendor)
+    }
+
+     if (length(input$profile_resource) > 0) {
+        if (input$profile_resource != ui_special_values$ALL_RESOURCES) {
+          res <- res %>% filter(resource == input$profile_resource)
+        }
+    }
+
+    if (length(input$profile_resource) > 0) {
+        if (input$profile_resource != ui_special_values$ALL_RESOURCES) {
+          res <- res %>% filter(resource == input$profile_resource)
+        }
+    }
+
+    res <- res %>%
+    distinct(url, profileurl, profilename, resource, fhir_version, vendor_name) %>%
+    select(url, profileurl, profilename, resource, fhir_version, vendor_name) %>%
+    group_by(url) %>%
+    mutate(url = paste0("<a class=\"lantern-url\" tabindex=\"0\" aria-label=\"Press enter to open pop up modal containing additional information for this endpoint.\" onkeydown = \"javascript:(function(event) { if (event.keyCode === 13){event.target.click()}})(event)\" onclick=\"Shiny.setInputValue(\'endpoint_popup\',&quot;", url, "&&", "None", "&quot,{priority: \'event\'});\">", url, "</a>")) %>%
+    mutate_at(vars(-group_cols()), as.character)
+
+    return(res)
+  })
+
   # Trigger this observer every time the session changes, which is on first load of page, and switch tab to tab stored in url
   observeEvent(session, {
     message(sprintf("I am in observe session  *********************************** %s", database_fetch()))
@@ -1280,4 +1313,18 @@ output$endpoint_http_response_table <- reactable::renderReactable({
       easyClose = TRUE
     ))
   })
+
+output$no_filter_profile_table <- DT::renderDataTable({
+      DT::datatable(
+        selected_fhir_endpoint_profiles(),
+        escape = FALSE,
+        colnames = c("Endpoint", "Profile URL", "Profile Name", "Resource", "FHIR Version", "Certified API Developer Name"),
+        options = list(
+        lengthMenu = c(5, 30, 50),
+        pageLength = 5,
+        scrollX = TRUE
+        )
+        )
+})
+
 }