Использование переменных среды в R

Я пытаюсь понять код reducer.R, взятый со следующего веб-сайта.

http://www.thecloudavenue.com/2013/10/mapreduce-programming-in-r-using-hadoop.html

Этот код используется для потоковой передачи Hadoop с использованием R.

Я дал код ниже:

    #! /usr/bin/env Rscript
    # reducer.R - Wordcount program in R
    # script for Reducer (R-Hadoop integration)

    trimWhiteSpace <- function(line) gsub("(^ +)|( +$)", "", line)

    splitLine <- function(line) {
      val <- unlist(strsplit(line, "\t"))
      list(word = val[1], count = as.integer(val[2]))
    }

    env <- new.env(hash = TRUE)
    con <- file("stdin", open = "r")

    while (length(line <- readLines(con, n = 1, warn = FALSE)) > 0) {
     line <- trimWhiteSpace(line)
     split <- splitLine(line)
     word <- split$word
     count <- split$count

    if (exists(word, envir = env, inherits = FALSE)) {
      oldcount <- get(word, envir = env)
      assign(word, oldcount + count, envir = env)
      }
      else assign(word, count, envir = env)
      }
    close(con)

    for (w in ls(env, all = TRUE))
      cat(w, "\t", get(w, envir = env), "\n", sep = "")

Может ли кто-нибудь объяснить значение использования следующей команды new.env и последующего использования env в коде:

    env <- new.env(hash = TRUE)

Почему это необходимо? Что произойдет, если это не будет включено в код?

Обновление от 05.06.2014

Я попытался написать другую версию этого кода без определения новой среды и дал код следующим образом:

    #! /usr/bin/env Rscript
    current_word <- ""
    current_count <- 0
    word <- ""

    con <- file("stdin", open = "r")

    while (length(line <- readLines(con, n = 1, warn = FALSE)) > 0) 
    {
      line1 <- gsub("(^ +)|( +$)", "", line)
      word <- unlist(strsplit(line1, "[[:space:]]+"))[[1]]
      count <- as.numeric(unlist(strsplit(line1, "[[:space:]]+"))[[2]])

      if (current_word == word) {
        current_count = current_count + count
      } else 
      {
    if(current_word != "")     
        {
           cat(current_word,'\t', current_count,'\n')
        }    
        current_count = count
        current_word = word
      }
    }

    if (current_word == word) 
    {
      cat(current_word,'\t', current_count,'\n')
    }

    close(con)

Этот код дает тот же результат, что и код с новой определенной средой.

Вопрос. Дает ли использование новой среды какие-либо преимущества с точки зрения Hadoop? Есть ли причина использовать его в этом конкретном случае?

Спасибо.