Nothing
#_______________________________________________________________________________
#---- time_entry class ----
#_______________________________________________________________________________
checkTimeEntry <- function(object) {
check1 <- expectOne(object, "time")
check2 <- expectPositiveValues(object, "time")
return(c(check1, check2))
}
setClass(
"time_entry",
representation(
time = "numeric"
),
contains="pmx_element",
validity=checkTimeEntry
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.