revert some styler changes to make the changes more clear

Author: pachadotdev

R/register.R

@@ -220,7 +220,7 @@ generate_r_functions <- function(funs, package = "cpp11", use_package = FALSE) {
     package_call <- glue::glue(', PACKAGE = "{package}"')
     package_names <- glue::glue_data(funs, '"_{package}_{name}"')
   } else {
-    package_names <- glue::glue_data(funs, "`_{package}_{name}`")
+    package_names <- glue::glue_data(funs, '`_{package}_{name}`')
     package_call <- ""
   }
 
@@ -229,8 +229,8 @@ generate_r_functions <- function(funs, package = "cpp11", use_package = FALSE) {
   funs$params <- vcapply(funs$list_params, function(x) if (nzchar(x)) paste0(", ", x) else x)
   is_void <- funs$return_type == "void"
   funs$calls <- ifelse(is_void,
-    glue::glue_data(funs, "invisible(.Call({package_names}{params}{package_call}))"),
-    glue::glue_data(funs, ".Call({package_names}{params}{package_call})")
+    glue::glue_data(funs, 'invisible(.Call({package_names}{params}{package_call}))'),
+    glue::glue_data(funs, '.Call({package_names}{params}{package_call})')
   )
 
   # Parse and associate Roxygen comments
@@ -252,7 +252,7 @@ generate_r_functions <- function(funs, package = "cpp11", use_package = FALSE) {
     if (nzchar(roxygen_comment)) {
       glue::glue("{roxygen_comment}\n{name} <- function({list_params}) {{\n\t{calls}\n}}")
     } else {
-      glue::glue("{name} <- function({list_params}) {{\n\t{calls}\n}}")
+      glue::glue("{name} <- function({list_params}) {{\n  {calls}\n}}")
     }
   }, funs$name, funs$list_params, funs$calls, funs$roxygen_comment, SIMPLIFY = FALSE)
 

cpp11test/R/cpp11.R

@@ -1,163 +1,163 @@
 # Generated by cpp11: do not edit by hand
 
 cpp11_add_vec_for_ <- function(x, num) {
-	.Call(`_cpp11test_cpp11_add_vec_for_`, x, num)
+  .Call(`_cpp11test_cpp11_add_vec_for_`, x, num)
 }
 
 data_frame_ <- function() {
-	.Call(`_cpp11test_data_frame_`)
+  .Call(`_cpp11test_data_frame_`)
 }
 
 my_stop_n1fmt <- function(mystring) {
-	invisible(.Call(`_cpp11test_my_stop_n1fmt`, mystring))
+  invisible(.Call(`_cpp11test_my_stop_n1fmt`, mystring))
 }
 
 my_stop_n2fmt <- function(mystring, myarg) {
-	invisible(.Call(`_cpp11test_my_stop_n2fmt`, mystring, myarg))
+  invisible(.Call(`_cpp11test_my_stop_n2fmt`, mystring, myarg))
 }
 
 my_warning_n1fmt <- function(mystring) {
-	invisible(.Call(`_cpp11test_my_warning_n1fmt`, mystring))
+  invisible(.Call(`_cpp11test_my_warning_n1fmt`, mystring))
 }
 
 my_warning_n2fmt <- function(mystring, myarg) {
-	invisible(.Call(`_cpp11test_my_warning_n2fmt`, mystring, myarg))
+  invisible(.Call(`_cpp11test_my_warning_n2fmt`, mystring, myarg))
 }
 
 my_message_n1fmt <- function(mystring) {
-	invisible(.Call(`_cpp11test_my_message_n1fmt`, mystring))
+  invisible(.Call(`_cpp11test_my_message_n1fmt`, mystring))
 }
 
 my_message_n2fmt <- function(mystring, myarg) {
-	invisible(.Call(`_cpp11test_my_message_n2fmt`, mystring, myarg))
+  invisible(.Call(`_cpp11test_my_message_n2fmt`, mystring, myarg))
 }
 
 my_stop <- function(mystring, myarg) {
-	invisible(.Call(`_cpp11test_my_stop`, mystring, myarg))
+  invisible(.Call(`_cpp11test_my_stop`, mystring, myarg))
 }
 
 my_stop_n1 <- function(mystring) {
-	invisible(.Call(`_cpp11test_my_stop_n1`, mystring))
+  invisible(.Call(`_cpp11test_my_stop_n1`, mystring))
 }
 
 my_warning <- function(mystring, myarg) {
-	invisible(.Call(`_cpp11test_my_warning`, mystring, myarg))
+  invisible(.Call(`_cpp11test_my_warning`, mystring, myarg))
 }
 
 my_warning_n1 <- function(mystring) {
-	invisible(.Call(`_cpp11test_my_warning_n1`, mystring))
+  invisible(.Call(`_cpp11test_my_warning_n1`, mystring))
 }
 
 my_message <- function(mystring, myarg) {
-	invisible(.Call(`_cpp11test_my_message`, mystring, myarg))
+  invisible(.Call(`_cpp11test_my_message`, mystring, myarg))
 }
 
 my_message_n1 <- function(mystring) {
-	invisible(.Call(`_cpp11test_my_message_n1`, mystring))
+  invisible(.Call(`_cpp11test_my_message_n1`, mystring))
 }
 
 remove_altrep <- function(x) {
-	.Call(`_cpp11test_remove_altrep`, x)
+  .Call(`_cpp11test_remove_altrep`, x)
 }
 
 upper_bound <- function(x, breaks) {
-	.Call(`_cpp11test_upper_bound`, x, breaks)
+  .Call(`_cpp11test_upper_bound`, x, breaks)
 }
 
 findInterval2 <- function(x, breaks) {
-	.Call(`_cpp11test_findInterval2`, x, breaks)
+  .Call(`_cpp11test_findInterval2`, x, breaks)
 }
 
 findInterval2_5 <- function(x, breaks) {
-	.Call(`_cpp11test_findInterval2_5`, x, breaks)
+  .Call(`_cpp11test_findInterval2_5`, x, breaks)
 }
 
 findInterval3 <- function(x, breaks) {
-	.Call(`_cpp11test_findInterval3`, x, breaks)
+  .Call(`_cpp11test_findInterval3`, x, breaks)
 }
 
 findInterval4 <- function(x, breaks) {
-	.Call(`_cpp11test_findInterval4`, x, breaks)
+  .Call(`_cpp11test_findInterval4`, x, breaks)
 }
 
 grow_ <- function(n) {
-	.Call(`_cpp11test_grow_`, n)
+  .Call(`_cpp11test_grow_`, n)
 }
 
 cpp11_insert_ <- function(num_sxp) {
-	.Call(`_cpp11test_cpp11_insert_`, num_sxp)
+  .Call(`_cpp11test_cpp11_insert_`, num_sxp)
 }
 
 gibbs_cpp <- function(N, thin) {
-	.Call(`_cpp11test_gibbs_cpp`, N, thin)
+  .Call(`_cpp11test_gibbs_cpp`, N, thin)
 }
 
 gibbs_cpp2 <- function(N, thin) {
-	.Call(`_cpp11test_gibbs_cpp2`, N, thin)
+  .Call(`_cpp11test_gibbs_cpp2`, N, thin)
 }
 
 gibbs_rcpp <- function(N, thin) {
-	.Call(`_cpp11test_gibbs_rcpp`, N, thin)
+  .Call(`_cpp11test_gibbs_rcpp`, N, thin)
 }
 
 gibbs_rcpp2 <- function(N, thin) {
-	.Call(`_cpp11test_gibbs_rcpp2`, N, thin)
+  .Call(`_cpp11test_gibbs_rcpp2`, N, thin)
 }
 
 row_sums <- function(x) {
-	.Call(`_cpp11test_row_sums`, x)
+  .Call(`_cpp11test_row_sums`, x)
 }
 
 col_sums <- function(x) {
-	.Call(`_cpp11test_col_sums`, x)
+  .Call(`_cpp11test_col_sums`, x)
 }
 
 protect_one_ <- function(x, n) {
-	invisible(.Call(`_cpp11test_protect_one_`, x, n))
+  invisible(.Call(`_cpp11test_protect_one_`, x, n))
 }
 
 protect_one_sexp_ <- function(x, n) {
-	invisible(.Call(`_cpp11test_protect_one_sexp_`, x, n))
+  invisible(.Call(`_cpp11test_protect_one_sexp_`, x, n))
 }
 
 protect_one_cpp11_ <- function(x, n) {
-	invisible(.Call(`_cpp11test_protect_one_cpp11_`, x, n))
+  invisible(.Call(`_cpp11test_protect_one_cpp11_`, x, n))
 }
 
 protect_one_preserve_ <- function(x, n) {
-	invisible(.Call(`_cpp11test_protect_one_preserve_`, x, n))
+  invisible(.Call(`_cpp11test_protect_one_preserve_`, x, n))
 }
 
 protect_many_ <- function(n) {
-	invisible(.Call(`_cpp11test_protect_many_`, n))
+  invisible(.Call(`_cpp11test_protect_many_`, n))
 }
 
 protect_many_cpp11_ <- function(n) {
-	invisible(.Call(`_cpp11test_protect_many_cpp11_`, n))
+  invisible(.Call(`_cpp11test_protect_many_cpp11_`, n))
 }
 
 protect_many_sexp_ <- function(n) {
-	invisible(.Call(`_cpp11test_protect_many_sexp_`, n))
+  invisible(.Call(`_cpp11test_protect_many_sexp_`, n))
 }
 
 protect_many_preserve_ <- function(n) {
-	invisible(.Call(`_cpp11test_protect_many_preserve_`, n))
+  invisible(.Call(`_cpp11test_protect_many_preserve_`, n))
 }
 
 protect_many_rcpp_ <- function(n) {
-	invisible(.Call(`_cpp11test_protect_many_rcpp_`, n))
+  invisible(.Call(`_cpp11test_protect_many_rcpp_`, n))
 }
 
 cpp11_release_ <- function(n) {
-	invisible(.Call(`_cpp11test_cpp11_release_`, n))
+  invisible(.Call(`_cpp11test_cpp11_release_`, n))
 }
 
 rcpp_release_ <- function(n) {
-	invisible(.Call(`_cpp11test_rcpp_release_`, n))
+  invisible(.Call(`_cpp11test_rcpp_release_`, n))
 }
 
 notroxcpp1_ <- function(x) {
-	.Call(`_cpp11test_notroxcpp1_`, x)
+  .Call(`_cpp11test_notroxcpp1_`, x)
 }
 
 #' @title Roxygenise C++ function II
