get_and_assign.R

# get all variable names
varnames <- paste0("Var", 1:50)

# get all variable values
varvalues <- sapply(varnames, function(x) get(x, envir = .GlobalEnv))

# calculate new variable values
varvalues_new <- varvalues * 1:50

# assign to the original variables
for(i in 1:50) {
  assign(x = varnames[i],
         value = varvalues_new[i],
         envir = .GlobalEnv)
}

# lapply version:
# 
# lapply(1:50, function(i) assign(x = varnames[i],
#                                 value = varvalues_new[i],
#                                 envir = .GlobalEnv))

# purrr version:
# 
# purrr::walk2(varnames, varvalues_new,
#              ~assign(x = .x, value = .y, envir = .GlobalEnv))