convGCJ2BD: Transform GCJ-02 (Google CN/Amap) coordinates to BD-09...

In madlogos/aseshms: Toolkit for ASES HMS Team

Description

GCJ-02 is coordinate system mandated by Chinese Gov't. BD-09 is Baidu specific coordinates that encrypts GCJ-02 further more. This function encrypts GCJ-02 into BD-09 coordinates (Baidu coordinates).

Usage

convGCJ2BD(y, ...)

Arguments

y	A vector c(latitude, longitude) simply latitude a matrix (row 1-2 or col 1-2). The function will choose how to read the data a data.frame (col 1-2)
...	When y is only latitude, you can pass in x (longitude) here. when y is a vector of c(lat, lon), you can pass in the rest vectors as well. when y is a matrix or a data.frame, ... is omitted.

Value

A 2-col data.frame ([lng, lat]) of transformed coordinates.

Note

Latitude is the horizontal line serving as y-axis metric, longitude is the vertical line serving as x-axis metric.

Author(s)

Yiying Wang, [e-mail]

References

https://on4wp7.codeplex.com/SourceControl/changeset/view/21483#353936

See Also

convBD2GCJ, convCoord

Examples

## Not run: 
# Tiananmen square's GCJ-02 coordinate is c(39.908746, 116.397131)
#http://api.map.baidu.com/marker?location=39.91509,116.40350&title=Tiananmen&
 content=Tiananmen%20square&output=html

## Single point
convGCJ2BD(c(39.908746, 116.397131))  # or
convGCJ2BD(39.908746, 116.397131)  # get
#           lat       lng
# [1,] 39.91509  116.4035

## Multiple points
### Vectors
convGCJ2BD(c(39.908746, 116.397131), c(39.908746, 116.397131))  # get
#           lat       lng
# [1,] 39.91509  116.4035
# [2,] 39.91509  116.4035

### Matrix
m <- matrix(c(39.908746, 116.397131, 39.908746, 116.397131, 39.908746, 116.397131), 
            nrow=2)
m
#           [,1]       [,2]       [,3]
# [1,]  39.90875   39.90875   39.90875
# [2,] 116.39713  116.39713  116.39713
convGCJ2BD(m)  # get
#           lat       lng
# [1,] 39.91509  116.4035
# [2,] 39.91509  116.4035
# [3,] 39.91509  116.4035

### data.frame
df <- data.frame(lat=c(39.908746, 39.908746, 39.908746, NA),
                 lon=c(116.397131, 116.397131, 116.397131, 116.397131))
convGCJ2BD(df)  # get
#           lat       lng
# [1,] 39.91509  116.4035
# [2,] 39.91509  116.4035
# [3,] 39.91509  116.4035
# [4,]       NA        NA

## End(Not run)

madlogos/aseshms documentation built on May 21, 2019, 11:03 a.m.