Käyttäjä:Pauli/Työaika

Käyttäjä:Pauli/Työaika(d)

Obs	Aikalaji	Projekti	Alaprojekti	alku	loppu	toistoväli	asti	kuvaus
1	Työaika	LVM		2014-06-02 11:55	2014-06-02 17:13
2	Työaika	ROKO		2014-06-03 10:14	2014-06-03 17:19
3	Työaika	ROKO		2014-06-04 11:08	2014-06-04 15:54
4	Työaika	ROKO		2014-06-05 12:03	2014-06-05 19:06
5	Työaika	ROKO		2014-06-06 10:39	2014-06-06 15:55
6	Työaika	ROKO		2014-06-09 11:35	2014-06-09 17:19
7	Työaika	ROKO		2014-06-10 13:08	2014-06-10 16:08
8	Työaika	LVM		2014-06-11 09:50	2014-06-11 17:47
9	Työaika	LVM		2014-06-12 11:29	2014-06-12 15:50
10	Työaika	LVM		2014-06-13 11:20	2014-06-13 16:56
11	Työaika	LVM		2014-06-14 12:09	2014-06-14 19:01
12	Työaika	LVM		2014-06-15 12:25	2014-06-15 17:17
13	Työaika	LVM		2014-06-16 06:16	2014-06-16 09:41
14	Työaika	LVM		2014-06-17 00:26	2014-06-17 01:47
15	Työaika	ROKO		2014-06-22 23:02	2014-06-23 00:57
16	Työaika	ROKO		2014-06-23 11:14	2014-06-23 19:44
17	Työaika	ROKO		2014-06-24 21:09	2014-06-25 01:16
18	Työaika	ROKO		2014-06-26 21:10	2014-06-27 00:36
19	Työaika	ROKO		2014-06-27 20:16	2014-06-27 23:28
20	Työaika	ROKO		2014-06-30 11:25	2014-06-30 19:15

Kohdistamon kirjaukset

alku: 12345678910111213141516171819202122232425262728293031.123456789101112.203420332032203120302029202820272026202520242023202220212020201920182017201620152014 loppu: 12345678910111213141516171819202122232425262728293031.123456789101112.203420332032203120302029202820272026202520242023202220212020201920182017201620152014 + Näytä koodi- Piilota koodi 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"] #tuntikirjaus <- opbase.data("Op_fi3950.tuntikirjaus") #työtehtävät <- opbase.data("Op_fi3950.tyotehtavat") #työsuunnitelma <- opbase.data("Op_fi3950.tyosuunnitelma") #tuntikirjaus <- tuntikirjaus[colnames(tuntikirjaus) != "Obs"] #työtehtävät <- työtehtävät[colnames(työtehtävät) != "Obs"] #työsuunnitelma <- työsuunnitelma[colnames(työsuunnitelma) != "Obs"] #colnames(työsuunnitelma)[colnames(työsuunnitelma) == "Result"] <- "Loppu" #työsuunnitelma <- data.frame(työsuunnitelma, Henkilö = "Jouni") dat <- dat[dat$Henkilö == "Pauli" , ] dat$Aika <- as.POSIXct(dat$Aika, tz = 'Europe/Helsinki') työ <- dat[dat$Työ != "Ulos" , ] työ <- as.numeric(työ$Aika) molemmat <- dat[dat$Loppu != "NA" , ] molemmat$Loppu <- as.POSIXct(molemmat$Loppu, tz = 'Europe/Helsinki') ulos <- dat[dat$Työ == "Ulos" , ] ulos <- c(as.numeric(ulos$Aika), as.numeric(molemmat$Loppu)) if( length(työ) > length(ulos)){ työaika <- (sum(ulos)-sum(työ)+tail(työ, n=1)) } else { työaika <- (sum(ulos)-sum(työ)) } työaika <- (round(työaika/3600, digits = 2)) print(paste0("Valitulla välillä tehty työaika on yhteensä ", työaika, " tuntia.")) dat <- dat[ dat$Aika >= as.POSIXct(alku, tz = 'Europe/Helsinki') & dat$Aika <= as.POSIXct(loppu, tz = 'Europe/Helsinki') +3600*24 , ] out <- dat[1:4] out$Aika <- as.character(out$Aika) oprint(out) #oprint(työsuunnitelma) #oprint(työtehtävät) #tuntikirjaus <- timing(tuntikirjaus, timecol = c("Aika", "Loppu"), weeks = 6) #timeline <- makeTimeline(tuntikirjaus) #timeline <- timeline[order(timeline$Time) , ] #timeline$Time[nrow(timeline)] <- max(timeline$Time, na.rm = TRUE) #for(i in 1:(nrow(timeline)-1)) {timeline$end[i] <- timeline$Time[i+1]} #timeline[nrow(timeline), "end"] <- NA #timeline$end <- as.POSIXct(timeline$end, origin = "1970-01-01") #ggplot(timeline, aes( # xmin = Time, # as.Date(as.character(Start)) # xmax = end, # as.Date(as.character(End)) + 2 # ymin = as.numeric(Henkilö), # ymax = as.numeric(Henkilö) + 1, # fill = Työ)) + geom_rect() #

Katso myös

• Kohdistamo/Ohje
• Kohdistamo