library("EMODnetWFS")
service <- "chemistry_marine_litter"
layers_info <- emodnet_get_wfs_info(service = service)
#> Loading ISO 19139 XML schemas...
#> Loading ISO 19115 codelists...
#> ✔ WFS client created successfully
#> ℹ Service: "https://www.ifremer.fr/services/wfs/emodnet_chemistry2"
#> ℹ Version: "2.0.0"
layer <- layers_info[layers_info[["format"]] == "sf",][2,][["layer_name"]]
Maëlle Salmon maelle
library(EMODnetWFS)
withr::local_options("EMODnetWFS.quiet" = TRUE)
services <- emodnet_wfs()[["service_name"]]
print_crs <- function(service) {
cli::cli_rule()
cli::cli_alert_info(service)
# choose the first layer,
# presumedly all layers would use the same configuration/projection?
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # pak::pak("lvaudor/glitter") | |
| library("glitter") | |
| # Select all taxa from the UniProt taxonomy | |
| # doesn't work yet https://github.com/lvaudor/glitter/issues/144 | |
| # Select all bacterial taxa and their scientific name from the UniProt taxonomy | |
| # rdfs is a common prefix so built-in | |
| spq_init() %>% | |
| spq_prefix(prefixes = c( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| pkgdown_site_folder <- "glitter" | |
| glitter_redirect <- function() { | |
| '<html> | |
| <head> | |
| <meta http-equiv="refresh" content="0;URL=https://lvaudor.github.io/glitter/" /> | |
| <script language="javascript"> | |
| window.location.href = "https://lvaudor.github.io/glitter/" | |
| </script> | |
| </head> |
maelle
/ glitter-redirect.html
Created
February 16, 2022 12:59
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html> | |
| <head> | |
| <meta http-equiv="refresh" content="0;URL=https://lvaudor.github.io/glitter/" /> | |
| <script language="javascript"> | |
| window.location.href = "https://lvaudor.github.io/glitter/" | |
| </script> | |
| </head> | |
| </html> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| path <- #path to pkg | |
| scripts <- fs::dir_ls(file.path(path, "R")) | |
| parse_one <- function(filename) { | |
| filename |> | |
| brio::read_lines() |> | |
| purrr::discard(function(x) grepl("^#'", x)) |> | |
| glue::glue_collapse(sep = "\n") |> | |
| downlit::highlight(classes = downlit::classes_pandoc(), code = TRUE, pre = "bla") |> | |
| xml2::read_html() |> |
maelle
/ keybase.md
Created
November 2, 2019 07:53
I hereby claim:
- I am maelle on github.
- I am maelle_salmon (https://keybase.io/maelle_salmon) on keybase.
- I have a public key ASADxgtEOLgP4MeM_rPnufu-aOUgLXNtEo-ZuyA6UCCtOgo
To claim this, I am signing this object:
NewerOlder