Timetracker

This page is a knowledge crystal of subtype method. The page identifier is Op_en5388
Moderator:Jouni (see all)
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en5388}}

Timetracker is a method to follow up work time and time allocation.

Note! This code does not do anything. It can be called from the user's timetracking page, so that the input will be uploaded to the user's time sheet.

What project are you working on?: Administration Claih/Bioher Consultation Organising work Plantlibra Urgenche When did you start the work?: 12345678910111213141516171819202122232425262728293031.123456789101112.203420332032203120302029202820272026202520242023202220212020201920182017201620152014-000102030405060708091011121314151617181920212223:000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859:000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 When did you stop the work?: 12345678910111213141516171819202122232425262728293031.123456789101112.203420332032203120302029202820272026202520242023202220212020201920182017201620152014-000102030405060708091011121314151617181920212223:000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859:000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 Add description about the work: : I did not stop, I am continuing the work + Show code- Hide code library(OpasnetBaseUtils) library(xtable) timetracker <- function(page) { Obs <- max(op_baseGetData("opasnet_base", page)[, "obs"])+1 if(is.null(continuous)){continuous <- 0} data <- data.frame(obs = rep(Obs, 4), Parameter = c("Project", "Start", "End", "Description", "Continuous"), Result = c(project, start, end, description, continuous)) opbase.upload(dsn = "opasnet_base_write", input = data, ident = page, acttype = 5, who = wiki_username, unit = "time") cat("Thanks for your input\n") }