Ero sivun ”Kohdistamo” versioiden välillä

Versio 29. kesäkuuta 2018 kello 16.41

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi3948
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3948}}

Kirjaukset

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 - Piilota koodi

library(OpasnetUtils)

alkutyo <- ifelse(työ == 'Muu', muutyö, työ)
if(jaksoko) {
  alku <- as.numeric(alku)
  loppu <- as.numeric(loppu)
  lopputyo <- "Ulos"
} else {
  alku <- as.numeric(Sys.time())
  loppu <- NULL
  lopputyo <- NULL
}

out <- data.frame(
  Timestamp = Sys.time(),
  Work = c(alkutyo, lopputyo),
  Person = wiki_username,
  Result = c(alku, loppu)
)

opbase.upload(input = out, ident = "Op_fi3948", name = "Kohdistamo", subset = "Kirjaukset2", 
      obj_type = "variable", act_type = "append", language = "fin", who = wiki_username)

cat("Kirjaus onnistui. Nämä tiedot tallennettiin.\n")	
out$Result <- as.character(as.POSIXct(out$Result, origin="1970-01-01 00:00:00"))
oprint(out)

Hae kirjauksia

Seurantajakson alku:
..

Seurantajakson loppu:
..

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

Projekti:

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)
#library(ggplot2)
objects.latest("Op_fi3948", code_name = "alusta") # kirjausajat

kirjausajat <- EvalOutput(kirjausajat)
result(kirjausajat) <- as.character(as.POSIXct(result(kirjausajat), origin="1970-01-01 00:00:00"))
oprint(kirjausajat@output)

#ggplot(kirjausajat, 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()

+ Näytä koodi - Piilota koodi

  
library(OpasnetUtils)

nro <- gsub("\\s", "", unlist(strsplit(nro, ","))) # Pilkotaan pilkusta ja poistetaan alku- ja loppuvälilyönnit

dat <- data.frame(
  Timestamp = Sys.time(),
  User = wiki_username,
  Syy = syy,
  Result = nro
)

opbase.upload(input = dat, ident = "Op_fi3948", name = "Kohdistamo", subset = "Kirjauspoistot2", 
              act_type = "append", language = "fin", who = wiki_username
)

cat("Nämä kirjaukset poistettu onnistuneesti.\n")

oprint(dat)

Katso ohjeita sivulta Kohdistamo/Ohje
{{#opasnet_base_link:Op_fi3948}}

Alusta muuttujat

+ Näytä koodi - Piilota koodi

# Tämä on koodi Op_fi3948/alusta sivulla [[Kohdistamo]]

library(OpasnetUtils)

kirjaukset <- Ovariable(
  "kirjaukset",
  ddata = "Op_fi3948", subset="Kirjaukset2",getddata=FALSE
)

kirjauspoistot <- Ovariable(
  "kirjauspoistot",
  ddata="Op_fi3948", subset="Kirjauspoistot2", getddata=FALSE
)

kirjausajat <- Ovariable( 
  "kirjausajat",
  dependencies = data.frame(
    Name=c(
      "kirjaukset",
      "kirjauspoistot",
      "alku",
      "loppu",
      "tekija",
      "projekti"
    ),
    Ident=c(
      "Op_fi3948/alusta", # [[Kohdistamo]]
      "Op_fi3948/alusta", # [[Kohdistamo]]
      "Op_fi3948/oletukset", # [[Kohdistamo]]
      "Op_fi3948/oletukset", # [[Kohdistamo]]
      "Op_fi3948/oletukset", # [[Kohdistamo]]
      "Op_fi3948/oletukset" # [[Kohdistamo]]
    )
  ),
  formula = function(...) {
    
    dat <- kirjaukset[-na.omit(result(kirjauspoistot)) , ]
    alku <- as.numeric(as.POSIXct(alku))
    loppu <- as.numeric(as.POSIXct(loppu))
    
    #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")
    
    if(tekija!='Kaikki') {
      tekija <- gsub("\\s", "", unlist(strsplit(tekija, ",")))
      dat <- dat[dat$Person %in% tekija , ]
    }
    res <- result(dat)
    dat <- dat[order(dat$Person, res),]
    dat$Duration <- c(res[2:length(res)] - res[1:(length(res)-1)], 0) / 3600 
    # This removes the last entry from each person's duration because that is calculated wrongly.
    dat$Duration[c(match(unique(dat$Person),dat$Person)-1,length(dat$Person))] <- 0
    
    if(projekti!="Kaikki") dat <- dat[dat$Work == projekti , ] 
    res <- result(dat)
    dat <- dat[res >= alku & res <= loppu +3600*24 , ]
    if(nrow(dat@output)==0) {
      warning("No rows to display\n")
      return(dat)
    }
    tyoaika <- aggregate(dat@output["Duration"], dat@output[c("Person","Work")], sum)
    
    cat("Valitulla välillä tehty työaika yhteensä tunteina: \n")
    oprint(tyoaika[tyoaika$Work!="Ulos",])
    
    return(dat)
  }
)

objects.store(kirjaukset, kirjauspoistot, kirjausajat)
cat("Ovariablet kirjaukset, kirjauspoistot ja kirjausajat tallennettu.\n")

+ Näytä koodi - Piilota koodi

# Tämä on koodi Op_fi3948/oletukset sivulla [[Kohdistamo]]

library(OpasnetUtils)

alku <- "2018-06-01"
loppu <- "2099-01-01"
tekija <- "Kaikki"
projekti <- "Kaikki"

objects.store(alku, loppu, tekija, projekti)
cat("Vektorit alku, loppu, tekija ja projekti tallennettu.\n")

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.

----#: . Kehityskohteita: tarvitaanko koskaan tilannetta, jossa henkilösarakkeita onkin useita? Ei liene tärkeä, vaan tarvittaessa tämä toteutetaan luomalla tämmöinen sarake etukäteen. --Jouni Tuomisto (keskustelu) 15. heinäkuuta 2014 kello 08.28 (UTC) (type: truth; paradigms: science: comment)

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

makeTimeline2 <- function (
	events, # data.frame with time cols (start and end) and possibly other indices. One index may separate individuals.
	cols = c("Alku", "Loppu"), # Names of the start and end time columns
	personcol = NULL # Name of the column defining individuals, if any
) {

	if (!is.numeric(events[cols[1]])) { # If not numeric, assume a time format.
		for (m in 1:2) {
			events[[cols[m]]] <- as.POSIXct(events[[cols[m]]], tz = "Europe/Helsinki")
		}
	}
	if(is.null(personcol)) { # Make a temporary column for individuals
		personcol <- "Persontemp"
		events$Persontemp <- "Temp"
	}
	
	out <- data.frame()

	for(k in as.character((unique(events[[personcol]])))) {	# Look at each individual's events separately.
	
		event <- events[events[[personcol]] == k , colnames(events) != personcol]
		
		# timeline is a data.frame with all starts and ends as one timeline. 
		# Events down in the "event" data.frame replace previous events higher in "event", if they overlap.
		timeline <- data.frame(Time = min(event[[cols[1]]]), Eventrow = nrow(event) + 1) # First time point
		
		for (i in 1:nrow(event)) { # Go through each row and replace the time slot in timeline with the event.

			temp <- data.frame(
				Time = event[i , cols[1]],
				End = event[i , cols[2]],
				EventrowStart = i # Eventrows are used temporarily. In the end they are replaced with all indices in event.
			)
			
			# Add new time points to the timeline with the event row mentioned.
			timeline <- merge(timeline, temp[c("Time", "EventrowStart")], all = TRUE)
			colnames(temp) <- c("Remove", "Time", "EventrowEnd")
			timeline <- merge(timeline, temp[, c("Time", "EventrowEnd")], all = TRUE)

			# Go through intermediate time points and replace them with the new event.
			for (j in 2:nrow(timeline)) {
				if (is.na(timeline$Eventrow[j])) {
					timeline$Eventrow[j] <- timeline$Eventrow[j - 1]
				}
				if (is.na(timeline$EventrowStart[j]) & is.na(timeline$EventrowEnd[j])) {
					timeline$EventrowStart[j] <- timeline$EventrowStart[j - 1]
				}
			}
			# If the Eventrow is not a start, it must be an end.
			timeline$Eventrow <- ifelse(!is.na(timeline$EventrowStart), timeline$EventrowStart, timeline$Eventrow)
			timeline <- timeline[, c("Time", "Eventrow")]
		}
		
		# Add one row for the last timepoint.
		event <- rbind(event, rep(NA, ncol(event)))
		event[nrow(event) , cols[1]] <- max(timeline$Time)
		event$Eventrow <- row(event)[ , 1]

		# Bring back the other indices from event.
		timeline <- merge(timeline, event)
		timeline <- timeline[order(timeline$Time), ]
		timeline <- timeline[!colnames(timeline) %in% c("Eventrow", cols)]
		
		if(personcol != "Persontemp") timeline[[personcol]] <- k

		out <- rbind(out, timeline)
	
	}
	# Calculate the durations of each time slot in the timeline.
	out$Duration <- out$Time[c(2:nrow(out), NA)] - out$Time
	# Remove the last duration value from each individual's timeline.
	temp <- out[[personcol]]
	out$Duration <- ifelse(temp[c(2:length(temp), NA)] != temp | 1:length(temp) == length(temp), 0, out$Duration)

	return(out)
}

events <- data.frame(
	Projekti = c("LVM", "LVM", "Pneumokokki"),
	Alku = c("2014-07-14 12:00", "2014-07-15 13:00", "2014-07-14 12:30"), 
	Loppu = c("2014-07-14 14:00", "2014-07-15 14:15", "2014-07-15 14:00"),
	Person = c("Heikki", "Ville", "Ville")
)

dat <- makeTimeline2(events, cols = c("Alku", "Loppu"), personcol = "Person")

cat("Lähtödata\n")

oprint(events)

cat("Aikajana. Tapahtumien kestot ovat minuutteina.\n")

dat$Time <- format(dat$Time) # Convert times from POSIXct to character.

oprint(dat)

Ero sivun ”Kohdistamo” versioiden välillä

Versio 29. kesäkuuta 2018 kello 16.41

Kirjaukset

Alusta muuttujat

Aikakoneen laskenta

Navigointivalikko