gCubeSystem
/
simpleobis
15
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix comment

This commit is contained in:
Giancarlo Panichi 2023-05-19 14:16:35 +02:00
parent 736ad46789
commit 03bacf3832
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
simpleobisCCP.R
View File

@ -25,7 +25,7 @@ usedPolygon=args[2]
wktP <-readWKT(usedPolygon) wktP <-readWKT(usedPolygon)
print(wktP@bbox) print(wktP@bbox)
#By scientific name adnd geometry #By scientific name and geometry
y=occurrence(sname, geometry = usedPolygon) y=occurrence(sname, geometry = usedPolygon)
occplot<-map_ggplot(y, color = "#ff3399")+coord_sf(xlim = wktP@bbox[1,], ylim = wktP@bbox[2,]) occplot<-map_ggplot(y, color = "#ff3399")+coord_sf(xlim = wktP@bbox[1,], ylim = wktP@bbox[2,])
ggsave(result, plot = occplot) ggsave(result, plot = occplot)

2
simpleobisSAI.R
View File

@ -15,7 +15,7 @@ result="occplot.png"
wktP <-readWKT(usedPolygon) wktP <-readWKT(usedPolygon)
print(wktP@bbox) print(wktP@bbox)
#By scientific name adnd geometry #By scientific name and geometry
y=occurrence(sname, geometry = usedPolygon) y=occurrence(sname, geometry = usedPolygon)
occplot<-map_ggplot(y, color = "#ff3399")+coord_sf(xlim = wktP@bbox[1,], ylim = wktP@bbox[2,]) occplot<-map_ggplot(y, color = "#ff3399")+coord_sf(xlim = wktP@bbox[1,], ylim = wktP@bbox[2,])
ggsave(result, plot = occplot) ggsave(result, plot = occplot)