R/rNest_tcltk.R

In frousseu/rNest: Estimating Nesting Chronology and Breeding Phenology in Birds

rNest_tcltk <-
function(lang="english"){
     if(lang=="english"){
      warninglabl<-"Warning"
      warningtextlabl<-paste0("The technical information contained in rNest is general information that constitutes advice only. All persons must adhere to all pertinent laws (for example provincial or territorial laws), regulations and permit requirements including but not restricted to the Migratory Birds Convention Act, 1994 (MBCA) and the Migratory Birds Regulations (MBR). It is important to note that some species of birds protected under the MBCA have also been listed in Schedule 1 of the Species at Risk Act (SARA). These species receive protection from both the MBCA and SARA. This information does not provide an authorization for harming or killing migratory birds or for the disturbance, destruction or taking of nests or eggs as prohibited under the MBR. This information does not provide a guarantee that the activities will avoid contravening the MBR or other laws and regulations. This is general information not intended to be relied on as official advice concerning the legal consequences of any specific activity. It is not a substitute for the MBCA, the MBR, or any other legislation.","\n","\n","It is the responsibility of individuals and companies to assess their risk with regards to migratory birds and design relevant avoidance and mitigation measures to reduce risks. It is possible that local nesting periods could have a different starting date and/or duration than dates provided in rNest due to micro-climatic conditions in specific areas (e.g. high elevation sites or coastal sites) as well as inter-annual variation due to factors such as early spring or cold, wet summer. rNest will be updated as new data become available, which could result in the changing of dates. Any time nests of migratory bird containing eggs or young are encountered, the immediate area should be avoided until the young have naturally left the vicinity of the nest. This protection measure should be taken even if the nest has been found outside the dates of the general nesting period for the area provided in rNest. Once out of the nest, young birds are still vulnerable therefore precautionary measures are recommended.","\n","\n","For more detailed Avoidance Guidelines, please visit Environment Canada’s website at www.ec.gc.ca/paom-itmb","\n","\n","When using rNest in observation mode, it is important to keep in mind that nesting observations from the Project NestWatch database are mostly concentrated in southern and inhabitated regions of Canada. Consequently, not enough information is available in several parts of Canada to obtain a representative portray of the nesting season solely based on nesting observations. Moreover, several species are overrepresented in the data and can have a disproportionate influence on nesting calendars when groups of birds are used. Use caution when interpreting nesting calendars in observation mode as scarce data, species overrepresentation and aberrant or extreme nesting events may severely affect their reliability.")
      loadingmsglabl="Data and rNest interface loading..."
     }else{
      warninglabl<-"Avertissement"
      warningtextlabl<-paste0("Les renseignements techniques présentés dans rNid ne le sont qu’à titre de conseils. Toute personne doit se conformer à l'ensemble des exigences pertinentes des lois (par exemple les lois provinciales ou territoriales), des règlements et des permis, y compris, entre autres, la Loi de 1994 sur la convention concernant les oiseaux migrateurs (LCOM) et le Règlement sur les oiseaux migrateurs (ROM). Il est important de noter que certaines espèces d'oiseaux protégés en vertu de la LCOM ont également été inscrites à l'annexe 1 de la Loi sur les espèces en péril (LEP). Ces espèces sont protégées à la fois en vertu de LCOM et de la LEP. Ces conseils ne donnent pas l'autorisation de blesser ou de tuer des oiseaux migrateurs, ni de déranger, de détruire ou de prendre des nids ou des œufs en vertu du ROM, et ils n'offrent pas non plus la garantie que les activités ne donnent pas lieu à une violation ROM ou d'autres lois et règlements. Les renseignements présentés ici sont de nature générale et ne doivent pas servir d'avis officiel au sujet des conséquences juridiques de toute activité particulière. Ils ne remplacent pas la LCOM, le ROM ou toute autre loi.","\n","\n","La responsabilité incombe aux particuliers et aux entreprises d’évaluer leur propre niveau de risque en tenant compte des oiseaux migrateurs en présence et d’établir les mesures pertinentes d’évitement et d’atténuation appropriées. Il est possible que localement la période de nidification commence et se termine plus tôt ou plus tard que les dates fournies dans rNid en raison de conditions microclimatiques particulières à certains lieux (p. ex. milieux côtiers ou en altitude), ou en raison de variations climatiques interannuelles (p. ex. printemps hâtif, été froid et pluvieux). Les renseignements techniques publiés dans rNid seront mis à jour – et possiblement modifiés – à mesure que de nouvelles données seront disponibles. Chaque fois que des nids contenant des œufs ou des oisillons sont découverts, la zone immédiate doit être évitée jusqu'à ce que les oisillons aient quitté naturellement l’entourage immédiat du nid. Cette mesure de protection doit être appliquée même si le nid a été trouvé en dehors de la période générale de nidification fournie par rNid. Une fois hors du nid, les oisillons demeurent vulnérables et il est recommandé d’agir avec précaution.","\n","\n","Pour obtenir de plus amples renseignements, veuillez consulter le site Web d’Environnement Canada à l’adresse suivante : www.ec.gc.ca/paom-itmb.","\n","\n","Lorsque rNid est utilisé en mode observation, il est important de mentionner que les observations de nids contenues dans la base de données NestWatch sont concentrées dans le sud et les régions habitées du Canada. Par conséquent, il n'y a pas assez d'information dans plusieurs parties du Canada pour obtenir un portrait représentatif de la saison de nidification en se basant uniquement sur les observations de nids. De plus plusieurs espèces sont surreprésentées dans les données et peuvent avoir une influence disproportionnée sur les calendriers de nidification lorsque des groupes sont utilisés. En mode observation, les calendriers de nidification doivent être interprétés avec prudence en raison du manque de données, des espèces surreprésentées et des observations de nidification aberrantes ou extrêmes qui peuvent sévèrement affecter leur fiabilité.")
      loadingmsglabl="Chargement des données et de l'interface rNid..."
     }
     tkmessageBox(title=warninglabl,message=warningtextlabl, icon="info",type="ok")
     cat("\n","  ",loadingmsglabl,"\n")
     flush.console()
     data(nestwatch)
     data(nestingparameters)
     data(birdgroupings)
     data(ecodistrictscsv)
     data(predictions)
     data(specodistricts)
     x<-dlply(ecodistrictscsv,.(group),function(i){Polygon(i[c(nrow(i),1:nrow(i)),1:2],hole=i$hole[1])})
     x<-sapply(unique(ecodistrictscsv$id),function(i){
      res<-x[names(x)%in%ecodistrictscsv$group[which(ecodistrictscsv$id==i)]]
      Polygons(res,ID=i)
     })
     dat<-ecodistrictscsv[match(names(x),ecodistrictscsv$id),]
     dat<-as.data.frame(do.call("rbind",strsplit(dat$id,"_")))
     names(dat)<-c("PROVINCE","ecodistrict","breeding_zone2","breeding_zone","provincesEN","provincesFR")
     dat<-dat[,-1]
     dat$ecodistrict<-as.numeric(as.character(dat$ecodistrict))
     x<-SpatialPolygons(x,proj4string=CRS("+proj=longlat +datum=NAD83 +no_defs +ellps=GRS80 +towgs84=0,0,0"))
     x<-SpatialPolygonsDataFrame(x,data=dat,match.ID=FALSE)
     ecodistricts<-x
     rNest:::tk.nesting.calendar(ecodistricts=ecodistricts,lang=lang)
     #winMenuAddItem("rNest","single nest","rNesttest:::tk.single.nest()")
     #winMenuAddItem("rNest","single nest test","rNesttest:::tk.single.nest.test()")
     #winMenuAddItem("rNest","nesting calendar","rNesttest:::tk.nesting.calendar()")
     #winMenuAddItem("rNest","explore data","rNesttest:::tk.data()")
     }