support rplumber syntax

R/rules-spacing.R

@@ -186,7 +186,7 @@ start_comments_with_space <- function(pd, force_one = FALSE) {
 
   comments <- rematch2::re_match(
     pd$text[comment_pos],
-    "^(?<prefix>#+'*)(?<space_after_prefix> *)(?<text>.*)$"
+    "^(?<prefix>#+['\\*]*)(?<space_after_prefix> *)(?<text>.*)$"
   )
 
   comments$space_after_prefix <- nchar(

tests/testthat/parse_comments/rplumber-in.R

@@ -0,0 +1,12 @@
+# myfile.R
+
+#* @get /mean
+normalMean <- function(samples=10) {
+  data <- rnorm(samples)
+  mean(data)
+}
+
+#* @post /sum
+addTwo <- function(a, b) {
+  as.numeric(a) + as.numeric(b)
+}

tests/testthat/parse_comments/rplumber-out.R

@@ -0,0 +1,12 @@
+# myfile.R
+
+#* @get /mean
+normalMean <- function(samples=10) {
+  data <- rnorm(samples)
+  mean(data)
+}
+
+#* @post /sum
+addTwo <- function(a, b) {
+  as.numeric(a) + as.numeric(b)
+}

tests/testthat/test-parse_comments.R

@@ -34,5 +34,10 @@ test_that("comments are treated corectly", {
                                  transformer = style_text,
                                  write_back = TRUE), NA)
 
-  # top-level test with indention
+})
+
+test_that("rplumber tags / syntax is handled properly", {
+  expect_warning(test_collection("parse_comments",
+                                 "rplumber",
+                                 transformer = style_text), NA)
 })