Maëlle Salmon maelle

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"]]

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?

Stuff and things

head of mtcars

head(mtcars)

Stuff and things

head of mtcars

head(mtcars)

Stuff and things

head of mtcars

head(mtcars)

Keybase proof

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:

	# 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(

	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>

	<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>

	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() \|>