Generate GPS lines data for echarts

Source: R/coordinate_utils.R

Your can see the package/misc files.

fmt_gps_json(df)

Arguments

df

data.frame with starLon, starLat, endLon, endLat.

Value

json txt

Examples

# NOT RUN {
gps_trans <- function(df) {
  test <- select(df, startLon, startLat, endLon, endLat)
  as_tibble(t(apply(test, 1, function(x) {
    x <- as.numeric(x)
    start_gps <- wgs2bd(x[1], x[2])
    end_gps <- wgs2bd(x[3], x[4])
    c(start_gps[1], start_gps[2], end_gps[1], end_gps[2])
  })))
}
usr_data <- purrr::map(usr_ids, ~ filter(pam_data, userId == .x))
all <- map(lapply(usr_data, gps_trans), ~ fmt_gps_json(.x))

# }