R/conversion.R

In RcppPlanc: Parallel Low-Rank Approximation with Nonnegativity Constraints

.rcpp_mat_to_h5mat <- function(x, filename, dataPath, overwrite = TRUE, ...) {
  res <- c(filename, dataPath)
  # Set the dimensions of the dataset
  hdf5r.Extra::h5Write(
    x = x,
    file = filename,
    name = dataPath,
    overwrite = overwrite,
    transpose = FALSE,
    ...
  )
  return(res)
}

.rcpp_spmat_to_h5mat <- function(x, filename, dataPath, overwrite = TRUE, ...) {
  res <- c(filename, dataPath)
  x <- as.matrix(x)
  hdf5r.Extra::h5Write(
    x = x,
    file = filename,
    name = dataPath,
    overwrite = overwrite,
    transpose = FALSE,
    ...
  )
  return(res)
}

.rcpp_spmat_to_h5spmat <- function(x, filename, dataPath, overwrite = TRUE) {
  res <- c(
    filename,
    paste0(dataPath, "/data"),
    paste0(dataPath, "/indices"),
    paste0(dataPath, "/indptr")
  )
  hdf5r.Extra::h5Write(
    x = x,
    file = filename,
    name = dataPath,
    overwrite = overwrite,
    transpose = FALSE
  )
  return(res)
}