Käyttäjä:Vilma/työaika

Käyttäjä:Vilma/työaika(d)

Obs	Aikalaji	Projekti	Alaprojekti	alku	loppu	kuvaus
1	Työaika	LVM		2014-06-09 12:00	2014-06-09 14:00	Skype-kokous
2	Työaika	LVM		2014-06-13 09:00	2014-06-13 11:30
3	Työaika	LVM		2014-06-16 12:00	2014-06-16 12:30

Kohdistamon kirjaukset

<rcode graphics=0 live=1 variables=' name:alku|Seurantajakson alku|type:date|default:2014-02-06| name:loppu|Seurantajakson loppu|type:date '> library(OpasnetUtils) library(ggplot2) objects.latest("Op_en6007", code_name = "answer") # We need timing

dat <- opbase.data("Op_fi3948", subset = 'Kirjaukset') poistot <- opbase.data("Op_fi3948", subset = 'Kirjauspoistot') dat <- dat[-as.numeric(as.character(poistot$Kirjausnro)) , colnames(dat) != "Result"]

1. tuntikirjaus <- opbase.data("Op_fi3950.tuntikirjaus")
2. työtehtävät <- opbase.data("Op_fi3950.tyotehtavat")
3. työsuunnitelma <- opbase.data("Op_fi3950.tyosuunnitelma")
4. tuntikirjaus <- tuntikirjaus[colnames(tuntikirjaus) != "Obs"]
5. työtehtävät <- työtehtävät[colnames(työtehtävät) != "Obs"]
6. työsuunnitelma <- työsuunnitelma[colnames(työsuunnitelma) != "Obs"]
7. colnames(työsuunnitelma)[colnames(työsuunnitelma) == "Result"] <- "Loppu"
8. työsuunnitelma <- data.frame(työsuunnitelma, Henkilö = "Jouni")

dat <- dat[dat$Henkilö == "Vilma" , ]