R/BETS.save.spss.R

In pedrocostaferreira/BETS: Brazilian Economic Time Series

#' @title Export a time series to SPSS
#' 
#' @description Writes a time series to a .spss (SPSS) file.
#' 
#' @param code An \code{integer}. The unique identifier of the series within the BETS database. 
#' @param data A \code{data.frame} or a \code{ts}. Contains the data to be written. If \code{data} is supplied, the BETS database will not be searched. 
#' @param file.name A \code{character}. The name of the output file. The default is 'series.spss'.
#' 
#' @examples 
#' 
#' #Exchange rate - Free - United States dollar (purchase)
#'  #us.brl <- BETS.get(3691)
#'  #requires(seasonal)
#'  #us.brl.seasonally_adjusted <- seas(us.brl)
#'  #BETS.save.spss(data = us.brl.seasonally_adjusted,file.name="us.brl.seasonally_adjusted")
#'    # Or
#'  #BETS.save.spss(code=3691,file.name="us.brl")
#' 
#' @importFrom foreign write.foreign
#' @export 


BETS.save.spss=function(code = NULL, data = NULL, file.name="series"){
  
  ret = BETS.save(code, data, file.name, "spss")
  
  if(class(ret) == "list"){
    write.foreign(ret$data, datafile = ret$file, codefile = tempfile(), package="SPSS")
  }

}