Added an option for hiding comments from code chunk

.gitignore

@@ -0,0 +1,7 @@
+*.html
+*.pdf
+*_files/
+.Rproj.user
+*.rproj
+.Rhistory
+!docs/*

_extensions/code-visibility/code-visibility.lua

@@ -1,5 +1,5 @@
-
-
+local str = pandoc.utils.stringify
+local p = quarto.log.output
 
 -- remove any lines with the hide_line directive.
 function CodeBlock(el)
@@ -11,6 +11,46 @@ function CodeBlock(el)
   end
 end
 
+-- function to check whether a value exists in a table
+function has_value(table, value)
+  for k, v in ipairs(table) do
+    if v == value then
+      return true
+    end
+  end
+  return false
+end
+
+-- function for applying comment_directive
+local function apply_cmnt_directives(comment_directive)
+  local line_filter = {
+    CodeBlock = function(cb)
+      if cb.classes:includes('cell-code') then
+        for k, cd in ipairs(comment_directive) do
+          local cmnt_directive_tbl = {"#>", "//>"}
+          if has_value(cmnt_directive_tbl, str(cd)) then
+            local cmnt_directive_pattern = "^" .. str(cd)
+            cb.text = filter_lines(cb.text, function(line)
+              return not line:match(cmnt_directive_pattern)
+              end)
+          end
+        end
+        return cb
+      end
+    end
+  }
+  return line_filter
+end
+
+-- hide lines with comment directive
+function Pandoc(doc)
+  local meta = doc.meta
+  local cd = meta['comment-directive']
+  if cd then
+    return doc:walk(apply_cmnt_directives(cd))
+  end
+end
+
 -- apply filter_stream directive to cells
 function Div(el)
   if el.classes:includes("cell") then
@@ -30,13 +70,11 @@ function Div(el)
           end
         end
       })
-
     end
-
   end
-
 end
 
+
 function filter_lines(text, filter)
   local lines = pandoc.List()
   local code = text .. "\n"

example.qmd

@@ -0,0 +1,50 @@
+---
+title: "Code Visibility"
+author: Shafayet Khan Shafee
+date: last-modified
+format: html
+comment-directive: 
+    - "#>"
+    - "#>"
+filters: 
+  - code-visibility
+execute: 
+  echo: true
+  eval: false
+---
+
+## R
+
+```{r}
+#| message: false
+#> This is some hidden comment which is visible in code editor
+#> but not in rendered documents
+library(dplyr) 
+
+print("#>") #| hide_line
+#>
+#> more hidden comment
+mtcars %>% 
+  select(mpg, am ,vs) %>% 
+  group_by(vs) %>% 
+  summarise(mean(mpg))
+```
+
+## Javascript
+
+```{js}
+//> This is some hidden comment which is visible in code editor
+//> but not in rendered documents
+
+viewof bill_length_min = Inputs.range(
+  [32, 50], 
+  {value: 35, step: 1, label: "Bill length (min):"}
+)
+viewof islands = Inputs.checkbox(
+  ["Torgersen", "Biscoe", "Dream"], 
+  { value: ["Torgersen", "Biscoe"], 
+    label: "Islands:"
+  }
+)
+```
+