# NOT RUN {
library(nprcgenekeepr)
siteInfo <- getSiteInfo()
source <- " generated by getFocalAnimalPed: "
tryCatch(getFocalAnimalPed(fileName = "breeding file.csv"),
warning = function(wCond) {
cat(paste0("Warning", source, wCond),
name = "nprcgenekeepr")
return(NULL)},
error = function(eCond) {
cat(paste0("Error", source, eCond),
name = "nprcgenekeepr")
return(NULL)}
)
# }
Run the code above in your browser using DataLab