remove . as a global variable

Author: rcannood

R/package.R

@@ -34,15 +34,15 @@ NULL
 # Define valid global variables
 if(getRversion() >= "2.15.1") {
   utils::globalVariables(c(
-    ".", "branch_id", "cell_id", "comp_1", "comp_2",
+    "branch_id", "cell_id", "comp_1", "comp_2",
     "correlation", "correlation_mean", "directed", "dist",
     "divergence_id", "edge_id", "feature_id", "flip", "from",
     "from_milestone_id", "from_waypoint", "from2", "group_id",
     "housekeeping", "id", "in_divergence", "index", "input_id", "is_start",
     "ix", "label", "length1", "length2", "milestone_id", "new_milestone_id",
     "new_new_milestone_id", "node", "node1", "node2", "num_cells",
     "one", "percentage", "PREDICT", "prior_id", "required", "rowname",
-    "id", "match", "membership", "order", "path",
+    "match", "membership", "order", "path",
     "sd", "start", "waypoint_id", "weight", "zero", "time", "to", "to_waypoint",
     "triangle_id", "triangle_part", "type", "comp_1_from", "comp_2_from",
     "comp_1_to", "comp_2_to", "str_subset"))

R/wrap_add_dimred.R

@@ -285,7 +285,7 @@ connect_dimred_segments <- function(dimred_segment_progressions, dimred_segment_
   })
 
   connecting_progressions <- connections |> map_dfr("progressions")
-  connecting_points <- connections |> map("points") |> do.call(rbind, .)
+  connecting_points <- connections |> map("points") |> do.call(rbind)
 
   list(
     dimred_segment_progressions = bind_rows(dimred_segment_progressions, connecting_progressions),