Ero sivun ”Käyttäjä:Jaakko/Työaika” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
 
(5 välissä olevaa versiota 2 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
<t2b index="Aikalaji,Projekti,Alaprojekti,Havainto" Locations="alku,loppu,toistoväli,asti,kuvaus" unit="d">
Työaika|ROKO||2014-06-02 11:55|2014-06-02 17:13|||
Työaika|ROKO||2014-06-03 10:14|2014-06-03 17:16|||
Työaika|ROKO||2014-06-04 10:54|2014-06-04 15:55|||
Työaika|ROKO||2014-06-05 10:41|2014-06-05 17:16|||
Työaika|LVM||2014-06-06 10:41|2014-06-06 15:55|||
Työaika|LVM||2014-06-09 11:35|2014-06-09 17:09|||
Työaika|LVM||2014-06-10 13:08|2014-06-10 16:08|||
Työaika|LVM||2014-06-11 09:50|2014-06-11 14:59|||
Työaika|LVM||2014-06-12 11:26|2014-06-12 15:10|||
Työaika|LVM||2014-06-13 13:39|2014-06-13 16:57|||
Työaika|LVM||2014-06-14 11:06|2014-06-14 11:51|||
Työaika|LVM||2014-06-14 15:04|2014-06-14 18:29|||
Työaika|LVM||2014-06-16 11:42|2014-06-16 18:45|||
Työaika|ROKO||2014-06-23 12:30|2014-06-17 15:00|||
</t2b>


== Kohdistamon kirjaukset ==
== Kohdistamon kirjaukset ==


<rcode graphics=0 live=1 variables='
:''Katso uudempi koodi sivulta [[Kohdistamo]].
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"]
 
#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ö == "Jaakko" , ]
 
dat$Aika <- as.POSIXct(dat$Aika, tz = 'Europe/Helsinki')
 
oletus <- dat[dat$Työ == "Oletus" , ]
oletus <- as.numeric(oletus$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(oletus) > length(ulos)){
työaika <- (sum(ulos)-sum(oletus)+tail(oletus, n=1))
} else {
työaika <- (sum(ulos)-sum(oletus))
}
 
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()
#
</rcode>


==Katso myös==
==Katso myös==

Nykyinen versio 3. tammikuuta 2015 kello 14.00

Ero sivun ”Käyttäjä:Jaakko/Työaika” versioiden välillä(d)
ObsAikalajiProjektiAlaprojektialkulopputoistoväliastikuvaus
1TyöaikaROKO2014-06-02 11:552014-06-02 17:13
2TyöaikaROKO2014-06-03 10:142014-06-03 17:16
3TyöaikaROKO2014-06-04 10:542014-06-04 15:55
4TyöaikaROKO2014-06-05 10:412014-06-05 17:16
5TyöaikaLVM2014-06-06 10:412014-06-06 15:55
6TyöaikaLVM2014-06-09 11:352014-06-09 17:09
7TyöaikaLVM2014-06-10 13:082014-06-10 16:08
8TyöaikaLVM2014-06-11 09:502014-06-11 14:59
9TyöaikaLVM2014-06-12 11:262014-06-12 15:10
10TyöaikaLVM2014-06-13 13:392014-06-13 16:57
11TyöaikaLVM2014-06-14 11:062014-06-14 11:51
12TyöaikaLVM2014-06-14 15:042014-06-14 18:29
13TyöaikaLVM2014-06-16 11:422014-06-16 18:45
14TyöaikaROKO2014-06-23 12:302014-06-17 15:00

Kohdistamon kirjaukset

Katso uudempi koodi sivulta Kohdistamo.

Katso myös

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Käyttäjä:Jaakko/Työaika&oldid=28053”