diff --git a/.nojekyll b/.nojekyll
index 16bceac..16722a5 100644
--- a/.nojekyll
+++ b/.nojekyll
@@ -1 +1 @@
-83eac0ed
\ No newline at end of file
+e88e6270
\ No newline at end of file
diff --git a/index_files/figure-html/unnamed-chunk-3-1.png b/index_files/figure-html/unnamed-chunk-3-1.png
index e4cd2a4..1109b25 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/regional_report/regional_report.html b/regional_report/regional_report.html
index 1a9bae9..711de8a 100644
--- a/regional_report/regional_report.html
+++ b/regional_report/regional_report.html
@@ -217,126 +217,143 @@
SE US Report
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
-
Client Order Summary
-
-
+
Dataset Publication Summary
+
+
diff --git a/regional_report/regional_reports/Coastal New England.html b/regional_report/regional_reports/Coastal New England.html
index 8c4765b..a995077 100644
--- a/regional_report/regional_reports/Coastal New England.html
+++ b/regional_report/regional_reports/Coastal New England.html
@@ -217,126 +217,143 @@
Coastal New England Report
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
-
Client Order Summary
-
-
+
Dataset Publication Summary
+
+
diff --git a/regional_report/regional_reports/Gulf of Maine.html b/regional_report/regional_reports/Gulf of Maine.html
index 1397971..89d0ab5 100644
--- a/regional_report/regional_reports/Gulf of Maine.html
+++ b/regional_report/regional_reports/Gulf of Maine.html
@@ -217,126 +217,143 @@
Gulf of Maine Report
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
-
Client Order Summary
-
-
+
Dataset Publication Summary
+
+
diff --git a/regional_report/regional_reports/Southern California Bight.html b/regional_report/regional_reports/Southern California Bight.html
index c6c9038..6902ac4 100644
--- a/regional_report/regional_reports/Southern California Bight.html
+++ b/regional_report/regional_reports/Southern California Bight.html
@@ -217,126 +217,143 @@
Southern California Bight Report
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'
- )
+
+ doi,
+
+ 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),
+
+doi =colDef(
+cell =function(value, index) {
+# Check if the link is NA or NULL
+ url <- value
+if (is.na(url) ||is.null(url) ||trimws(url) =="") {
+return("No")
+ } else {
+# Return clickable link if URL is available
+sprintf('<a href="https://doi.org/%s" target="_blank">Yes</a>', value)
+ }
+ },
+html =TRUE# Enable HTML rendering in the cell
+ ),
+
+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 ='Dataset Publication Summary'
+ )
-
Client Order Summary
-
-
+
Dataset Publication Summary
+
+
diff --git a/search.json b/search.json
index ce1aeed..0b501de 100644
--- a/search.json
+++ b/search.json
@@ -4,35 +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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication 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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication 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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication Summary"
},
{
"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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication Summary"
},
{
"objectID": "regional_report/regional_reports/Coastal New England.html",
"href": "regional_report/regional_reports/Coastal New England.html",
"title": "Coastal New England",
"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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication Summary"
},
{
"objectID": "index.html",
@@ -53,27 +53,27 @@
"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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication 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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication 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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication 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\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"
+ "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 doi,\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 \n doi = colDef(\n cell = function(value, index) {\n # Check if the link is NA or NULL\n url <- value\n if (is.na(url) || is.null(url) || trimws(url) == \"\") {\n return(\"No\")\n } else {\n # Return clickable link if URL is available\n sprintf('<a href=\"https://doi.org/%s\" target=\"_blank\">Yes</a>', value)\n }\n },\n html = TRUE # Enable HTML rendering in the cell\n ),\n \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 = 'Dataset Publication Summary'\n )\n\n\nDataset Publication Summary"
}
]
\ No newline at end of file
diff --git a/sitemap.xml b/sitemap.xml
index b427dce..e081288 100644
--- a/sitemap.xml
+++ b/sitemap.xml
@@ -2,23 +2,23 @@
https://marinebon.github.io/data_reports/regional_report/regional_report.html
- 2024-09-10T19:04:49.106Z
+ 2024-09-12T17:36:53.136Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/Southern California Bight.html
- 2024-09-10T19:35:21.714Z
+ 2024-09-12T17:39:32.707Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/All - this is a global dataset.html
- 2024-09-10T19:35:21.659Z
+ 2024-09-12T17:39:32.632Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/SE US.html
- 2024-09-10T19:35:21.711Z
+ 2024-09-12T17:39:32.702Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/Coastal New England.html
- 2024-09-10T19:35:21.705Z
+ 2024-09-12T17:39:32.689Zhttps://marinebon.github.io/data_reports/index.html
@@ -30,18 +30,18 @@
https://marinebon.github.io/data_reports/regional_report/regional_reports/Arctic.html
- 2024-09-10T19:35:21.663Z
+ 2024-09-12T17:39:32.638Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/Gulf of Maine.html
- 2024-09-10T19:35:21.709Z
+ 2024-09-12T17:39:32.697Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/Central California.html
- 2024-09-10T19:35:21.668Z
+ 2024-09-12T17:39:32.683Zhttps://marinebon.github.io/data_reports/regional_report/regional_reports/GLOS MBON.html
- 2024-09-10T19:35:21.707Z
+ 2024-09-12T17:39:32.693Z