隐藏/折叠 revealjs Quarto 中的代码按钮

huangapple
go评论76阅读模式
英文:

Button to hide/fold code in revealjs Quarto

问题

I can help with the translation. Here's the content you provided:

我想在revealjs Quarto演示中使用code-fold选项，或类似的东西。当我们在代码块中使用这个选项时：

  1. ---
  2. title: "Code-fold in revealjs"
  3. format: revealjs
  4. code-fold: true
  5. ---
  7. ## 图表
  9. ```{r}
  10. #| code-fold: true
  11. #| code-summary: "展开查看完整代码"
  12. library(ggplot2)
  13. dat <- data.frame(cond = rep(c("A", "B"), each=10),
  14.                   xvar = 1:20 + rnorm(20,sd=3),
  15.                   yvar = 1:20 + rnorm(20,sd=3))
  17. ggplot(dat, aes(x=xvar, y=yvar)) +
  18.   geom_point(shape=1) + 
  19.   geom_smooth()

输出：

隐藏/折叠 revealjs Quarto 中的代码按钮

我们可以看到没有代码折叠按钮。所以我想知道是否有类似revealjs的选项？

英文:

I would like to use a code-fold option in a revealjs Quarto presentation, or something similar. When we use this option in a code chunk like this:

  1. ---
  2. title: "Code-fold in revealjs"
  3. format: revealjs
  4. code-fold: true
  5. ---
  7. ## Graph
  9. ```{r}
  10. #| code-fold: true
  11. #| code-summary: "expand for full code"
  12. library(ggplot2)
  13. dat <- data.frame(cond = rep(c("A", "B"), each=10),
  14.                   xvar = 1:20 + rnorm(20,sd=3),
  15.                   yvar = 1:20 + rnorm(20,sd=3))
  17. ggplot(dat, aes(x=xvar, y=yvar)) +
  18.   geom_point(shape=1) + 
  19.   geom_smooth() 
  20. ```

Output:

隐藏/折叠 revealjs Quarto 中的代码按钮

We can see there is no code-fold button. So I was wondering if anyone knows if there is an option like that in revealjs?

答案1

得分: 1

更新

只需使用 echo: true，无需使用 Lua 过滤器。

Quarto revealjs 格式默认使用 echo: false 用于每个代码块。这样默认情况下将不会起作用代码折叠（因为在呈现的幻灯片中没有要折叠的代码块）。

标题: "在 revealjs 中折叠代码"
格式: revealjs

图表

  1. #| echo: true
  2. #| code-fold: true
  3. #| code-summary: "展开查看完整代码"
  4. library(ggplot2)
  5. dat <- data.frame(cond = rep(c("A", "B"), each=10),
  6.                   xvar = 1:20 + rnorm(20,sd=3),
  7.                   yvar = 1:20 + rnorm(20,sd=3))
  9. ggplot(dat, aes(x=xvar, y=yvar)) +
  10.   geom_point(shape=1) + 
  11.   geom_smooth()

隐藏/折叠 revealjs Quarto 中的代码按钮

你可以使用以下 Lua 过滤器来添加代码折叠

标题: "在 revealjs 中折叠代码"
格式: revealjs
filters:

  • code-fold.lua

图表

  1. #| echo: true
  2. #| code-fold: true
  3. #| code-summary: "展开查看完整代码"
  4. library(ggplot2)
  5. dat <- data.frame(cond = rep(c("A", "B"), each=10),
  6.                   xvar = 1:20 + rnorm(20,sd=3),
  7.                   yvar = 1:20 + rnorm(20,sd=3))
  9. ggplot(dat, aes(x=xvar, y=yvar)) +
  10.   geom_point(shape=1) + 
  11.   geom_smooth()

code-fold.lua

  1. local str = pandoc.utils.stringify
  3. local template_fold_p1 = [[
  4. <details>
  5.   <summary>
  6.   %s
  7.   </summary>
  8. ]]
  10. local template_fold_p2 = [[
  11. %s
  12. </details>
  13. ]]
  15. function Div(el)
  16.   if el.attributes['code-fold'] then
  17.     local code_summary = str(el.attributes['code-summary'])
  18.     local fold = string.format(template_fold_p1, code_summary)
  19.     local fold_rb1 = pandoc.RawBlock('html', fold)
  20.     local fold_rb2 = pandoc.RawBlock('html', template_fold_p2)
  21.     el.content:insert(1, fold_rb1)
  22.     el.content:insert(fold_rb1)
  23.     return el
  24.   end
  25. end
英文:

Update

Just use echo: true, No need to use that Lua filter.

Quarto revealjs format by default uses echo: false for every chunk. That's code-folding will not work by default (because there is no code block to fold in the rendered slide).

  1. ---
  2. title: &quot;Code-fold in revealjs&quot;
  3. format: revealjs
  4. ---
  6. ## Graph
  8. ```{r}
  9. #| echo: true
  10. #| code-fold: true
  11. #| code-summary: &quot;expand for full code&quot;
  12. library(ggplot2)
  13. dat &lt;- data.frame(cond = rep(c(&quot;A&quot;, &quot;B&quot;), each=10),
  14.                   xvar = 1:20 + rnorm(20,sd=3),
  15.                   yvar = 1:20 + rnorm(20,sd=3))
  17. ggplot(dat, aes(x=xvar, y=yvar)) +
  18.   geom_point(shape=1) + 
  19.   geom_smooth() 
  20. ```

<hr>

隐藏/折叠 revealjs Quarto 中的代码按钮

<hr>

You can use the following Lua filter to add code folding

  1. ---
  2. title: &quot;Code-fold in revealjs&quot;
  3. format: revealjs
  4. filters: 
  5.   - code-fold.lua
  6. ---
  8. ## Graph
  10. ```{r}
  11. #| echo: true
  12. #| code-fold: true
  13. #| code-summary: &quot;expand for full code&quot;
  14. library(ggplot2)
  15. dat &lt;- data.frame(cond = rep(c(&quot;A&quot;, &quot;B&quot;), each=10),
  16.                   xvar = 1:20 + rnorm(20,sd=3),
  17.                   yvar = 1:20 + rnorm(20,sd=3))
  19. ggplot(dat, aes(x=xvar, y=yvar)) +
  20.   geom_point(shape=1) + 
  21.   geom_smooth() 
  22. ```

code-fold.lua

  1. local str = pandoc.utils.stringify
  3. local template_fold_p1 = [[
  4. &lt;details&gt;
  5.   &lt;summary&gt;
  6.   %s
  7.   &lt;/summary&gt;
  8. ]]
  10. local template_fold_p2 = [[
  11. %s
  12. &lt;/details&gt;
  13. ]]
  15. function Div(el)
  16.   if el.attributes[&#39;code-fold&#39;] then
  17.     local code_summary = str(el.attributes[&#39;code-summary&#39;])
  18.     local fold = string.format(template_fold_p1, code_summary)
  19.     local fold_rb1 = pandoc.RawBlock(&#39;html&#39;, fold)
  20.     local fold_rb2 = pandoc.RawBlock(&#39;html&#39;, template_fold_p2)
  21.     el.content:insert(1, fold_rb1)
  22.     el.content:insert(fold_rb1)
  23.     return el
  24.   end
  25. end

huangapple
  • 本文由 发表于 2023年4月17日 15:46:54
  • 转载请务必保留本文链接：https://go.coder-hub.com/76032786.html
  • code-folding
  • quarto
  • reveal.js
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定