Commit ⋅ munterfinger/eRTG3D

Showing 1 of 8 files from the diff.

Newly tracked file

56.25% ø ø

R/sfWrapper3D.R changed.

Other files ignored by Codecov

vignettes/v7.Rmd has changed.

DESCRIPTION has changed.

man/sf2df.3d.Rd has changed.

man/track2sf.3d.Rd has changed.

man/transformCRS.3d.Rd has changed.

vignettes/v6.Rmd has changed.

man/is.sf.3d.Rd has changed.

@@ -7,14 +7,14 @@

Loading

#' in the third dimension.
#'
#' @param track data.frame with x,y,z coordinates
#' @param fromCRS string: proj4 of current CRS
#' @param toCRS string: proj4 of CRS to be converted in
#' @param fromCRS numeric, EPSG code of the current CRS
#' @param toCRS numeric, EPSG code of the CRS to be converted in
#'
#' @return A data.frame containing x,y,z and variables.
#' @export
#'
#' @examples
#' transformCRS.3d(niclas, fromCRS="+init=epsg:2056", toCRS="+init=epsg:4326")
#' transformCRS.3d(niclas, fromCRS = 2056, toCRS = 4326)
transformCRS.3d <- function(track, fromCRS, toCRS)
{
  track <- track2sf.3d(track = track, CRS = fromCRS)

@@ -33,7 +33,7 @@

Loading

33	33		#'
34	34		#' @examples
35	35		#' is.sf.3d(niclas)
36		-	#' is.sf.3d(track2sf.3d(track = niclas, CRS = "+init=epsg:2056"))
	36	+	#' is.sf.3d(track2sf.3d(track = niclas, CRS = 2056))
37	37		is.sf.3d <- function(track)
38	38		{
39	39		if(class(track)[1]=="sf" && class(track)[2]=="data.frame") {

@@ -51,7 +51,7 @@

Loading

#' @export
#'
#' @examples
#' sf2df.3d(track2sf.3d(niclas, "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs"))
#' sf2df.3d(track2sf.3d(niclas, CRS = 4326))
sf2df.3d <- function(track)
{
  track <- cbind(sf::st_coordinates(track), as.data.frame(track))

@@ -63,13 +63,13 @@

Loading

#' Converts a track to a \code{'sf, data.frame'}
#'
#' @param track eRTG3D track data.frame or a matrix
#' @param CRS string containing the proj4 code of the CRS
#' @param CRS numeric, EPSG code of the CRS
#'
#' @return A track of type \code{'sf, data.frame'}.
#' @export
#'
#' @examples
#' track2sf.3d(niclas, "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
#' track2sf.3d(niclas, 4326)
track2sf.3d <- function(track, CRS = NA)
{
  if(is.data.frame(track)) {return(.df2sf.3d(track, CRS = CRS))}

@@ -80,7 +80,7 @@

Loading

#' Converts a track data.frame to a \code{'sf, data.frame'}
#'
#' @param track eRTG3D track data.frame
#' @param CRS string containing the proj4 code of the CRS
#' @param CRS numeric, EPSG code of the CRS
#'
#' @return A track of type \code{'sf, data.frame'}.
#' @export

@@ -98,7 +98,7 @@

Loading

#' Converts a track matrix to a sf data.frame
#'
#' @param track matrix with x, y and z coordinates
#' @param CRS string containing the proj4 code of the CRS
#' @param CRS numeric, EPSG code of the CRS
#'
#' @return A track of type \code{'sf, data.frame'}.
#' @export

Files		•	•	•	Coverage
R	1,042	913	0	129	87.62%
Project Totals (8 files)	1,042	913	0	129	87.62%

View CI Build Download

comment: false

coverage:
  status:
    project:
      default:
        target: auto
        threshold: 1%
        informational: true
    patch:
      default:
        target: auto
        threshold: 1%
        informational: true

Read the docs

Interact now

The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.

SVG

The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.

SVG

Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.

SVG

Learn more about the coverage sunburst graph

63	63		#' Converts a track to a \code{'sf, data.frame'}
64	64		#'
65	65		#' @param track eRTG3D track data.frame or a matrix
66		-	#' @param CRS string containing the proj4 code of the CRS
	66	+	#' @param CRS numeric, EPSG code of the CRS
67	67		#'
68	68		#' @return A track of type \code{'sf, data.frame'}.
69	69		#' @export
70	70		#'
71	71		#' @examples
72		-	#' track2sf.3d(niclas, "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
	72	+	#' track2sf.3d(niclas, 4326)
73	73		track2sf.3d <- function(track, CRS = NA)
74	74		{
75	75		if(is.data.frame(track)) {return(.df2sf.3d(track, CRS = CRS))}

98	98		#' Converts a track matrix to a sf data.frame
99	99		#'
100	100		#' @param track matrix with x, y and z coordinates
101		-	#' @param CRS string containing the proj4 code of the CRS
	101	+	#' @param CRS numeric, EPSG code of the CRS
102	102		#'
103	103		#' @return A track of type \code{'sf, data.frame'}.
104	104		#' @export

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits

7	7		#' in the third dimension.
8	8		#'
9	9		#' @param track data.frame with x,y,z coordinates
10		-	#' @param fromCRS string: proj4 of current CRS
11		-	#' @param toCRS string: proj4 of CRS to be converted in
	10	+	#' @param fromCRS numeric, EPSG code of the current CRS
	11	+	#' @param toCRS numeric, EPSG code of the CRS to be converted in
12	12		#'
13	13		#' @return A data.frame containing x,y,z and variables.
14	14		#' @export
15	15		#'
16	16		#' @examples
17		-	#' transformCRS.3d(niclas, fromCRS="+init=epsg:2056", toCRS="+init=epsg:4326")
	17	+	#' transformCRS.3d(niclas, fromCRS = 2056, toCRS = 4326)
18	18		transformCRS.3d <- function(track, fromCRS, toCRS)
19	19		{
20	20		track <- track2sf.3d(track = track, CRS = fromCRS)

51	51		#' @export
52	52		#'
53	53		#' @examples
54		-	#' sf2df.3d(track2sf.3d(niclas, "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs"))
	54	+	#' sf2df.3d(track2sf.3d(niclas, CRS = 4326))
55	55		sf2df.3d <- function(track)
56	56		{
57	57		track <- cbind(sf::st_coordinates(track), as.data.frame(track))

80	80		#' Converts a track data.frame to a \code{'sf, data.frame'}
81	81		#'
82	82		#' @param track eRTG3D track data.frame
83		-	#' @param CRS string containing the proj4 code of the CRS
	83	+	#' @param CRS numeric, EPSG code of the CRS
84	84		#'
85	85		#' @return A track of type \code{'sf, data.frame'}.
86	86		#' @export

1	comment: false
2
3	coverage:
4	status:
5	project:
6	default:
7	target: auto
8	threshold: 1%
9	informational: true
10	patch:
11	default:
12	target: auto
13	threshold: 1%
14	informational: true