R/get.edhw.R

In sdam-au/sdam: Digital Tools for the SDAM Project at Aarhus University

## 
## WRAPPER FUNCTION get.edhw() to retrieve records from EDH database API
## (CC BY-SA 4.0) Antonio Rivero Ostoic, jaro@cas.au.dk 
##
## version 0.2.2 (18-03-2021)
##
## PARAMETERS
## file  (optional file with a JSON format)
## hd_nr (HD-No of inscription)
## ...   (optional parameters)
##


get.edhw <-
function (file = NULL, hd_nr, ...) 
{
    if (is.null(file) == FALSE) {
        smpl <- rjson::fromJSON(file = file)
    }
    else if (is.null(file) == TRUE) {
        smpl <- list()
        for (i in hd_nr) {
            smpl[[length(smpl) + 1L]] <- try(get.edh(hd_nr = i, 
                ...))
        }
        rm(i)
    }
    ifelse(missing(hd_nr) == FALSE && isTRUE(length(hd_nr) == 
        1) == TRUE, return(smpl[[1]]), return(smpl))
}