diff --git a/.nojekyll b/.nojekyll index 32cedc0..16bceac 100644 --- a/.nojekyll +++ b/.nojekyll @@ -1 +1 @@ -29de0c77 \ No newline at end of file +83eac0ed \ No newline at end of file diff --git a/index.html b/index.html index 96aaac8..bc4c31c 100644 --- a/index.html +++ b/index.html @@ -301,8 +301,8 @@

MBON Data Report(s)

p
-
- +
+
diff --git a/index_files/figure-html/unnamed-chunk-3-1.png b/index_files/figure-html/unnamed-chunk-3-1.png index 2794329..e4cd2a4 100644 Binary files a/index_files/figure-html/unnamed-chunk-3-1.png and b/index_files/figure-html/unnamed-chunk-3-1.png differ diff --git a/listings.json b/listings.json index 82f78a6..e556075 100644 --- a/listings.json +++ b/listings.json @@ -9,7 +9,6 @@ "/regional_report/regional_reports/GLOS MBON.html", "/regional_report/regional_reports/Gulf of Maine.html", "/regional_report/regional_reports/SE US.html", - "/regional_report/regional_reports/South Florida.html", "/regional_report/regional_reports/Southern California Bight.html" ] } diff --git a/regional_report/regional_report.html b/regional_report/regional_report.html index 54c4819..1a9bae9 100644 --- a/regional_report/regional_report.html +++ b/regional_report/regional_report.html @@ -213,7 +213,7 @@

SE US Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
SE US Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports.html b/regional_report/regional_reports.html index ffd18eb..ee51766 100644 --- a/regional_report/regional_reports.html +++ b/regional_report/regional_reports.html @@ -208,7 +208,7 @@

Project Reports

-
+
 
@@ -239,7 +239,7 @@
-
+
 
@@ -270,7 +270,7 @@
-
+
 
@@ -301,7 +301,7 @@
-
+
 
@@ -332,7 +332,7 @@
-
+
 
@@ -363,7 +363,7 @@
-
+
 
@@ -394,7 +394,7 @@
-
+
 
@@ -425,38 +425,7 @@
-
- -
-
 
