#' Update local structure metadata cache
#'
#' @keywords internal
#' @return Local cache of structure metadata, as data.table
#' @import SPARQL RCurl
#' @export
updateLocalStruc <- function(){
requireNamespace('SPARQL', quietly = TRUE)
requireNamespace('RCurl', quietly = TRUE)
endpt <- 'http://dydra.com/luca-gramaglia/eu-us-partnership-metadata-store/sparql'
quer <- '
PREFIX qb: <http://purl.org/linked-data/cube#>
PREFIX dcat: <http://www.w3.org/ns/dcat#>
PREFIX dct: <http://purl.org/dc/terms/>
PREFIX struc: <http://example.org/struc/>
SELECT ?Structure_ID ?Component WHERE {
?Structure_ID a dcat:Dataset; dct:publisher <JOINT> .
?Structure_ID qb:component ?x .
?x qb:dimension|qb:attribute|qb:measure|qb:componentProperty ?CompID.
?CompID rdfs:label ?Component .
}';
qd <- SPARQL(endpt,quer)
localPath <- paste0(.libPaths()[1], '/eu.us.opendata/rawdata')
dir.create(localPath, showWarnings = FALSE, recursive = TRUE)
utils::write.csv2(qd$results, paste0(localPath, '/Structure_Table.csv'), quote = FALSE, row.names = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.