if (FALSE) { # interactive()
# \donttest{
#Get rfishbase food item data for a few species
my.food <- try(as.data.frame(rfishbase::fooditems(c("Lutjanus apodus","Epinephelus itajara"))))
if (!"try-error" %in% class(my.food)) {
#use the ConvertFishbaseFood function to format it for dietr and exclude recruits/juveniles
cleaned.food <- ConvertFishbaseFood(FishBaseFood=my.food, ExcludeStage=c("larvae","recruits/juv."))
cleaned.food
}
# }
}
Run the code above in your browser using DataLab