full port

Author: thomasp85

DESCRIPTION

@@ -24,7 +24,6 @@ Depends:
     ggplot2 (>= 3.3.6),
     R (>= 3.3.0)
 Imports:
-    Rcpp (>= 0.12.2),
     grid,
     scales,
     MASS,
@@ -41,7 +40,8 @@ Imports:
     cli,
     vctrs,
     systemfonts
-LinkingTo: Rcpp, RcppEigen
+LinkingTo: 
+    cpp11
 RoxygenNote: 7.2.3
 Suggests:
     sessioninfo,
@@ -51,7 +51,6 @@ Suggests:
     units (>= 0.8.0),
     covr
 Collate: 
-    'RcppExports.R'
     'aaa.R'
     'shape.R'
     'arc_bar.R'
@@ -64,6 +63,7 @@ Collate:
     'bspline_closed.R'
     'circle.R'
     'concaveman.R'
+    'cpp11.R'
     'diagonal.R'
     'diagonal_wide.R'
     'ellipse.R'

NAMESPACE

@@ -161,7 +161,6 @@ import(ggplot2)
 import(rlang)
 import(vctrs)
 importFrom(MASS,fractions)
-importFrom(Rcpp,sourceCpp)
 importFrom(ggplot2,label_parsed)
 importFrom(ggplot2,layer)
 importFrom(grDevices,chull)
@@ -241,3 +240,4 @@ importFrom(tweenr,tween_t)
 importFrom(utils,packageVersion)
 importFrom(withr,with_seed)
 useDynLib(ggforce)
+useDynLib(ggforce, .registration = TRUE)

R/RcppExports.R

@@ -0,0 +1,33 @@
+# Generated by cpp11: do not edit by hand
+
+splinePath <- function(x, y, degree, knots, detail, type) {
+  .Call(`_ggforce_splinePath`, x, y, degree, knots, detail, type)
+}
+
+getSplines <- function(x, y, id, detail, type) {
+  .Call(`_ggforce_getSplines`, x, y, id, detail, type)
+}
+
+bezierPath <- function(x, y, detail) {
+  .Call(`_ggforce_bezierPath`, x, y, detail)
+}
+
+getBeziers <- function(x, y, id, detail) {
+  .Call(`_ggforce_getBeziers`, x, y, id, detail)
+}
+
+concaveman_c <- function(p, h, concavity, threshold) {
+  .Call(`_ggforce_concaveman_c`, p, h, concavity, threshold)
+}
+
+enclose_ellip_points <- function(x, y, id, tol) {
+  .Call(`_ggforce_enclose_ellip_points`, x, y, id, tol)
+}
+
+enclose_points <- function(x, y, id) {
+  .Call(`_ggforce_enclose_points`, x, y, id)
+}
+
+points_to_path <- function(pos, path, close) {
+  .Call(`_ggforce_points_to_path`, pos, path, close)
+}

R/cpp11.R

@@ -1,6 +1,5 @@
 #' @useDynLib ggforce
 #' @import ggplot2
-#' @importFrom Rcpp sourceCpp
 #'
 #' @examples
 #' rocketData <- data.frame(
@@ -57,8 +56,9 @@
 "_PACKAGE"
 
 ## usethis namespace: start
-#' @importFrom lifecycle deprecated
 #' @import rlang
 #' @import vctrs
+#' @importFrom lifecycle deprecated
+#' @useDynLib ggforce, .registration = TRUE
 ## usethis namespace: end
 NULL