Ero sivun ”Kohdistamo” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Vastaus: koronakide lisätty)
 
(13 välissä olevaa versiota 2 käyttäjän tekeminä ei näytetä)
Rivi 15: Rivi 15:
<rcode name="answer" embed=1 showcode=0 label="Tallenna kirjaus" variables="
<rcode name="answer" embed=1 showcode=0 label="Tallenna kirjaus" variables="
name:työ|description:Minkä työn haluat kirjata?|type:selection|options:
name:työ|description:Minkä työn haluat kirjata?|type:selection|options:
  'Koronakide';Koronakide;
  'Ilmastovahti';Ilmastovahti;
   'Näkemysverkko';Näkemysverkko;
   'Näkemysverkko';Näkemysverkko;
   'Opetus';Opetus;
   'Opetus';Opetus;
   'Muu kansalaisopisto';Muu kansalaisopisto;
   'Muu kansalaisopisto';Muu kansalaisopisto;
  'Palkallinen vapaa';Palkallinen vapaa;
  'Palkaton vapaa';Palkaton vapaa;
   'Maahanmuutto';Maahanmuutto;
   'Maahanmuutto';Maahanmuutto;
   'Yhtäköyttä';Yhtäköyttä;
   'Yhtäköyttä';Yhtäköyttä;
   'Vesiapina';Vesiapina;
   'Vesiapina';Vesiapina;
  'Vesiopas';Vesiopas;
   'Videoblogi';Videoblogi;
   'Videoblogi';Videoblogi;
   'Helsingin energiaratkaisu';Helsingin energiaratkaisu;
   'Helsingin energiaratkaisu';Helsingin energiaratkaisu;
Rivi 28: Rivi 33:
   'Ulos';Ulos;
   'Ulos';Ulos;
   'Muu';Muu
   'Muu';Muu
