Ching-Chuan Chen's Blogger

R web service with opencpu

Posted on 2016-10-21 Edited on 2018-03-15 In R Disqus:

昨天後來再google發現opencpu這個更強大的套件

昨天太累就沒試了XD

我把前幾天弄得unnest函數在配上opencpu

就可以輕鬆做到unnested json的轉換了

R web service

Posted on 2016-10-21 Edited on 2018-03-15 In R Disqus:

R也可以開啟一個簡單的server

讓使用者透過PUT或是GET去query想要的資訊

以下是實作

使用RStudio的httpuv這個套件來做

unnest in R data.table

Posted on 2016-10-19 Edited on 2018-03-15 In R Disqus:

我們今天可能會遇到json parse出來的資料長下面這樣

library(data.table)
DT <- data.table(a = list(c(1:5), c(2:4), c(1:5)), b = 1:3, 
                 c = list(c(0:4), c(6:8), c(7:11)),  d = 2:4)
#            a b              c d
# 1: 1,2,3,4,5 1      0,1,2,3,4 2
# 2:     2,3,4 2          6,7,8 3
# 3: 1,2,3,4,5 3  7, 8, 9,10,11 4

那在這種情況下，可以直接選擇用tidyr的unnest去做，如下面所示

用R做Oracle跟mongodb的loader

Posted on 2016-10-15 Edited on 2018-03-15 In R Disqus:

這篇是用R做一個loader，把Oracle資料倒去Mongodb中

並且使用設定去將特定column改成list的方式做儲存

建置Mongodb Sharding Server

Posted on 2016-10-14 Edited on 2018-03-15 In mongodb Disqus:

業務擴展到找尋適合的NoSQL server了

這篇來試Mongodb sharding server

library多個套件，並自動安裝沒安裝的套件

Posted on 2016-10-04 Edited on 2018-03-15 In R Disqus:

廢話不多說，直接上code

library(pipeR)
library_mul <- function(..., lib.loc = NULL, quietly = FALSE, warn.conflicts = TRUE){
  pkgs <- as.list(substitute(list(...))) %>>% sapply(as.character) %>>% setdiff("list")
  if (any(!pkgs %in% installed.packages()))
    install.packeges(pkgs[!pkgs %in% installed.packages()])
  sapply(pkgs, library, character.only = TRUE, lib.loc = lib.loc, quietly = quietly) %>>% invisible
}
library_mul(httr, pipeR, data.table)