## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
#  install.packages("devtools")
#  devtools::install_github("ropensci/fastMatMR")

## -----------------------------------------------------------------------------
library(fastMatMR)

## -----------------------------------------------------------------------------
vec <- c(1, 2, 3)
temp_file_vec <- tempfile(fileext = ".mtx")
write_fmm(vec, temp_file_vec)

## -----------------------------------------------------------------------------
mat <- matrix(c(1, 2, 3, 4), nrow = 2)
temp_file_mat <- tempfile(fileext = ".mtx")
write_fmm(mat, temp_file_mat)

## -----------------------------------------------------------------------------
sp_mat <- Matrix::sparseMatrix(i = c(1, 3), j = c(2, 4), x = 7:8)
temp_file_sp_mat <- tempfile(fileext = ".mtx")
write_fmm(sp_mat, temp_file_sp_mat)

## -----------------------------------------------------------------------------
vec <- c(1, 2, 3.32, 225.61)
temp_file_vec_r <- tempfile(fileext = ".mtx")
vec_to_fmm(vec, temp_file_vec_r)
fmm_to_vec(temp_file_vec_r)

## ----eval=FALSE---------------------------------------------------------------
#  spmat <- Matrix::Matrix(c(1, 0, 3, NA), nrow = 2, sparse = TRUE)
#  temp_file_sp_na <- tempfile(fileext = ".mtx")
#  Matrix::writeMM(spmat, temp_file_sp_na)
#  Matrix::readMM(temp_file_sp_na)
#  ## NULL
#  ## 2 x 2 sparse Matrix of class "dgTMatrix"
#  ## [1,] 1  3e+00
#  ## [2,] . 1e+308