Kaupunkipyörä

Tämä sivu on ensyklopedia-artikkeli. Sivutunniste: Op_fi3857
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Näytä tulokset

Kaupunkipyörä on yhteiskäytössä oleva polkupyörä, jonka voi vuokraa tai panttia vastaan lainata tietyistä pyörätelineistä ympäri kaupunkia ja käytön jälkeen palauttaa johonkin toiseen telineeseen. Tällä sivulla esitetään eräs mahdollinen tapa organisoida kaupunkipyöräjärjestelmä.

Kysymys

Millainen on kaupunkipyöräjärjestelmä, joka

organisoituu mahdollisimman pitkälle kaupunkilaisten omaehtoisuuden varaan,
on infrastruktuuriltaan mahdollisimman halpa ja helppo ylläpitää,
on vikasietoinen,
sisältää toimivat kannusteet eri toimijoille toimia järjestelmän edun mukaisesti,
hyödyntää olemassaolevaa tietotekniikkaa tehokkaasti?

Vastaus

Kaupunkipyöräjärjestelmä koostuu seuraavista infrastruktuurin osista:

Pyörätelineet: numeroidut pyörätelineet, joissa pyörä voidaan omalla lukolla kytkeä kiinni telineeseen esim. vaijerin avulla. Telineissä on kännykällä luettava QR-koodi.
Kaupunkipyörät: Ihmisten lahjoittamia tai kaupunkipyöräyhdistyksen ostamia polkupyöriä, joihin kiinnitetään myös yksilöllinen QR-koodi.
- Kaupunkipyörissä on vaihdettavalla numerokoodilla toimiva, kiinteä vaijerilukko.
Tietokanta: Reaaliaikainen tietokanta, joka sisältää tiedot pyörätelineiden sijainnista, kaupunkipyöristä ja niiden ominaisuuksista ja kaupunkipyörien sijainnista kullakin hetkellä.
Käyttäjärajapinta, joka mahdollistaa tietojen lisäämisen (mm. lainaus, palautus, huolto) suoraviivaisella kännykkäliittymällä. Tämänhetkinen rajapinta on rakennettu nettisivujen varaan, ja se toimii yksinkertaisesti selaimella: Kaupunkipyörä/etusivu. Nyt toiminnassa oleva demoversio ei sisällä henkilövarmennusta eikä maksutoiminnallisuuksia, vaan sen tarkoituksena on demonstroida pyörien käyttämiseen liittyvää toimintaa ja tiedonsiirtoa.

Toiminta:

Kaupunkipyörän käyttäjäksi pääsee rekisteröitymällä ja maksamalla pantin kaupunkipyöräyhdistykselle, joka pyörittää toimintaa.
Käyttäjä voi lainata pyörän menemällä lähimmälle pyörätelineelle, avaamalla kännykästä kaupunkipyöräsovelluksen (demoversio: Kaupunkipyörä/etusivu) ja näyttämällä telineen ja pyörän QR-koodit sovellukselle. Sovellus kertoo lukon numeroyhdistelmän. (Demoversio ei hyödynnä QR-koodeja, vaan pyörien ja telineiden numerot on annettava käsin.)
Pyörä palautetaan johonkin telineeseen, näytetään taas QR-koodit, ja sovellus kertoo uuden numeroyhdistelmän, jolla pyörä lukitaan.
Ylläpitäjät kiertävät pyörätelineitä, listaavat sovelluksella niissä olevat pyörät ja raportoivat virheistä tai vioista.
Korjaajat käyvät korjaamassa raportoituja vikoja pyörissä.

Kannusteet:

Käyttäjät maksavat pyörän lainasta tietyn taksan mukaan. Pyörän toimittaminen sellaiseen pisteeseen, jossa sillä hetkellä on kysyntää, on halvempaa tai siitä peräti maksetaan. Näillä tuloilla ylläpitäjä saa järjestelmän osittain ylläpidettyä.
Kaupunki saa toimivan kaupunkipyöräsysteemin ja imagohyötyä, kun se osallistuu järjestelmän rahoitukseen.
Ylimääräisen pyörän omistaja voi lahjoittaa tai myydä pyöränsä kaupunkipyöräyhdistykselle.
Vapaaehtoiset ylläpitäjät ja korjaajat saavat työstään ilmaista pyöränvuokrausaikaa, joka toimii myös julkisena kiitoksena. Jos korjaustyötä on paljon, yhdistys ostaa sitä pyöräkorjaamoilta.

Yksityiskohtaiset toiminnallisuudet löytyvät näiltä sivuilta:

Voit testata kaupunkipyörän lainausta myös kännykälläsi. Lataa kännykkään ohjelma QR-koodin lukemista varten ja lue tämä koodi. Kyseinen koodi on esimerkki polkupyörään kiinnitettävästä tunnisteesta, jonka avulla pyörän voi lainata ja palauttaa.

Perustelut

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

pyörät.nyt <- function(){

	# 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!
	return(out)
}

huollot.nyt <- function() {

	dat <- opbase.data("Op_fi3857", subset = "Huollot")

	dat$Aika <- as.double(as.POSIXct(dat$Aika))

	temp <- as.data.frame(as.table(tapply(dat$Aika, dat[c("Huolto", "Pyöränro", "Aihe")], max)))
	temp <- temp[!is.na(temp$Freq) , ]
	
	huollettavat	<- temp[temp$Huolto == "Tarve" , ]
	huolletut		<- temp[temp$Huolto == "Korjaus" , ]
	
	temp2 <- merge(huollettavat, huolletut, all.x = TRUE, by = c("Pyöränro", "Aihe"))
	temp2$Freq.y[is.na(temp2$Freq.y)] <- 0
	temp2 <- temp2[temp2$Freq.x > temp2$Freq.y , ]
	temp2 <- merge(
		temp2, 
		dat[dat$Huolto == "Tarve" , c("Huoltonro", "Pyöränro", "Asiakasnro", "Aihe", "Muuaihe", "Ajokunto")], 
		by = c("Pyöränro", "Aihe")
	)

	out <- merge(pyörät.nyt(), temp2)
	return(out)
}

huollot.teline <- function(ajokunto = TRUE) {
	
	out <- huollot.nyt()

	out <- out[out$Ajokunto == ajokunto , ]

	if(nrow(out) == 0) {
		cat("Yhtään pyörää ei löydy.\n")
		stop("Keskeytyksen syy: yhtään pyörää ei löydy.\n")
	}

	out <- as.data.frame(as.table(tapply(
		paste(as.character(out$Pyörä), ": ", as.character(out$Aihe), " ", as.character(out$Muuaihe), ".", sep = ""), 
		out[c("Teline", "LA", "LO")], 
		function(x) paste(x, sep = "", collapse = " ")
	)))
	
	out <- out[!is.na(out$Freq) , ]
	out$LA <- as.numeric(levels(out$LA)[out$LA])
	out$LO <- as.numeric(levels(out$LO)[out$LO])

	return(out)
}

pyörät.ok <- function(ajokunto = TRUE) {

	temp <- pyörät.nyt()
	temp2 <- huollot.nyt()
	out <- merge(temp, unique(temp2[c("Pyöränro", "Ajokunto")]))
	out <- out[out$Ajokunto == ajokunto , ]

	if(nrow(out) == 0) {
		cat("Yhtään pyörää ei löydy.\n")
		stop("Keskeytyksen syy: yhtään pyörää ei löydy.\n")
	}

	return(out)
}

objects.store(pyörät.nyt, pyörät.ok, huollot.nyt, huollot.teline)

cat("Funktiot pyörät.nyt, pyörät.ok, huollot.nyt, huollot.teline tallennettu.\n")