R/utils.R

In kieranjmartin/viewenhance: Addin for viewing data

stableColumnLayout <- function(...) {
  dots <- list(...)
  n <- length(dots)
  width <- 12 / n
  class <- sprintf("col-xs-%s col-md-%s", width, width)
  fluidRow(
    lapply(dots, function(el) {
      div(class = class, el)
    })
  )
}

isErrorMessage <- function(object) {
  inherits(object, "error_message")
}

errorMessage <- function(type, message) {
  structure(
    list(type = type, message = message),
    class = "error_message"
  )
}

attr_getter <- function(column){
  attr(column, 'label')
}
nullreplacer <- function(value, newname){
  if(is.null(value)){
    newname
  }else{
    value
  }
}