etc/get_insert_status.R
In NCEAS/arcticdatautils: Utilities for the Arctic Data Center
response <- RCurl::getURL("https://arcticdata.io/metacat/d1/mn/v2/query/solr/?q=id:*&fl=identifier&rows=0")
doc <- XML::xmlParse(response)
solr_response <- XML::getNodeSet(doc, "/response/result")
line = paste0(as.POSIXlt(Sys.time(), "GMT"), ",", as.numeric(XML::xmlAttrs(solr_response[[1]])["numFound"]))
print(line)
write(line, file = "status.txt", append = TRUE)
NCEAS/arcticdatautils documentation built on Aug. 28, 2023, 12:10 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
response <- RCurl::getURL("https://arcticdata.io/metacat/d1/mn/v2/query/solr/?q=id:*&fl=identifier&rows=0")
doc <- XML::xmlParse(response)
solr_response <- XML::getNodeSet(doc, "/response/result")
line = paste0(as.POSIXlt(Sys.time(), "GMT"), ",", as.numeric(XML::xmlAttrs(solr_response[[1]])["numFound"]))
print(line)
write(line, file = "status.txt", append = TRUE)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.