# NOT RUN {
library(nprcgenekeepr)
siteInfo <- getSiteInfo()
colSet <- siteInfo$lkPedColumns
source <- " generated by getDemographics: "
pedSourceDf <- tryCatch(getDemographics(colSelect = colSet),
warning = function(wCond) {
cat(paste0("Warning", source, wCond),
name = "nprcgenekeepr")
return(NULL)},
error = function(eCond) {
cat(paste0("Error", source, eCond),
name = "nprcgenekeepr")
return(NULL)}
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab