R/utils.r

Defines functions to.datetime set.list fill.defaults colored.html

colored.html = function(txt, color="#cc0000") {
  if (is.null(color)) return(txt)
  paste0("<font color='",color,"'>",txt,"</font>")
}

fill.defaults = function(li, def.li) {
  restore.point("fill.defaults")
  if (is.null(li)) li = list()
  all.names = unique(c(names(def.li),names(li)))
  missing.names = setdiff(names(def.li),names(li))
  li[missing.names] = def.li[missing.names]
  li[all.names]
}

nlist=function (...)
{
    li = list(...)
    li.names = names(li)
    names = unlist(as.list(match.call())[-1])
    if (!is.null(li.names)) {
        no.names = li.names == ""
        names(li)[no.names] = names[no.names]
    }
    else {
        names(li) = names
    }
    li
}

set.list = function(li, new) {
  li[names(new)] = new
  li
}

to.datetime = function(x, origin="1970-01-01") {
  as.POSIXct(x)
}
skranz/shinyEventsLogin documentation built on May 20, 2023, 9:54 a.m.