read_jma: read csv data from jma web site

In whatalnk/readjma: Read climate data from Japan Meteorological Agency web site

Description

read csv data from jma web site

Usage

read_jma(from, to, phpsessid, wait = 30)

Arguments

from	Date
to	Date
phpsessid	php session id obtained by 'get_phpsessionid()'
wait	wait for given time after POST

Value

list of csv data (character), each csv can be processed with 'readr::read_csv()'

Examples

library("lubridate")
library("readr")
library("purrr")
library("dplyr")

phpsessid <- get_phpsessionid()

# Site: Fukuchiyama, Kyoto
# Interval: from 2018-01-01 to 2018-12-31
# Data: Temperature and Precipitation

f <- read_jma(ymd("2018-01-01"), ymd("2018-12-31"), phpsessid)

# parse csv using readr
col_names <- c("Datetime", "Temp", "Temp_exists",
"Temp_quality", "Rain", "Rain_exists", "Rain_qality")
col_types <- cols(col_datetime("%Y/%m/%d %H:%M:%S"),
col_double(), col_integer(), col_integer(),
col_double(), col_integer(), col_integer())
d <- f %>%
  map(function(x){
    read_csv(x, col_names=col_names, col_types=, skip=5)
    }) %>%
    bind_rows()
head(d)

whatalnk/readjma documentation built on June 10, 2020, 10:28 a.m.