Ero sivun ”Kaupunkipyörä/pyörätelineet” versioiden välillä

Versio 22. lokakuuta 2013 kello 19.27


library(OpasnetUtils)
library(OpasnetUtilsExt)
library(rgdal)

objects.latest("Op_fi3857", code_name = "alusta")

dat <- pyörät.nyt()

dat <- dropall(dat)

dat <- as.data.frame(as.table(tapply(as.character(dat$Tyyppi), dat[c("Teline", "LA", "LO")], function(x) paste(x, sep = "", collapse = " "))))
dat <- dat[!is.na(dat$Freq) , ]

dat$LA <- as.numeric(levels(dat$LA)[dat$LA])
dat$LO <- as.numeric(levels(dat$LO)[dat$LO])

oprint(dat)

coordinates(dat)=c("LO","LA")

out <- google.point_kml(
	obj = dat,
	kmlname = "Helsingin pyörätelineet",
	kmldescription = "KML-tiedostona",
	name = dat$Freq,
	description = dat$Freq
)

google.show_kml_data_on_maps(out)

lainaus

huolto

@@ Rivi 3: / Rivi 3: @@
-<rcode embed=1 label="Näytä pyörätelineet" showcode=-1>
+<rcode embed=1 label="Näytä kaikki pyörätelineet" showcode=-1>
 library(OpasnetUtils)
 library(OpasnetUtilsExt)
 library(rgdal)
-library(raster)
+#library(raster)
 dat <- opbase.data("Op_fi3857", subset = "Pyörätelineet")
@@ Rivi 28: / Rivi 28: @@
+<rcode name="pyörälliset_telineet" label="Näytä telineet, joissa on pyöriä" embed=1>
-<rcode name="pyörätelineet" label="Lisää pyöräteline" embed=1 showcode=-1 variables="
-	name:nimi|description:Anna pyörätelineelle lempinimi|type:text|
-	name:location|description:Raahaa nasta kartalla pyörätelinnen kohdalle|type:location|
-	name:paikkoja|description:Montako paikkaa telineessä on?|default:5
-">
 library(OpasnetUtils)
-location
+library(OpasnetUtilsExt)
+library(rgdal)
+objects.latest("Op_fi3857", code_name = "alusta")
+dat <- pyörät.nyt()
+dat <- dropall(dat)
+dat <- as.data.frame(as.table(tapply(as.character(dat$Tyyppi), dat[c("Teline", "LA", "LO")], function(x) paste(x, sep = "", collapse = " "))))
+dat <- dat[!is.na(dat$Freq) , ]
+dat$LA <- as.numeric(levels(dat$LA)[dat$LA])
+dat$LO <- as.numeric(levels(dat$LO)[dat$LO])
-nro <- opbase.data("Op_fi3857", subset = "Pyörätelineet")$Telinenro
+oprint(dat)
-nro <- max(as.numeric(levels(nro)[nro])) + 1
-out <- data.frame(
+coordinates(dat)=c("LO","LA")
-	Telinenro = nro,
-	Teline = nimi,
-	LA = location[1],
-	LO = location[2],
-	Paikkoja = paikkoja,
-	Result = 0
-)
-opbase.upload(input = out, ident = "Op_fi3857", name = "Kaupunkipyörä", subset = "Pyörätelineet",
+out <- google.point_kml(
-	obj_type = "variable", act_type = "append", language = "fin", who = wiki_username
+	obj = dat,
+	kmlname = "Helsingin pyörätelineet",
+	kmldescription = "KML-tiedostona",
+	name = dat$Freq,
+	description = dat$Freq
 )
-cat("Uudet tiedot tallennettu. Ota pyörätelineen numero talteen.\n")
+google.show_kml_data_on_maps(out)
-oprint(out)
 </rcode>

Ero sivun ”Kaupunkipyörä/pyörätelineet” versioiden välillä

Versio 22. lokakuuta 2013 kello 19.27

Navigointivalikko