diff --git a/shinydashboard/lantern/modules/profilemodule.R b/shinydashboard/lantern/modules/profilemodule.R index ff5d1f9f6..f2e643465 100644 --- a/shinydashboard/lantern/modules/profilemodule.R +++ b/shinydashboard/lantern/modules/profilemodule.R @@ -90,4 +90,4 @@ selected_fhir_endpoint_profiles <- reactive({ ) }) -} \ No newline at end of file +} diff --git a/shinydashboard/lantern/server.R b/shinydashboard/lantern/server.R index 35ae2df7f..175b03bee 100644 --- a/shinydashboard/lantern/server.R +++ b/shinydashboard/lantern/server.R @@ -10,7 +10,6 @@ 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) @@ -21,13 +20,13 @@ selected_fhir_endpoint_profiles <- reactive({ if (length(input$profile_resource) > 0) { if (input$profile_resource != ui_special_values$ALL_RESOURCES) { - res <- res %>% filter(resource == input$profile_resource) + 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 %>% filter(resource == input$profile_resource) } } @@ -38,7 +37,6 @@ selected_fhir_endpoint_profiles <- reactive({ mutate(url = paste0("", url, "")) %>% mutate_at(vars(-group_cols()), as.character) - return(res) }) @@ -1320,7 +1318,7 @@ 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'), + colnames = c("Endpoint", "Profile URL", "Profile Name", "Resource", "FHIR Version", "Certified API Developer Name"), options = list( lengthMenu = c(5, 30, 50), pageLength = 5,