library(nprcgenekeepr)
siteInfo <- getSiteInfo(FALSE)
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