|default:'Näkemysverkko'|
|default:'Koronakide'|
category:Työjakson tiedot|
category:Työjakson tiedot|
name:jaksoko|description:Mitä haluat kirjata?|type:selection|options:
name:jaksoko|description:Mitä haluat kirjata?|type:selection|options:
Rivi 48: Rivi 53:
   lopputyo <- "Ulos"
   lopputyo <- "Ulos"
} else {
} else {
   alku <- as.numeric(Sys.time())
   alku <- as.numeric(as.POSIXct(date(), format="%c"))
   loppu <- NULL
   loppu <- NULL
   lopputyo <- NULL
   lopputyo <- NULL
Rivi 54: Rivi 59:


out <- data.frame(
out <- data.frame(
   Timestamp = Sys.time(),
   Timestamp = as.POSIXct(date(), format="%c"),
   Work = c(alkutyo, lopputyo),
   Work = c(alkutyo, lopputyo),
   Person = wiki_username,
   Person = wiki_username,
Rivi 76: Rivi 81:
name:projekti|description:Projekti|type:selection|options:
name:projekti|description:Projekti|type:selection|options:
'Kaikki';Kaikki;
'Kaikki';Kaikki;
'Näkemysverkko';Näkemysverkko:
'Näkemysverkko';Näkemysverkko;
'STM raportointi ja laskutus';STM raportointi ja laskutus;
'STM raportointi ja laskutus';STM raportointi ja laskutus;
'EU raportointi ja laskutus';EU raportointi ja laskutus;
'EU raportointi ja laskutus';EU raportointi ja laskutus;
Rivi 132: Rivi 137:


dat <- data.frame(
dat <- data.frame(
   Timestamp = Sys.time(),
   Timestamp = as.POSIXct(date(), format="%c"),
   User = wiki_username,
   User = wiki_username,
   Syy = syy,
   Syy = syy,
Rivi 150: Rivi 155:
* Katso ohjeita sivulta [[Kohdistamo/Ohje]]
* Katso ohjeita sivulta [[Kohdistamo/Ohje]]
* {{tuloslinkki}}
* {{tuloslinkki}}
<rcode label="Saldoseuranta" graphics=1 embed=1>
library(OpasnetUtils)
library(ggplot2)
objects.latest("Op_fi3948", code_name = "alusta") # kirjausajat
tekija <- "Varpu Vidgren"
projekti <- "Kaikki"
alku <- "2018-08-01"
loppu <- "2099-01-01"
kirjausajat <- EvalOutput(kirjausajat)
kirjausajat <- kirjausajat[kirjausajat$Work!="Ulos",]
cat("Tarkastellaan aikaväliä", alku, " - ", loppu, "\n")
durat <- kirjausajat
colnames(durat@output)[match(c("kirjausajatResult","Duration"),colnames(durat@output))] <- c("Time","kirjausajatResult")
durat <- unkeep(durat, "Timestamp", sources=TRUE)
durat$Time <- as.Date(as.POSIXct(durat$Time,origin="1970-01-01"))
dat <- seq.Date(min(durat$Time),to=max(durat$Time),by=1)
dat <- dat[!weekdays(dat, abbreviate = TRUE) %in% c("la","su","Sat","Sun")]
odote <- EvalOutput(Ovariable(
  "odote",
  data=data.frame(
    Work = "odote",
    Person = NA,
    Time= dat,
    Result = -7.35, # This applies only if every person has equal working time
    stringsAsFactors = FALSE
  )
))
tst <- combine(durat,odote, name="tst")
tst@output <- fillna(tst@output, "Person")
tmp <- oapply(tst, cols="Work",FUN=sum)
cat("Henkilöiden työaikasaldo", as.character(max(tmp$Time)),":\n")
oprint(oapply(tmp, "Person", FUN=sum)@output)
ggplot(tmp@output, aes(x=Time, y=cumsum(tstResult),colour=Person))+geom_line()+
  theme_gray(base_size=24)+
  labs(
    title="Työajan kumulatiivinen saldo",
    y="Työtuntisaldo (h)",
    x="Kalenteriaika"
  )
result(kirjausajat) <- as.character(as.POSIXct(result(kirjausajat), origin="1970-01-01 00:00:00"))
oprint(kirjausajat@output)
</rcode>


== Perustelut ==
== Perustelut ==
Rivi 193: Rivi 251:
      
      
     dat <- kirjaukset[-na.omit(result(kirjauspoistot)) , ]
     dat <- kirjaukset[-na.omit(result(kirjauspoistot)) , ]
     alku <- as.numeric(as.POSIXct(alku))
     alk <- as.numeric(as.POSIXct(alku))
     loppu <- as.numeric(as.POSIXct(loppu))
     lop <- as.numeric(as.POSIXct(loppu))
      
      
     #tuntikirjaus <- opbase.data("Op_fi3950.tuntikirjaus")
     #tuntikirjaus <- opbase.data("Op_fi3950.tuntikirjaus")
Rivi 206: Rivi 264:
      
      
     if(tekija!='Kaikki') {
     if(tekija!='Kaikki') {
       tekija <- gsub("\\s", "", unlist(strsplit(tekija, ",")))
       tekija <- trimws(unlist(strsplit(tekija, ",")))
       dat <- dat[dat$Person %in% tekija , ]
       dat <- dat[dat$Person %in% tekija , ]
     }
     }
Rivi 217: Rivi 275:
     if(projekti!="Kaikki") dat <- dat[dat$Work == projekti , ]  
     if(projekti!="Kaikki") dat <- dat[dat$Work == projekti , ]  
     res <- result(dat)
     res <- result(dat)
     dat <- dat[res >= alku & res <= loppu +3600*24 , ]
     dat <- dat[res >= alk & res <= lop +3600*24 , ]
     if(nrow(dat@output)==0) {
     if(nrow(dat@output)==0) {
       warning("No rows to display\n")
       warning("No rows to display\n")
Rivi 224: Rivi 282:
     tyoaika <- aggregate(dat@output["Duration"], dat@output[c("Person","Work")], sum)
     tyoaika <- aggregate(dat@output["Duration"], dat@output[c("Person","Work")], sum)
     tyoaika <- tyoaika[tyoaika$Work!="Ulos",]
     tyoaika <- tyoaika[tyoaika$Work!="Ulos",]
 
   
     cat("Valitulla välillä tehty työaika yhteensä ", sum(tyoaika$Duration), " tuntia.\n")
     cat("Valitulla välillä tehty työaika yhteensä ", sum(tyoaika$Duration), " tuntia.\n")
     oprint(tyoaika)
     oprint(tyoaika)

Nykyinen versio 16. maaliskuuta 2022 kello 08.28


Kysymys

Miten kirjataan työaikaa helpolla tavalla?

Vastaus

Työaikaa kirjataan alla olevalla koodilla "Tallenna kirjaus". Tällöin tallentuu käyttäjän käyttäjätunnus, valittu projekti, aloitusaika (mahdollisesti lopetusaika jos se annetaan) sekä aikaleima. Kirjauksia voi tarkastella koodilla "Hae kirjauksia". Hakua voi rajata käyttäjän, projektin ja aikakriteerin perusteella.

Kirjauksissa on kaksi mahdollista aikatulkintaa. Tällä hetkellä käytetään ensimmäistä, mutta aiemmin oli käytössä jäljempi. Esimerkkinä voidaan ajatella kirjauksia, jotka sama käyttäjä on tehnyt. Ensimmäinen kirjaus on projektia A klo 1-4, toinen on projektia B klo 2-3.

  1. Käyttäjäkohtaiset kirjaukset tulkitaan tapahtumajärjestyksessä ja loppuaika tarkoittaa kaiken työn lopettamista. Tässä tapauksessa tulkinta on, että klo 1 alkoi projekti A, klo 2 se vaihtui projektiin B, klo 3 työnteko lopetettiin ja klo 4 työnteko lopetettiin (eli kello neljän kirjaus ei vaikuta mihinkään koska tila ei muutu). Tämä tulkinta on suoraviivaisempi ja mahdollistaa työn alku- ja loppuaikojen kirjaamisen toisistaan riippumatta.
  2. Käyttäjäkohtaiset kirjaukset tulkitaan kirjausjärjestyksessä. Toinen kirjaus siis pyyhkii yli ensimmäisen kirjauksen siltä osin kuin ne ovat päällekkäisiä. Tässä tapauksessa tulkinta on, että klo 1 alkoi projekti A, klo 2 se vaihtui projektiin B, klo 3 palattiin projektiin A ja työnteko lopetettiin klo 4. Tässä tulkinnassa on aina kirjattava alku- ja loppuajat pareina, mikä voi olla hankalaa. Funktiossa makeTimeline käytetään mergeä yhdistämään oikeat aikapisteparit toisiinsa. --# Tästä voisi tehdä päivitetyn version. Alla oleva Aikakoneen makeTimeline ei liene uusin. Toinen versio löytyy sivulta op_en:OpasnetUtils/Drafts#Miscellaneous functions. --Jouni Tuomisto (keskustelu) 10. heinäkuuta 2018 kello 12.44 (UTC)

Työjakson tiedot

Minkä työn haluat kirjata?:

Mitä haluat kirjata?:

Listalta puuttuva työ

Muu työ, mikä?:

Jakson ajoitus

Milloin aloitit?:
..-::

Mihin asti tämä työ jatkui?:
..-::

+ Näytä koodi


Hae kirjauksia

Seurantajakson alku:
..

Seurantajakson loppu:
..

Työntekijän käyttäjätunnus:

Projekti:

+ Näytä koodi

Kirjauksen poisto

Poistettavan kirjauksen rivinumero (Obs):

Poiston syy:

+ Näytä koodi


+ Näytä koodi

Perustelut

Laskenta

+ Näytä koodi

+ Näytä koodi

Aikakoneen laskenta

Tässä on siistitty ja dokumentoitu versio Aikakoneen makeTimeline-funktiosta, joka ottaa sisäänsä työajan alku- ja loppuaikoja ja tuottaa aikajanan. Funktion olennainen lisäarvo on siinä, että sille voi antaa päällekkäisiä ajanjaksoja, ja se korvaa vanhemmat kirjaukset (eli ylempänä taulukossa olevat) uudemmilla, jos niiissä on päällekkäisyyksiä. Toinen lisäarvo on se, että se automaattisesti käsittelee jokaisen henkilön ajankäyttöä erikseen, mutta muiden indeksien suhteen se vain periyttää tiedot aikajanalle. Muita indeksejä voi siis käyttää tarpeen mukaan.

+ Näytä koodi