max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Minor improvements to translator function

Browse source
This commit is contained in:
Waldir Leoncio 2020-11-19 07:49:30 +01:00
parent 4d2a00403b
commit 97af90d05d
2 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/matlab2r.R
View file

@ -4,6 +4,7 @@
#' @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
#' @importFrom utils write.table
#' @export
matlab2r <- function(filename, saveOutput = FALSE) {
# Verification
@ -21,7 +22,7 @@ matlab2r <- function(filename, saveOutput = FALSE) {
txt <- gsub("for (.+)=(.+)", "for (\\1 in \\2) {", txt)
txt <- gsub("end", "}", txt)
txt <- gsub("(.),(\\S)", "\\1, \\2", txt)
# TODO: replace forms like (:,:) with [, ]
# TODO: replace forms like (:,:) with [, ] if they come before <-
# TODO: add argument to skip some of these rules
txt <- gsub("if (.+)", "if (\\1) {", txt) # FIXME: paste comments after {
txt <- gsub("else$", "} else {", txt)