input.src doesn't seem to be necessary for an inline block

chuxinyuan · Dec 23, 2022 · 1545a7e · 1545a7e
1 parent df7cf4b
commit 1545a7e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/block.R b/R/block.R
@@ -595,7 +595,7 @@ process_tangle.block = function(x) {
 process_tangle.inline = function(x) {
 
   output = if (opts_knit$get('documentation') == 2L) {
-    output = one_string(line_prompt(x$input.src, "#' ", "#' "))
+    output = paste("#'", gsub('\n', "\n#' ", x$input, fixed = TRUE))
   } else ''
 
   code = x$code

diff --git a/R/parser.R b/R/parser.R
@@ -344,8 +344,6 @@ print.block = function(x, ...) {
 
 # extract inline R code fragments (as well as global options)
 parse_inline = function(input, patterns) {
-  input.src = input  # keep a copy of the source
-
   inline.code = patterns$inline.code; inline.comment = patterns$inline.comment
   if (!is.null(inline.comment)) {
     idx = grepl(inline.comment, input)
@@ -363,8 +361,10 @@ parse_inline = function(input, patterns) {
     } else character(0)
   } else code = character(0)
 
-  structure(list(input = input, input.src = input.src, location = loc, code = code),
-            class = 'inline')
+  structure(
+    list(input = input, location = loc, code = code),
+    class = 'inline'
+  )
 }
 
 print.inline = function(x, ...) {