Ero sivun ”Kaupunkipyörä/pyörät” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(luonnos) |
pEi muokkausyhteenvetoa |
||
| Rivi 1: | Rivi 1: | ||
{{Piilota sivupalkki}} | {{Piilota sivupalkki}} | ||
[[Kaupunkipyörä/etusivu|palaa]] | [[Kaupunkipyörä/etusivu|palaa]] | ||
<rcode name="pyörien sijainnit" label="Näytä vapaat pyörät" graphics=1 embed=1 showcode=-1> | |||
library(OpasnetUtils) | |||
# Tässä pitäisi hakea vain jokaisen pyörän uusimman aikaleiman rivi. Onnistuuko tietokantatasolla? | |||
# Lienee liian monimutkaista, koska hakurutiini on ehdollinen. | |||
dat <- opbase.data("Op_fi3857", subset = "Lainat") | |||
dat$Aika <- as.double(as.POSIXct(dat$Aika)) | |||
temp <- as.data.frame(as.table(tapply(dat$Aika, dat[c("Pyöränro", "Laina")], max))) | |||
temp <- temp[temp$Laina == "Palautus" , ] | |||
colnames(temp)[colnames(temp) == "Freq"] <- "Aika" | |||
out <- merge(dat, temp) | |||
pyörät <- opbase.data("Op_fi3857", subset = "Pyörät") | |||
out <- merge(out, pyörät) | |||
teline <- opbase.data("Op_fi3857", subset = "Pyörätelineet") | |||
out <- merge(out, teline) | |||
out <- out[ , !colnames(out) %in% c("Result", "Laina", "Asiakasnro", "Avain")] | |||
cat("Käytettävissä olevien pyörien sijainti tällä hetkellä.\n") | |||
#out$Aika <- as.POSIXct(out$Aika) # Tarvitaan origin! | |||
oprint(out) | |||
</rcode> | |||
<rcode name="pyörät" label="Lisää pyörä" embed=1 showcode=-1 variables=" | <rcode name="pyörät" label="Lisää pyörä" embed=1 showcode=-1 variables=" | ||
| Rivi 39: | Rivi 71: | ||
</rcode> | </rcode> | ||
[[Kaupunkipyörä/lainaus|lainaus]] | [[Kaupunkipyörä/lainaus|lainaus]] | ||