R/xport.numeric.R

Defines functions xport.numeric

xport.numeric <- function( value )
  {
    if(length(value)!=1) stop("Only a single numeric value is permitted.")
    if(is.na(value))
      return( xport.NA() )

    .C("fill_numeric_field",
       value = as.double(value),
       NAOK=TRUE,
       PACKAGE="SASxport"
       )

    .Call("getRawBuffer", PACKAGE="SASxport")
  }
warnes/SASxport documentation built on March 12, 2020, 7:27 p.m.