R/aaa_utils.R

Defines functions on_cran gfilename convert_to_matlab is.matlabbatch is.unnumbered_list is.cell_list is.cell is.colvec is.rowvec

is.rowvec = function(x) {
  inherits(x, "rowvec")
}

is.colvec = function(x) {
  inherits(x, "colvec")
}

is.cell = function(x) {
  inherits(x, "cell")
}
is.cell_list = function(x) {
  inherits(x, "cell_list")
}  

is.unnumbered_list = function(x) {
  inherits(x, "unnumbered_list")
}

is.matlabbatch = function(x) {
  inherits(x, "matlabbatch")
}  

# matlab


#' @importFrom matlabr rvec_to_matlab rvec_to_matlabcell 
#' @importFrom matlabr rvec_to_matlabclist rmat_to_matlab_mat
convert_to_matlab = function(x, subtractor = 1, ...) {
  if (is.rowvec(x)) {
    x = matlabr::rvec_to_matlab(x, row = TRUE, ...)
    return(x)
  }
  if (is.colvec(x)) {
    x = matlabr::rvec_to_matlab(x, row = FALSE, ...)
    return(x)
  }    
  
  if (is.unnumbered_list(x)) {
    nn = attributes(x)$mat_name
    x = lapply(x, unlist)
    names(x) = paste0(nn, "(", seq_along(x), ")")
    x = unlist(x)
    return(x)
  }      
  if (is.cell(x)) {
    x = matlabr::rvec_to_matlabcell(x = x, ...)
    return(x)
  }
  if (is.cell_list(x)) {
    x = matlabr::rvec_to_matlabclist(x = x, ...)
    return(x)
  } 

  if (is.logical(x)) {
    x = as.integer(x)
    return(x)
  }      
  if (is.factor(x)) {
    x = as.numeric(x) - subtractor
    return(x)
  }    
  if (is.character(x)) {
    x = paste0("'", x, "'")
    return(x)
  }  
  if (is.matrix(x)) {
    x = matlabr::rmat_to_matlab_mat(x = x, ...)
    return(x)
  }     
  if (is.matlabbatch(x)) {
    x = unlist(x)
    x = mapply(function(x, y) {
      paste0(x, " = ", y)
    }, names(x), x)
    names(x) = NULL
    return(x)
  }       
  return(x)
}

gfilename = function(x) {
  if (.Platform$OS.type == "windows") {
    nx = names(x)
    x = gsub("\\\\", "/", x)
    # x = gsub("\\", "/", x)
    names(x) = nx
  } 
  return(x)
}

on_cran <- function() {
  !identical(Sys.getenv("NOT_CRAN"), "true")
}
neuroconductor-devel/spm12r documentation built on May 23, 2019, 4:04 p.m.