#ꌧs撬KML쐬pvO

#
load("C:/geroot/etc/RData/.RData")
library(maptools)

#rwwwAgp(ݗpj
uniquecode<-"" #
HostIp<-"localhost"

#dfobject,dfparam,dflegend쐬
#dfobject--pt@CAږw
dfobject<-c("okinawa","AEM2000","",uniquecode,HostIp)
names(dfobject)<-c("FileName","FieldName","FieldLabel","uniquecode","HostIp")

#dfparam--`pp[^w
dfparam<-c("","","1","1",0,0,0,"0","")
names(dfparam)<-c("PolygonColor","LineColor","fill","outline","Latitude","Longitude","Range","Altitude","AltitudeMode")

#dflegend--}pp[^w
dflegend<-c("*:All Japan","")
names(dflegend)<-c("Legendcmt","ScreenOverlayMode")

#GERshp2kml--spfunction
GERshp2kml(dfobject=dfobject,dfparam=dfparam,dflegend=dflegend,path="c:")