-
-
-South Florida -
-
- -
-setup -
if (!requireNamespace("librarian", quietly = TRUE)) {
-  # If not installed, install the package
-  install.packages("librarian")
-}
-
-librarian::shelf(
-  dplyr,
-  here,
-…
-
-
-
- -
-
-
-
- -
-
+
 
diff --git a/regional_report/regional_reports/All - this is a global dataset.html b/regional_report/regional_reports/All - this is a global dataset.html index fd57bd4..e1dec90 100644 --- a/regional_report/regional_reports/All - this is a global dataset.html +++ b/regional_report/regional_reports/All - this is a global dataset.html @@ -213,7 +213,7 @@

All - this is a global dataset Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
All - this is a global dataset Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/Arctic.html b/regional_report/regional_reports/Arctic.html index cb15076..1ed529e 100644 --- a/regional_report/regional_reports/Arctic.html +++ b/regional_report/regional_reports/Arctic.html @@ -213,7 +213,7 @@

Arctic Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
Arctic Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/Central California.html b/regional_report/regional_reports/Central California.html index 308c16f..327a96b 100644 --- a/regional_report/regional_reports/Central California.html +++ b/regional_report/regional_reports/Central California.html @@ -213,7 +213,7 @@

Central California Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
Central California Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/Coastal New England.html b/regional_report/regional_reports/Coastal New England.html index 55ae7ac..8c4765b 100644 --- a/regional_report/regional_reports/Coastal New England.html +++ b/regional_report/regional_reports/Coastal New England.html @@ -213,7 +213,7 @@

Coastal New England Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
Coastal New England Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/GLOS MBON.html b/regional_report/regional_reports/GLOS MBON.html index ba4003c..f4f1eb7 100644 --- a/regional_report/regional_reports/GLOS MBON.html +++ b/regional_report/regional_reports/GLOS MBON.html @@ -213,7 +213,7 @@

GLOS MBON Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
GLOS MBON Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/Gulf of Maine.html b/regional_report/regional_reports/Gulf of Maine.html index c9da326..1397971 100644 --- a/regional_report/regional_reports/Gulf of Maine.html +++ b/regional_report/regional_reports/Gulf of Maine.html @@ -213,7 +213,7 @@

Gulf of Maine Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
Gulf of Maine Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/SE US.html b/regional_report/regional_reports/SE US.html index 8434ce6..9ad3fe3 100644 --- a/regional_report/regional_reports/SE US.html +++ b/regional_report/regional_reports/SE US.html @@ -213,7 +213,7 @@

SE US Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
SE US Report

Client Order Summary

-
- +
+
diff --git a/regional_report/regional_reports/South Florida.html b/regional_report/regional_reports/South Florida.html deleted file mode 100644 index a4f8a60..0000000 --- a/regional_report/regional_reports/South Florida.html +++ /dev/null @@ -1,772 +0,0 @@ - - - - - - - - - -South Florida – MBON Data Report - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
- -
- -
- - - - -
- -
-
-

South Florida

-
- - - -
- - - - -
- - - -
- - -
-
-setup -
if (!requireNamespace("librarian", quietly = TRUE)) {
-  # If not installed, install the package
-  install.packages("librarian")
-}
-
-librarian::shelf(
-  dplyr,
-  here,
-  htmltools,
-  reactablefmtr,
-  tidyverse
-)
-
-
-
-

South Florida Report

-
-
-load data -
source(here("R/getCleanedData.R"))
-data <- getCleanedData() %>%
-  filter(mbon.project == params$project_id)
-
-
-
-
-Code -
df <- data %>% select(
-  Dataset.title,
-  Technical.POC.email.,
-
-  erddap,
-  erddap_link, 
-  
-  obis,
-  obis_link,
-
-  ncei,
-  ncei_link,
-  
-  web,
-  web_link,
-  
-  code,
-  code_link
-)
-
-df %>% 
-  reactable(
-    theme = pff(centered = TRUE),
-    defaultColDef = colDef(footerStyle = list(fontWeight = "bold")),
-    columns = list(
-      Dataset.title = colDef(
-        minWidth = 175,
-        footer = 'Total',
-        cell = merge_column(
-          data = .,
-          merged_name = 'Technical.POC.email.',
-          merged_position = 'below',
-          merged_size = 14,
-          size = 16,
-          color = '#333333',
-          spacing = -1
-        )
-      ),
-      Technical.POC.email. = colDef(show = FALSE),
-      erddap = colDef(
-        cell = function(value, index) {
-          # Check if the link is NA or NULL
-          url <- df$erddap_link[index]
-          if (is.na(url) || is.null(url) || trimws(url) == "") {
-            return(value)  # Just return the original text if no link is available
-          } else {
-            # Return clickable link if URL is available
-            sprintf('<a href="%s" target="_blank">%s</a>', url, value)
-          }
-        },
-        html = TRUE  # Enable HTML rendering in the cell
-      ),
-      erddap_link = colDef(show = FALSE),
-      
-      obis = colDef(
-        cell = function(value, index) {
-          # Check if the link is NA or NULL
-          url <- df$obis_link[index]
-          if (is.na(url) || is.null(url) || trimws(url) == "") {
-            return(value)  # Just return the original text if no link is available
-          } else {
-            # Return clickable link if URL is available
-            sprintf('<a href="%s" target="_blank">%s</a>', url, value)
-          }
-        },
-        html = TRUE  # Enable HTML rendering in the cell
-      ),
-      obis_link = colDef(show = FALSE),
-      
-      ncei = colDef(
-        cell = function(value, index) {
-          # Check if the link is NA or NULL
-          url <- df$ncei_link[index]
-          if (is.na(url) || is.null(url) || trimws(url) == "") {
-            return(value)  # Just return the original text if no link is available
-          } else {
-            # Return clickable link if URL is available
-            sprintf('<a href="%s" target="_blank">%s</a>', url, value)
-          }
-        },
-        html = TRUE  # Enable HTML rendering in the cell
-      ),
-      ncei_link = colDef(show = FALSE),
-      
-      web = colDef(
-        cell = function(value, index) {
-          # Check if the link is NA or NULL
-          url <- df$web_link[index]
-          if (is.na(url) || is.null(url) || trimws(url) == "") {
-            return(value)  # Just return the original text if no link is available
-          } else {
-            # Return clickable link if URL is available
-            sprintf('<a href="%s" target="_blank">%s</a>', url, value)
-          }
-        },
-        html = TRUE  # Enable HTML rendering in the cell
-      ),
-      web_link = colDef(show = FALSE),
-      
-      code = colDef(
-        cell = function(value, index) {
-          # Check if the link is NA or NULL
-          url <- df$code_link[index]
-          if (is.na(url) || is.null(url) || trimws(url) == "") {
-            return(value)  # Just return the original text if no link is available
-          } else {
-            # Return clickable link if URL is available
-            sprintf('<a href="%s" target="_blank">%s</a>', url, value)
-          }
-        },
-        html = TRUE  # Enable HTML rendering in the cell
-      ),
-      code_link = colDef(show = FALSE)
-    )
-  ) %>% 
-  add_title(
-    title = 'Client Order Summary'
-  )
-
-
-

Client Order Summary

-
- -
-
- - -
- -
- -
- - - - - \ No newline at end of file diff --git a/regional_report/regional_reports/Southern California Bight.html b/regional_report/regional_reports/Southern California Bight.html index 4f9275e..c6c9038 100644 --- a/regional_report/regional_reports/Southern California Bight.html +++ b/regional_report/regional_reports/Southern California Bight.html @@ -213,7 +213,7 @@

Southern California Bight Report

-Code +create pretty table with links 
df <- data %>% select(
   Dataset.title,
   Technical.POC.email.,
@@ -335,8 +335,8 @@ 
Southern California Bight Report

Client Order Summary

-
- +
+
diff --git a/search.json b/search.json index 7b87cf0..ce1aeed 100644 --- a/search.json +++ b/search.json @@ -4,42 +4,35 @@ "href": "regional_report/regional_report.html", "title": "SE US", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSE US Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSE US Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { "objectID": "regional_report/regional_reports/Southern California Bight.html", "href": "regional_report/regional_reports/Southern California Bight.html", "title": "Southern California Bight", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSouthern California Bight Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSouthern California Bight Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { "objectID": "regional_report/regional_reports/All - this is a global dataset.html", "href": "regional_report/regional_reports/All - this is a global dataset.html", "title": "All - this is a global dataset", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nAll - this is a global dataset Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nAll - this is a global dataset Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { - "objectID": "regional_report/regional_reports/South Florida.html", - "href": "regional_report/regional_reports/South Florida.html", - "title": "South Florida", - "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSouth Florida Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" - }, - { - "objectID": "regional_report/regional_reports/Arctic.html", - "href": "regional_report/regional_reports/Arctic.html", - "title": "Arctic", + "objectID": "regional_report/regional_reports/SE US.html", + "href": "regional_report/regional_reports/SE US.html", + "title": "SE US", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nArctic Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSE US Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { - "objectID": "regional_report/regional_reports.html", - "href": "regional_report/regional_reports.html", - "title": "Project Reports", + "objectID": "regional_report/regional_reports/Coastal New England.html", + "href": "regional_report/regional_reports/Coastal New England.html", + "title": "Coastal New England", "section": "", - "text": "All - this is a global dataset\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nArctic\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nCentral California\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nCoastal New England\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nGLOS MBON\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nGulf of Maine\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nSE US\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nSouth Florida\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nSouthern California Bight\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nNo matching items" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nCoastal New England Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { "objectID": "index.html", @@ -49,38 +42,38 @@ "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n ggplot2,\n here,\n networkD3,\n tm,\n wordcloud\n)\n\n\n\n\nread in data from csv\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData()\n\n\n\n\ncreate word cloud from titles & descriptions\ncombined_text <- paste(data$`Dataset.title`, data$`Dataset.summary`, collapse = \" \")\ncorpus <- Corpus(VectorSource(combined_text))\n\n# Clean the text data\ntoSpace <- content_transformer(function(x, pattern) gsub(pattern, \" \", x))\ncorpus <- tm_map(corpus, toSpace, \"/\")\ncorpus <- tm_map(corpus, toSpace, \"@\")\ncorpus <- tm_map(corpus, toSpace, \"\\\\|\")\n\ncorpus <- tm_map(corpus, content_transformer(tolower))\ncorpus <- tm_map(corpus, removePunctuation)\ncorpus <- tm_map(corpus, removeNumbers)\ncorpus <- tm_map(corpus, removeWords, stopwords(\"english\"))\ncorpus <- tm_map(corpus, stripWhitespace)\n\n# Create a Term-Document Matrix\ndtm <- TermDocumentMatrix(corpus)\nmatrix <- as.matrix(dtm)\nword_freqs <- sort(rowSums(matrix), decreasing = TRUE)\ndf <- data.frame(word = names(word_freqs), freq = word_freqs)\n\n# Generate the word cloud\nwordcloud(words = df$word, freq = df$freq, min.freq = 1, \n max.words = 100, random.order = FALSE, \n colors = brewer.pal(8, \"Dark2\"))\n\n\n\n\n\n\n\n\n\n\n\ncreate a sankey diagram\nsource(\"R/yes_no_values.R\") # load consts used below\ndata <- data %>%\n mutate(\n RA = ifelse(tolower(RA) %in% no_values, \"\", RA),\n erddap = ifelse(tolower(erddap) %in% yes_values, \"in ERDDAP\", erddap),\n erddap = ifelse(tolower(erddap) %in% no_values, \"\", erddap),\n obis = ifelse(tolower(obis) %in% no_values, \"\", obis),\n obis = ifelse(tolower(obis) %in% yes_values, \"in OBIS\", obis),\n ncei = ifelse(tolower(ncei) %in% no_values, \"\", ncei),\n ncei = ifelse(tolower(ncei) %in% yes_values, \"in NCEI\", ncei)\n )\n\n# Create links data frames for each column pair and merge them together\nlinks <- rbind(\n data.frame(\n source = data$RA,\n target = data$erddap,\n value = 1\n ), \n data.frame(\n source = data$RA,\n target = data$obis,\n value = 1\n ),\n data.frame(\n source = data$RA,\n target = data$ncei,\n value = 1\n )\n) %>%\n filter_all(all_vars(. != \"\")) %>% # drop anything that is empty\n rbind(\n data.frame(\n source = data$mbon.project,\n target = data$RA,\n value = 1\n )\n )\n# Create nodes data frame\nnodes <- data.frame(\n name = c(as.character(links$source), as.character(links$target)) %>% unique()\n)\n\n# Reformat the links with IDs\nlinks$IDsource <- match(links$source, nodes$name) - 1\nlinks$IDtarget <- match(links$target, nodes$name) - 1\n\n# Make the Network\np <- networkD3::sankeyNetwork(Links = links, Nodes = nodes,\n Source = \"IDsource\", Target = \"IDtarget\",\n Value = \"value\", NodeID = \"name\",\n sinksRight = FALSE)\np" }, { - "objectID": "regional_report/regional_reports/Coastal New England.html", - "href": "regional_report/regional_reports/Coastal New England.html", - "title": "Coastal New England", + "objectID": "regional_report/regional_reports.html", + "href": "regional_report/regional_reports.html", + "title": "Project Reports", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nCoastal New England Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "All - this is a global dataset\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nArctic\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nCentral California\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nCoastal New England\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nGLOS MBON\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nGulf of Maine\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nSE US\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nSouthern California Bight\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nNo matching items" }, { - "objectID": "regional_report/regional_reports/SE US.html", - "href": "regional_report/regional_reports/SE US.html", - "title": "SE US", + "objectID": "regional_report/regional_reports/Arctic.html", + "href": "regional_report/regional_reports/Arctic.html", + "title": "Arctic", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nSE US Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nArctic Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { "objectID": "regional_report/regional_reports/Gulf of Maine.html", "href": "regional_report/regional_reports/Gulf of Maine.html", "title": "Gulf of Maine", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nGulf of Maine Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nGulf of Maine Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { "objectID": "regional_report/regional_reports/Central California.html", "href": "regional_report/regional_reports/Central California.html", "title": "Central California", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nCentral California Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nCentral California Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" }, { "objectID": "regional_report/regional_reports/GLOS MBON.html", "href": "regional_report/regional_reports/GLOS MBON.html", "title": "GLOS MBON", "section": "", - "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nGLOS MBON Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\nCode\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" + "text": "setup\nif (!requireNamespace(\"librarian\", quietly = TRUE)) {\n # If not installed, install the package\n install.packages(\"librarian\")\n}\n\nlibrarian::shelf(\n dplyr,\n here,\n htmltools,\n reactablefmtr,\n tidyverse\n)\n\n\n\nGLOS MBON Report\n\n\nload data\nsource(here(\"R/getCleanedData.R\"))\ndata <- getCleanedData() %>%\n filter(mbon.project == params$project_id)\n\n\n\n\ncreate pretty table with links\ndf <- data %>% select(\n Dataset.title,\n Technical.POC.email.,\n\n erddap,\n erddap_link, \n \n obis,\n obis_link,\n\n ncei,\n ncei_link,\n \n web,\n web_link,\n \n code,\n code_link\n)\n\ndf %>% \n reactable(\n theme = pff(centered = TRUE),\n defaultColDef = colDef(footerStyle = list(fontWeight = \"bold\")),\n columns = list(\n Dataset.title = colDef(\n minWidth = 175,\n footer = 'Total',\n cell = merge_column(\n data = .,\n merged_name = 'Technical.POC.email.',\n merged_position = 'below',\n merged_size = 14,\n size = 16,\n color = '#333333',\n spacing = -1\n )\n ),\n Technical.POC.email. = colDef(show = FALSE),\n erddap = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$erddap_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n erddap_link = colDef(show = FALSE),\n \n obis = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$obis_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n obis_link = colDef(show = FALSE),\n \n ncei = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$ncei_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n ncei_link = colDef(show = FALSE),\n \n web = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$web_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n web_link = colDef(show = FALSE),\n \n code = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- df$code_link[index]\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(value) # Just return the original text if no link is available\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"%s\" target=\"_blank\">%s</a>', url, value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n code_link = colDef(show = FALSE)\n )\n ) %>% \n add_title(\n title = 'Client Order Summary'\n )\n\n\nClient Order Summary" } ] \ No newline at end of file diff --git a/sitemap.xml b/sitemap.xml index bdcaed9..b427dce 100644 --- a/sitemap.xml +++ b/sitemap.xml @@ -2,50 +2,46 @@ https://marinebon.github.io/data_reports/regional_report/regional_report.html - 2024-09-10T19:02:27.522Z + 2024-09-10T19:04:49.106Z https://marinebon.github.io/data_reports/regional_report/regional_reports/Southern California Bight.html - 2024-09-10T19:03:04.623Z + 2024-09-10T19:35:21.714Z https://marinebon.github.io/data_reports/regional_report/regional_reports/All - this is a global dataset.html - 2024-09-10T19:03:04.561Z + 2024-09-10T19:35:21.659Z - https://marinebon.github.io/data_reports/regional_report/regional_reports/South Florida.html - 2024-09-10T19:03:04.626Z - - - https://marinebon.github.io/data_reports/regional_report/regional_reports/Arctic.html - 2024-09-10T19:03:04.565Z + https://marinebon.github.io/data_reports/regional_report/regional_reports/SE US.html + 2024-09-10T19:35:21.711Z - https://marinebon.github.io/data_reports/regional_report/regional_reports.html - 2024-09-10T17:00:08.104Z + https://marinebon.github.io/data_reports/regional_report/regional_reports/Coastal New England.html + 2024-09-10T19:35:21.705Z https://marinebon.github.io/data_reports/index.html 2024-09-10T18:01:01.423Z - https://marinebon.github.io/data_reports/regional_report/regional_reports/Coastal New England.html - 2024-09-10T19:03:04.609Z + https://marinebon.github.io/data_reports/regional_report/regional_reports.html + 2024-09-10T17:00:08.104Z - https://marinebon.github.io/data_reports/regional_report/regional_reports/SE US.html - 2024-09-10T19:03:04.618Z + https://marinebon.github.io/data_reports/regional_report/regional_reports/Arctic.html + 2024-09-10T19:35:21.663Z https://marinebon.github.io/data_reports/regional_report/regional_reports/Gulf of Maine.html - 2024-09-10T19:03:04.615Z + 2024-09-10T19:35:21.709Z https://marinebon.github.io/data_reports/regional_report/regional_reports/Central California.html - 2024-09-10T19:03:04.569Z + 2024-09-10T19:35:21.668Z https://marinebon.github.io/data_reports/regional_report/regional_reports/GLOS MBON.html - 2024-09-10T19:03:04.612Z + 2024-09-10T19:35:21.707Z