Skip to content

Instantly share code, notes, and snippets.

@Akiyah
Last active December 25, 2015 10:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Akiyah/6964690 to your computer and use it in GitHub Desktop.
Save Akiyah/6964690 to your computer and use it in GitHub Desktop.
あるサービスのDAU(Daily Active Users)をHRForecastに登録するサンプル
# install.packages('httpRequest') # 未インストールの場合
require('httpRequest')
dau <- function(date) {
# 本当はデータベースなどから集計してDAUを出すが、ここではサンプルのため乱数にしている
value <- floor(runif(1) * 1000)
}
plot_dau <- function(date) {
value <- dau(date)
data <- paste0("number=", value, "&datetime=", date)
path <- "/api/team1/service1/dau" # グラフの名前
simplePostToHost("localhost", path, "", data, "5127") # HRForecastにPOSTする
}
plot_dau(Sys.Date()) # 今日の分
plot_dau(Sys.Date() - 1) # 昨日の分
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment