Side by Side Diff: R/download_devbuilds_list.R
Issue 29336289:
devbuild
Patch Set:
Created Feb. 12, 2016, 1:53 p.m.
| Left: | ||
| Right: |
Use n/p to move between diff chunks;
N/P to move between comments.
« no previous file with comments
|
« R/download_default_easylist_subscriptions.R ('k')
|
R/filter_devbuilds.R » ('j')
|
no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Hide Comments ('s')
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Hide Comments ('s')
| OLD | NEW |
|---|---|
| (Empty) | |
| 1 #' Downloads the current list of published adblockplus devbuilds. | |
| 2 #' @description | |
| 3 #' Output data.table: datetime, version, addonName | |
| 4 #' @keywords download devbuilds | |
| 5 #' @export | |
| 6 | |
| 7 download_devbuilds_list <- function(){ | |
| 8 path_script <- system.file("download_devbuilds_list.sh", | |
| 9 package = "bbbi", mustWork = TRUE) | |
| 10 devbuilds <- system(path_script, intern = TRUE, ignore.stderr = TRUE) | |
| 11 devbuilds <- data.frame(do.call(rbind, strsplit(devbuilds, ","))) | |
| 12 names(devbuilds) <- c("datetime", "addonVersion", "addonName") | |
| 13 dateformat <- "%Y-%m-%d %H:%M" | |
| 14 devbuilds$datetime <- as.POSIXct(devbuilds$datetime, format = dateformat, tz = "UTC") | |
| 15 devbuilds$date <- as.Date(devbuilds$datetime) | |
| 16 devbuilds <- devbuilds[order(devbuilds$datetime),] | |
| 17 row.names(devbuilds) <- 1:nrow(devbuilds) | |
| 18 return(devbuilds) | |
| 19 } | |
| OLD | NEW |
« no previous file with comments
|
« R/download_default_easylist_subscriptions.R ('k')
|
R/filter_devbuilds.R » ('j')
|
no next file with comments »
