38 lines
1.1 KiB
R
38 lines
1.1 KiB
R
#' @title Convert Matlab function to R
|
|
#' @description Performs basic syntax conversion from Matlab to R
|
|
#' @param filename name of the file
|
|
#' @param saveOutput if `TRUE`, `filename` is overwritten. Defaults to `FALSE`
|
|
#' @return text converted to R, printed to screen or replacing input file
|
|
#' @author Waldir Leoncio
|
|
#' @export
|
|
matlab2r <- function(filename, saveOutput = FALSE) {
|
|
# Verification
|
|
if (!file.exists(filename)) stop("File not found")
|
|
# Reading file into R
|
|
txt <- readLines(filename)
|
|
# Replacing text
|
|
txt <- gsub(
|
|
pattern = "function (.+)\\s*=\\s*(.+)\\((.+)\\)",
|
|
replacement = "\\2 <- function(\\3) { return(\\1)",
|
|
x = txt
|
|
)
|
|
txt <- gsub(";", "", txt)
|
|
txt <- gsub("for (.+)=(.+)", "for (\\1 in \\2) {", txt)
|
|
txt <- gsub("end", "}", txt)
|
|
# TODO: replace forms like (:,:) with [, ]
|
|
# TODO: reformat if statements
|
|
# Returning converted code
|
|
if (!saveOutput) {
|
|
return(cat(txt, sep="\n"))
|
|
} else {
|
|
return(
|
|
write.table(
|
|
x = txt,
|
|
file = filename,
|
|
quote = FALSE,
|
|
row.names = FALSE,
|
|
col.names = FALSE
|
|
)
|
|
)
|
|
}
|
|
}
|