source("~rsaporta/git/misc/rscripts/utilsRS.r") .us() fresh() science_error <- try(setScience("Spotify_Streams_Per_Top_Artist", create=FALSE, subl=FALSE, load=FALSE), silent=TRUE) if (isErr(science_error)) { projName <- "Spotify_Streams_Per_Top_Artist" dataDir <- "~rsaporta/git/orch/data/Spotify_Streams_Per_Top_Artist" srcDir <- "~rsaporta/git/orch/src/Spotify_Streams_Per_Top_Artist" outDir <- "~rsaporta/git/orch/out/Spotify_Streams_Per_Top_Artist" } if (!exists("DT.nms")) loadFromJesus(file="~rsaporta/git/orch/data/Spotify_Streams_Per_Top_Artist/DT.nms+with raw data-20150113_1051-5310x5.RDS") { stopifnot(require(rjson)) times_info <- "Local_Box" times_info <- "Rbox_original" times_info <- "Rbox_new" times <- list() i <- 0 for (iter in 1:5) { suppressWarnings(rm(errors)) message("Iteration # ", iter) i <- i + 1 times[[i]] <- list() times[[i]][["Info"]] <- times_info times[[i]][["Start"]] <- now() tracks.flat <- unlist(DT.nms[date != Sys.Date() & substr(ret_json, 1, 27) != "\n