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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.