Commit 2b1b8c73 authored by Chris Holbrook's avatar Chris Holbrook

add missing namespace pointers

parent 83aaa643
......@@ -63,6 +63,7 @@ importFrom(graphics,points)
importFrom(graphics,symbols)
importFrom(graphics,text)
importFrom(lubridate,parse_date_time)
importFrom(magrittr,"%>%")
importFrom(stats,approx)
importFrom(stats,dnorm)
importFrom(stats,ecdf)
......
......@@ -30,6 +30,7 @@
#' @importFrom lubridate parse_date_time
#' @importFrom tidyr extract
#' @importFrom dplyr mutate
#' @importFrom magrittr "%>%"
#' @export
read_otn_deployments <- function(deployment_file) {
col_classes <- otn_deployments_schema$type
......
......@@ -152,7 +152,7 @@
path.fwd[1,] <- sp::coordinates(init)
#create lines object from polyg (for distance measurement)
xl <- as(polyg, "SpatialLines")
xl <- methods::as(polyg, "SpatialLines")
rows_i <- 1
init_i <- init
......
......@@ -48,6 +48,7 @@
#'
#'
#' @importFrom dplyr group_by mutate coalesce
#' @importFrom magrittr "%>%"
#'
#' @export
......
......@@ -238,9 +238,9 @@ make_frames <- function(proc_obj, recs = NULL, out_dir = getwd(),
# Remove receivers not recovered (records with NA in recover_date_time)
data.table::setkey(recs, recover_date_time)
recs <- recs[!J(NA_real_), c("station", "deploy_lat", "deploy_long",
"deploy_date_time", "recover_date_time",
"row_in")]
recs <- recs[!data.table::J(NA_real_), c("station", "deploy_lat",
"deploy_long", "deploy_date_time",
"recover_date_time", "row_in")]
}
# capture optional plot arguments passed via ellipses
......
......@@ -176,11 +176,6 @@ position_heat_map <- function (positions,
stop(paste0("Argument 'interval' must be supplied when fish_pos_int == 'intervals'."))
}
# Load dependencies --------------------------------------------------------
library(PBSmapping)
library(utils)
# Determine x and y limits -------------------------------------------------
# Set x and y extents based on data range or user-defined limits
if(is.null(x_limits)) x_limits <- range(positions$LON)
......@@ -368,7 +363,7 @@ position_heat_map <- function (positions,
}
if(output%in% c("png","kmz")){
dev.off(dev.cur())
grDevices::dev.off(grDevices::dev.cur())
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment