R/newQuantity.R

In egonw/rqudt: Code to convert quantities, using the QUDT ontology

newQuantity <- function(value=NA, unit=NA) {
  if (is.na(value) | is.na(unit))
    stop("You must provide a value and a unit")

  unitList <- findUnits(unit)
  unitObj <- unitList$get(as.integer(0))

  quantity <- .jnew(
   "com/github/jqudt/Quantity", as.double(value), unitObj
  )

  quantity
}