Ero sivun ”Käyttäjä:Vilma/työaika” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Ei muokkausyhteenvetoa
pEi muokkausyhteenvetoa
 
(Yhtä välissä olevaa versiota samalta käyttäjältä ei näytetä)
Rivi 1: Rivi 1:
<t2b index="Aikalaji,Projekti,Alaprojekti,Havainto" Locations="alku,loppu,kuvaus" unit="d">
<t2b index="Aikalaji,Projekti,Alaprojekti,Havainto" Locations="alku,loppu,kuvaus" unit="d">
Työaika|LVM||2014-06-09 12:00|2014-06-09 14:00|Skype-kokous
Työaika|LVM||2014-06-09 12:00|2014-06-09 14:00|Viikkopalaveri Skype
Työaika|LVM||2014-06-13 09:00|2014-06-13 11:30|
Työaika|LVM||2014-06-13 09:00|2014-06-13 11:30|
Työaika|LVM||2014-06-16 12:00|2014-06-16 12:30|
Työaika|LVM||2014-06-16 12:00|2014-06-16 12:30|
Työaika|ROKO||2014-06-30 12:00|2014-06-30 13:30|Viikkopalaveri Skype
Työaika|ROKO||2014-07-02 10:00|2014-07-02 11:30|Karlsson artikkeli, opasnet opiskelu
Työaika|ROKO||2014-07-14 12:00|2014-07-14 13:00|Viikkopalaveri Skype
Työaika|ROKO||2014-07-21 12:00|2014-07-21 12:45|Viikkopalaveri Skype
Työaika|ROKO||2014-08-04 12:00|2014-08-04 12:45|Viikkopalaveri Skype
</t2b>
</t2b>
== 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"]
#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ö == "Vilma" , ]

Nykyinen versio 4. elokuuta 2014 kello 10.01

Käyttäjä:Vilma/työaika(d)
ObsAikalajiProjektiAlaprojektialkuloppukuvaus
1TyöaikaLVM2014-06-09 12:002014-06-09 14:00Viikkopalaveri Skype
2TyöaikaLVM2014-06-13 09:002014-06-13 11:30
3TyöaikaLVM2014-06-16 12:002014-06-16 12:30
4TyöaikaROKO2014-06-30 12:002014-06-30 13:30Viikkopalaveri Skype
5TyöaikaROKO2014-07-02 10:002014-07-02 11:30Karlsson artikkeli, opasnet opiskelu
6TyöaikaROKO2014-07-14 12:002014-07-14 13:00Viikkopalaveri Skype
7TyöaikaROKO2014-07-21 12:002014-07-21 12:45Viikkopalaveri Skype
8TyöaikaROKO2014-08-04 12:002014-08-04 12:45Viikkopalaveri Skype
Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Käyttäjä:Vilma/työaika&oldid=25158”