@@ -197,7 +197,7 @@ roxcpp5_ <- function(x) {
 }
 
 notroxcpp6_ <- function(x) {
-	.Call(`_cpp11test_notroxcpp6_`, x)
+  .Call(`_cpp11test_notroxcpp6_`, x)
 }
 
 #' @title Roxygenise C++ function VII
@@ -210,93 +210,93 @@ roxcpp7_ <- function(x) {
 }
 
 cpp11_safe_ <- function(x_sxp) {
-	.Call(`_cpp11test_cpp11_safe_`, x_sxp)
+  .Call(`_cpp11test_cpp11_safe_`, x_sxp)
 }
 
 string_proxy_assignment_ <- function() {
-	.Call(`_cpp11test_string_proxy_assignment_`)
+  .Call(`_cpp11test_string_proxy_assignment_`)
 }
 
 string_push_back_ <- function() {
-	.Call(`_cpp11test_string_push_back_`)
+  .Call(`_cpp11test_string_push_back_`)
 }
 
 sum_dbl_for_ <- function(x) {
-	.Call(`_cpp11test_sum_dbl_for_`, x)
+  .Call(`_cpp11test_sum_dbl_for_`, x)
 }
 
 sum_dbl_for2_ <- function(x_sxp) {
-	.Call(`_cpp11test_sum_dbl_for2_`, x_sxp)
+  .Call(`_cpp11test_sum_dbl_for2_`, x_sxp)
 }
 
 sum_dbl_for3_ <- function(x_sxp) {
-	.Call(`_cpp11test_sum_dbl_for3_`, x_sxp)
+  .Call(`_cpp11test_sum_dbl_for3_`, x_sxp)
 }
 
 sum_dbl_foreach_ <- function(x) {
-	.Call(`_cpp11test_sum_dbl_foreach_`, x)
+  .Call(`_cpp11test_sum_dbl_foreach_`, x)
 }
 
 sum_dbl_foreach2_ <- function(x_sxp) {
-	.Call(`_cpp11test_sum_dbl_foreach2_`, x_sxp)
+  .Call(`_cpp11test_sum_dbl_foreach2_`, x_sxp)
 }
 
 sum_dbl_accumulate_ <- function(x) {
-	.Call(`_cpp11test_sum_dbl_accumulate_`, x)
+  .Call(`_cpp11test_sum_dbl_accumulate_`, x)
 }
 
 sum_dbl_accumulate2_ <- function(x_sxp) {
-	.Call(`_cpp11test_sum_dbl_accumulate2_`, x_sxp)
+  .Call(`_cpp11test_sum_dbl_accumulate2_`, x_sxp)
 }
 
 sum_int_for_ <- function(x) {
-	.Call(`_cpp11test_sum_int_for_`, x)
+  .Call(`_cpp11test_sum_int_for_`, x)
 }
 
 sum_int_for2_ <- function(x_) {
-	.Call(`_cpp11test_sum_int_for2_`, x_)
+  .Call(`_cpp11test_sum_int_for2_`, x_)
 }
 
 sum_int_foreach_ <- function(x) {
-	.Call(`_cpp11test_sum_int_foreach_`, x)
+  .Call(`_cpp11test_sum_int_foreach_`, x)
 }
 
 sum_int_accumulate_ <- function(x) {
-	.Call(`_cpp11test_sum_int_accumulate_`, x)
+  .Call(`_cpp11test_sum_int_accumulate_`, x)
 }
 
 rcpp_sum_dbl_for_ <- function(x_sxp) {
-	.Call(`_cpp11test_rcpp_sum_dbl_for_`, x_sxp)
+  .Call(`_cpp11test_rcpp_sum_dbl_for_`, x_sxp)
 }
 
 rcpp_sum_int_for_ <- function(x_sxp) {
-	.Call(`_cpp11test_rcpp_sum_int_for_`, x_sxp)
+  .Call(`_cpp11test_rcpp_sum_int_for_`, x_sxp)
 }
 
 rcpp_sum_dbl_foreach_ <- function(x_sxp) {
-	.Call(`_cpp11test_rcpp_sum_dbl_foreach_`, x_sxp)
+  .Call(`_cpp11test_rcpp_sum_dbl_foreach_`, x_sxp)
 }
 
 rcpp_sum_dbl_accumulate_ <- function(x_sxp) {
-	.Call(`_cpp11test_rcpp_sum_dbl_accumulate_`, x_sxp)
+  .Call(`_cpp11test_rcpp_sum_dbl_accumulate_`, x_sxp)
 }
 
 rcpp_grow_ <- function(n_sxp) {
-	.Call(`_cpp11test_rcpp_grow_`, n_sxp)
+  .Call(`_cpp11test_rcpp_grow_`, n_sxp)
 }
 
 rcpp_push_and_truncate_ <- function(size_sxp) {
-	.Call(`_cpp11test_rcpp_push_and_truncate_`, size_sxp)
+  .Call(`_cpp11test_rcpp_push_and_truncate_`, size_sxp)
 }
 
 test_destruction_inner <- function() {
-	invisible(.Call(`_cpp11test_test_destruction_inner`))
+  invisible(.Call(`_cpp11test_test_destruction_inner`))
 }
 
 test_destruction_outer <- function() {
-	invisible(.Call(`_cpp11test_test_destruction_outer`))
+  invisible(.Call(`_cpp11test_test_destruction_outer`))
 }
 
 cpp11_push_and_truncate_ <- function(size_sexp) {
-	.Call(`_cpp11test_cpp11_push_and_truncate_`, size_sexp)
+  .Call(`_cpp11test_cpp11_push_and_truncate_`, size_sexp)
 }