In OHI-Science/ohirepos: Create OHI tailored repositories

library(tidyverse)

## information from layers.csv
key <- "<%=key%>"
dir_scenario_gh <- "<%=dir_scenario_gh%>"
layers_csv  <- readr::read_csv(file.path(dir_scenario_gh, 'layers.csv'))
layers_web <- sprintf('http://ohi-science.org/%s/layers.html', key)

Food Provision: Fisheries

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="FIS") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Food Provision: Mariculture

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="MAR") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Artisanal Fishing Opportunity

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="AO") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Natural Products

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="NP") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Carbon Storage

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="CS") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Coastal Protection

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="CP") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Tourism & Recreation

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="TR") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Livelihoods & Economies: Livelihoods

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="LIV") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Livelihoods & Economies: Economies

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="ECO") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Sense of Place: Iconic Species

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="ICO") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Sense of Place: Lasting Special Places

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="LSP") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Clean Waters

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="CW") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Biodiversity: Species

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="SPP") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

---

Biodiversity: Habitats

Data used in model

Status & trend

st <- layers_csv %>%
  filter(targets=="HAB") %>%
  mutate(web_name = gsub(" ", "_", name)) %>%
  mutate(web_name = tolower(web_name)) %>%
  mutate(web_name = gsub("/", "", web_name)) %>%
  mutate(info = sprintf("[%s](%s#%s) (%s): %s", name, layers_web, web_name, layer, description))

cat(paste(st$info, collapse="\n\n"))

OHI-Science/ohirepos documentation built on June 1, 2024, 12:21 p.m.