R/mis_bearing.R
mis_bearing.Rddplyr::rowwise is required to apply this function in dplyr::mutate.
mis_bearing(from, to, water)The smallest bearing of the sector, measured clockwise from North
The largest bearing of the sector, measured clockwise from North
The bearing of a direction
Other helpers:
absolute_angle(),
add_dates(),
datetime_as_isoweek(),
datetime_as_seasonweek(),
datetime_as_season(),
datetime_as_turtle_date(),
exclude_training_species(),
exclude_training_surveys(),
extract_possibly(),
fdate_as_tdate(),
filter_missing_site(),
filter_missing_survey(),
filter_surveys_missing_end(),
filter_surveys_requiring_qa(),
filter_wastd_season(),
get_more(),
gj_linestring_to_st_linestring(),
httpdate_as_gmt08_turtle_date(),
httpdate_as_gmt08(),
httpdate_as_season(),
humanize(),
join_tsc_sites(),
leaflet_basemap(),
map_chr_hack(),
mean_bearing(),
odkc_works(),
read_table(),
sentencecase(),
sf_as_tbl(),
tdate_as_fdate(),
tracks_as_geojson(),
tun(),
urlize(),
verify_odkc_turtledata(),
verify_wamtram_data(),
verify_wastd_data(),
wastd_works(),
wastdr_msg_abort(),
wastdr_msg_info(),
wastdr_msg_noop(),
wastdr_msg_success(),
wastdr_msg_warn(),
wastdr_settings(),
wastdr_setup()
testthat::expect_equal(mis_bearing(10, 50, 40), c(30, 40))
testthat::expect_equal(mis_bearing(10, 50, 340), c(340, 30))
testthat::expect_equal(mis_bearing(30, 50, 230), c(230, 40))
testthat::expect_equal(mis_bearing(30, 50, 210), c(40, 210))