あるサービスのDAU(Daily Active Users)をHRForecastに登録するサンプル

dau.r

# 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) # 昨日の分