R/xport.character.R

In dpastoor/SASxport: Read and Write SAS XPORT Files

xport.character <- function( value, width )
  {
    if(length(value)!=1) stop("Only a single character value is permitted: '", value, "'")

    if(is.na(value)) value <- ""
    
    .C("fill_character_field",
       value = as.character(value),
       width = as.integer(width),
       PACKAGE="SASxport"
       )

    .Call("getRawBuffer", PACKAGE="SASxport")
  }