# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#' split character vector at "="
#'
#' @param val_s CharacterVector
#' @import Rcpp
#' @keywords internal
#' @noRd
boost_split <- function(val_s) {
.Call(`_readspss_boost_split`, val_s)
}
#' creates a factor inspired by an idea of Kevin Ushey in the Rcpp gallery
#' http://gallery.rcpp.org/articles/fast-factor-generation/
#'
#' @param x vector
#' @param y charactervector with labels
#' @import Rcpp
#' @keywords internal
#' @noRd
fast_factor <- function(x, y) {
.Call(`_readspss_fast_factor`, x, y)
}
#' Read encrypted SPSS file
#'
#' @param filePath The full systempath to the dta file you want to import.
#' @param debug print debug information
#' @param encStr encoding string
#' @param ownEnc encoding provided by localeToCharset
#' @param pass passkey required for encoding
#' @import Rcpp
#' @keywords internal
#' @noRd
readencrypted <- function(filePath, debug, encStr, ownEnc, pass) {
.Call(`_readspss_readencrypted`, filePath, debug, encStr, ownEnc, pass)
}
#' Reads the binary SPSS file
#'
#' @param filePath The full systempath to the dta file you want to import.
#' @param debug print debug information
#' @param encStr encoding string
#' @param override override bool
#' @import Rcpp
#' @keywords internal
#' @noRd
readpor <- function(filePath, debug, encStr, override) {
.Call(`_readspss_readpor`, filePath, debug, encStr, override)
}
#' Reads the binary SPSS file
#'
#' @param filePath The full systempath to the dta file you want to import.
#' @param debug print debug information
#' @param encStr encoding string
#' @param ownEnc encoding provided by localeToCharset
#' @import Rcpp
#' @keywords internal
#' @noRd
readsav <- function(filePath, debug, encStr, ownEnc) {
.Call(`_readspss_readsav`, filePath, debug, encStr, ownEnc)
}
#' writes the binary SPSS file
#'
#' @param filePath The full systempath to the dta file you want to import.
#' @param dat the data frame
#' @import Rcpp
#' @keywords internal
#' @noRd
writepor <- function(filePath, dat) {
invisible(.Call(`_readspss_writepor`, filePath, dat))
}
#' writes the binary SPSS file
#'
#' @param filePath The full systempath to the dta file you want to import.
#' @param dat the data frame
#' @param compress the file
#' @param debug print debug information
#' @param is_zsav write zsav
#' @import Rcpp
#' @keywords internal
#' @noRd
writesav <- function(filePath, dat, compress, debug, is_zsav) {
invisible(.Call(`_readspss_writesav`, filePath, dat, compress, debug, is_zsav))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.