| Title: | Miscellaneous R Utilities Useful to CRP |
|---|---|
| Description: | A collection of miscellaneous utilities that are useful for various research activities conducted by the Cetacean Research Program (CRP) at NOAA NMFS Pacific Islands Fisheries Science Center. This includes utilities for working with latitude and longitude data, gpx file creation, and more to come. |
| Authors: | Selene Fregosi [aut, cre] |
| Maintainer: | Selene Fregosi <[email protected]> |
| License: | GPL (>= 3) |
| Version: | 0.1.9003 |
| Built: | 2025-01-12 05:21:27 UTC |
| Source: | https://github.com/PIFSC-Protected-Species-Division/crputils |
convert a .csv of vessel track segments to a .gpx file.
The input data.frame must have 1 column 'uid' containing a unique identifier for that track/segment, 2 columns for start latitude and longitude, and 2 columns for stop latitude and longitude. Additional columns for cruise, date, vessel name, etc will be ignored
This is a modified version of trackToGPX.R that is included in the
'cruise-maps-live' repository that tries to generalize the function to
convert any input data.frame, not just the output from a .das file.
CSVToGPX_track(inCSV, outGPX)CSVToGPX_track(inCSV, outGPX)
inCSV |
filename of csv containing track data to be processed. Must include the following columns: uid, startLat, startLon, stopLat, stopLon where uid is a unique track identifier, startLat/startLon is the track start location and stopLat/stopLon is the track end location. All locations should be in decimal degrees. Can optionally include a startDateTime and stopDateTime column. Assumes UTC timezone for GPX output. |
outGPX |
fullpath filename of gpx to be written
example: |
none, will write a file
Selene Fregosi
create a .gpx file based on the effort track data recorded in
.DAS files. The track data needs to have been extracted from the
.DAS file using extractDASTrack() which creates the 'et' dataframe
Track segments within days are plotted separately but are connected. Tracks across days are not connected.
This was generalized from the cruise-maps-live repository's trackToGPX()
DASTrackToGPX(et, outGPX)DASTrackToGPX(et, outGPX)
et |
data.frame of effort as tracks, can be 'et' cumulative over a survey or 'et' for just a single DAS |
outGPX |
fullpath filename to save
example: |
none, will write a file
Selene Fregosi
Utility to convert latitude and longitude coordinates from decimal degrees to degrees decimal minutes
decdeg2degmin(decdeg)decdeg2degmin(decdeg)
decdeg |
N-by-1 vector of coordinates in decimal degrees
e.g., |
N-by-2 data.frame of coordinates with columns 'deg' for degrees and 'min' for decimal minutes
Selene Fregosi
# single input coordinates decdeg <- 30.48667 degmin <- decdeg2degmin(decdeg) # multiple input coordinates decdeg <- c(30.48667, -155.61496) degmin <- decdeg2degmin(decdeg)# single input coordinates decdeg <- 30.48667 degmin <- decdeg2degmin(decdeg) # multiple input coordinates decdeg <- c(30.48667, -155.61496) degmin <- decdeg2degmin(decdeg)
Utility to convert latitude and longitude coordinates from degrees minutes to degrees minutes second
decdeg2degminsec(decdeg)decdeg2degminsec(decdeg)
decdeg |
N-by-1 vector of coordinates in decimal degrees
e.g., |
N-by-3 data.frame of coordinates with columns 'deg' for degrees, 'min' for minutes, and 'sec' for decimal seconds
Selene Fregosi
# single input coordinates decdeg <- 30.48667 degminsec <- decdeg2degminsec(decdeg) # multiple input coordinates decdeg <- c(30.48667, -155.61496) degminsec <- decdeg2degminsec(decdeg)# single input coordinates decdeg <- 30.48667 degminsec <- decdeg2degminsec(decdeg) # multiple input coordinates decdeg <- c(30.48667, -155.61496) degminsec <- decdeg2degminsec(decdeg)
Utility to convert latitude and longitude coordinates from degrees minutes to decimal degrees
degmin2decdeg(degmin)degmin2decdeg(degmin)
degmin |
N-by-2 matrix of coordinates with each column representing
degrees and minutes.
e.g., |
N-by-1 vector of coordinates in decimal degrees
Selene Fregosi
# single input coordinates degmin <- matrix(c(30, 29.2020), nrow = 1, ncol = 2) decdeg <- degmin2decdeg(degmin) # multiple input coordinates degmin <- matrix(c(30, 29.2020, -155, 36.8973), nrow = 2, ncol = 2, byrow = TRUE) decdeg <- degmin2decdeg(degmin)# single input coordinates degmin <- matrix(c(30, 29.2020), nrow = 1, ncol = 2) decdeg <- degmin2decdeg(degmin) # multiple input coordinates degmin <- matrix(c(30, 29.2020, -155, 36.8973), nrow = 2, ncol = 2, byrow = TRUE) decdeg <- degmin2decdeg(degmin)
Utility to convert latitude and longitude coordinates from degrees minutes to degrees minutes seconds
degmin2degminsec(degmin)degmin2degminsec(degmin)
degmin |
N-by-2 matrix of coordinates with each column representing
degrees and minutes
e.g., |
N-by-3 data.frame of coordinates with columns 'deg for degrees and 'min' for minutes and 'sec' for decimal seconds
Selene Fregosi
# single input coordinates degmin <- matrix(c(30, 29.2020), nrow = 1, ncol = 2) degminsec <- degmin2degminsec(degmin) # multiple input coordinates degmin <- matrix(c(30, 29.2020, -155, 36.8973), nrow = 2, ncol = 2, byrow = TRUE) degminsec <- degmin2degminsec(degmin)# single input coordinates degmin <- matrix(c(30, 29.2020), nrow = 1, ncol = 2) degminsec <- degmin2degminsec(degmin) # multiple input coordinates degmin <- matrix(c(30, 29.2020, -155, 36.8973), nrow = 2, ncol = 2, byrow = TRUE) degminsec <- degmin2degminsec(degmin)
Utility to convert latitude and longitude coordinates from degrees minutes seconds to decimal degrees
degminsec2decdeg(degminsec)degminsec2decdeg(degminsec)
degminsec |
N-by-3 matrix of coordinates with each column representing
degrees, minutes, and seconds
e.g., |
N-by-1 vector of coordinates in decimal degrees
Selene Fregosi
# single input coordinates degminsec = matrix(c(30, 29, 12), nrow = 1, ncol = 3) decdeg = degminsec2decdeg(degminsec) # multiple input coordinates degminsec = matrix(c(30, 29, 12, -155, 36, 53.838), nrow = 2, ncol = 3, byrow = TRUE) decdeg = degminsec2decdeg(degminsec)# single input coordinates degminsec = matrix(c(30, 29, 12), nrow = 1, ncol = 3) decdeg = degminsec2decdeg(degminsec) # multiple input coordinates degminsec = matrix(c(30, 29, 12, -155, 36, 53.838), nrow = 2, ncol = 3, byrow = TRUE) decdeg = degminsec2decdeg(degminsec)
Utility to convert latitude and longitude coordinates from degrees minutes seconds to degrees decimal minutes
degminsec2degmin(degminsec)degminsec2degmin(degminsec)
degminsec |
N-by-3 matrix of coordinates with each column representing
degrees, minutes, and seconds
e.g., |
N-by-2 data.frame of coordinates with columns 'deg' for degrees and 'min' for minutes
Selene Fregosi
# single input coordinates degminsec <- matrix(c(30, 29, 12), nrow = 1, ncol = 3) degmin <- degminsec2degmin(degminsec) # multiple input coordinates degminsec <- matrix(c(30, 29, 12, -155, 36, 53.838), nrow = 2, ncol = 3, byrow = TRUE) degmin <- degminsec2degmin(degminsec)# single input coordinates degminsec <- matrix(c(30, 29, 12), nrow = 1, ncol = 3) degmin <- degminsec2degmin(degminsec) # multiple input coordinates degminsec <- matrix(c(30, 29, 12, -155, 36, 53.838), nrow = 2, ncol = 3, byrow = TRUE) degmin <- degminsec2degmin(degminsec)
Pull effort tracks from a relatively raw daily .das file into
a simpler dataframe. Utilizes the package swfscDAS and then cleans up those
outputs a bit. Generalized from cruise-maps-live's extractTrack()
extractDASTrack(df_proc)extractDASTrack(df_proc)
df_proc |
processed das file (with |
a dataframe of effort tracks with date and lat/lon
Selene Fregosi