Benchmark some possible backends for the registry.
library(bench) library(contentid) # remotes::install_github("cboettig/contentid", upgrade = TRUE) knitr::opts_chunk$set(error=TRUE)
tsv <- "/zpool/content-store/registry.tsv" big_registry <- vroom::vroom(tsv)
devtools::load_all() db <- init_lmdb()
library(dplyr) unique_id <- big_registry %>% count(identifier) %>% filter(n == 1) %>% left_join(big_registry) %>% select(-n) entries <- apply(unique_id, 1, paste0, collapse = "\t") db$mput(unique_id$identifier, entries) unique_source <- big_registry %>% count(source) %>% filter(n == 1) %>% left_join(big_registry) %>% select(-n) entries <- apply(unique_source, 1, paste0, collapse = "\t") db$mput(unique_source$source, entries) #unique_id %>% head(1) %>% pull(identifier) -> ex_id #unique_source %>% filter(!is.na(identifier)) %>% pull(source) %>% head(2)
bench::mark({ history_lmdb("https://arcticdata.io/metacat/d1/mn/v2/object/17d54d9a9557dd5118edac00232cb220", db) })
bench::bench_time({ history_tsv("https://arcticdata.io/metacat/d1/mn/v2/object/17d54d9a9557dd5118edac00232cb220", tsv) })
bench::mark({ sources_lmdb("hash://sha256/00000359a8f49dad91e02ef42045ab843befc0478a6bcaece377fdb99fca2645", db) })
bench::bench_time({ sources_tsv("hash://sha256/00000359a8f49dad91e02ef42045ab843befc0478a6bcaece377fdb99fca2645", tsv) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.