Update REST api to read daily cached file

onc-healthit · Sep 5, 2023 · 26ba5a4 · 26ba5a4
1 parent c4285b1
commit 26ba5a4
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 5 deletions.
diff --git a/api/download/downloadsmodule.R b/api/download/downloadsmodule.R
@@ -13,7 +13,6 @@ get_endpoint_organizations <- function(db_connection) {
 get_endpoint_export_tbl <- function(db_tables) {
 
 endpoint_organization_tbl <- get_endpoint_organizations(db_connection)
-print(endpoint_organization_tbl)
 endpoint_export_tbl <- db_tables$endpoint_export %>%
   collect() %>%
   mutate(vendor_name = na_if(vendor_name, "")) %>%
@@ -28,8 +27,6 @@ endpoint_export_tbl <- db_tables$endpoint_export %>%
   mutate(endpoint_names = gsub("NULL", "", as.character(endpoint_names))) %>%
   mutate(endpoint_names = gsub("(\")", "", as.character(endpoint_names))) %>%
   mutate(format = gsub("(\"|\"|\\[|\\])", "", as.character(format)))
-  print("endpoint_export_tbl")
-  print(endpoint_export_tbl)
   endpoint_export_tbl
 }
 

diff --git a/api/download/restendpoints.R b/api/download/restendpoints.R
@@ -8,9 +8,7 @@ function(res) {
     res$setHeader("Content-Disposition", "attachment; filename=fhir_endpoints.csv")
     st <- format(Sys.time(), "%Y-%m-%d")
     filename <- paste("fhir_endpoints_", st, ".csv", sep = "")
-    print(filename)
     if (!file.exists(filename)) {
-        print("Not")
         write.csv(get_fhir_endpoints_tbl(db_tables), file=filename, row.names=FALSE)
     }
     include_file(filename, res, content_type = "text/csv")