AlignAssign

Align the assignment operators (either <- or =) within a highlighted area.

Before:

a <- 1:5
bbb <- 6:10
c <- letters

After:

a   <- 1:5
bbb <- 6:10
c   <- letters

What

AlignAssign contains two addins whose purpose is to align all of either the <- (Align Assign) or = (Align Assign 2) assignment operators within a highlighted region. It does not “reflow” your code if the alignment breaks the page width. This addin also does not treat commented lines differently to uncommented lines. If there is either one of the assignment operators within a highlighted comment line, then it will either align that operator or align other operators to it.

Install

devtools::install_github("seasmith/AlignAssign")`

Examples

Align <-’s with Align Assign

When you highlight the following chunk of code (region) - whether you highlight the entirity or just a portion of the first and last lines - and then run the Align Assign addin…

# This is a commented line
# So is this
a <- 1:5
b <- 6:10
copy_a <- a
# More comments

…the result will look like this.

# This is a commented line
# So is this
a      <- 1:5
b      <- 6:10
copy_a <- a
# More comments

Align =’s with Align Assign 2

The above example also works for the = operator when using the other addin, Align Assign 2. Before…

# Perosnal information
list(surname = "Crichton",
     firstName = "John",
     address = NA,
     occupation = "fugitive")

…after.

# Perosnal information
list(surname    = "Crichton",
     firstName  = "John",
     address    = NA,
     occupation = "fugitive")

Behavior of commented-out assignment operators

Be mindful that highling a chunk of code which has assignment operators within commented lines, like the following, and running the Align Assign 2 addin…

# This is a commented line with an assignment operator <-
a <- 1:5
b <- 6:10
c <- 11:15
# There is an assignment operator <- here, too

…will result in something like this.

# This is a commented line with an assignment operator <-
a                                                      <- 1:5
b                                                      <- 6:10
c                                                      <- 11:15
# There is an assignment operator                      <- here, too

Not so smart aligner

There is also no special handling of assignment operators within a function. So, if you highlighted the entire chunk below and then ran the Align Assign addin…

var1 <- letters
var2 <- as.list(sample(1:26, 26))
names(var2) <- var1[unlist(var2)]
list.pos <- function(name, lst){
    matches <- sapply(name, function(x){
        matched <- which(names(lst) %in% x)

        if(length(matched) == 0) matched <- NA
        matched
    })
    return(matches)
}
positions <- list.pos(c("a", "bbb", "c"), var2)

…the result will look like this.

var1                                     <- letters
var2                                     <- as.list(sample(1:26, 26))
names(var2)                              <- var1[unlist(var2)]
list.pos                                 <- function(name, lst){
    matches                              <- sapply(name, function(x){
        matched                          <- which(names(lst) %in% x)

        if(length(matched) == 0) matched <- NA
        matched
    })
    return(matches)
}
positions                                <- list.pos(c("a", "bbb", "c"), var2)