##  SCRAPE
    for (i in seq(from=LAST.i+1, to=LAST.i+5e3)) {
        X <- fromJSON(getURL(paste0("http://api.songkick.com/api/3.0/artists/", i, "/gigography.json?per_page=100&page=1&apikey=", apk)))
        skJSONraw[[as.character(i)]] <- if(X$resultsPage$totalEntries == 0) NA else (X) 
    }


        # ONE LINER
      OneLiner <- quote(
    for (i in seq(from=1, 20))
        skJSONraw[[as.character(i)]] <- if((X <- fromJSON(getURL(paste0("http://api.songkick.com/api/3.0/artists/", i, "/gigography.json?per_page=100&page=1&apikey=", apk))))$resultsPage$totalEntries == 0) NA else (X) 
      )

      Braced <- quote (
    for (i in seq(from=1, 20)) {
        X <- fromJSON(getURL(paste0("http://api.songkick.com/api/3.0/artists/", i, "/gigography.json?per_page=100&page=1&apikey=", apk)))
        skJSONraw[[as.character(i)]] <- if(X$resultsPage$totalEntries == 0) NA else (X) 
        })

      NoTest <- quote (
    for (i in seq(from=1, 20))
        skJSONraw[[as.character(i)]] <- fromJSON(getURL(paste0("http://api.songkick.com/api/3.0/artists/", i, "/gigography.json?per_page=100&page=1&apikey=", apk)))
        )

      microbenchmark(eval(OneLiner), eval(Braced), eval(NoTest))


        skJSONraw[[as.character(i)]]  <- fromJSON(getURL(
            paste0("http://api.songkick.com/api/3.0/artists/", i, "/gigography.json?per_page=100&page=1&apikey=", apk)
        ))


        skJSONraw <- list()

        > microbenchmark(eval(OneLiner), eval(Braced), eval(NoTest))
Unit: seconds
            expr      min       lq   median       uq      max
1   eval(Braced) 4.521897 4.621247 4.673388 4.768093 5.672069
2   eval(NoTest) 4.556956 4.642541 4.685312 4.776569 5.926269
3 eval(OneLiner) 4.511642 4.629483 4.688599 4.821480 6.032518