JupyterLabにてスクリプトを非表示にする in R

JupyterLabで資料共有するときに、スクリプトが邪魔なので非表示にしたいと思いました。

KernelがPythonの場合については、下記にやり方が書いてあります。

しかし、今回はKernelとしてRを使用していたので、これをそのまま使うことはできませんでした。

ググったところ、R使用時にHTMLを挿入する方法を見つけました。

これを使って、以下のようにR用のコードを書いたところ、うまくいきました。

sample.r

library(IRdisplay)

display_html("
<script src='//code.jquery.com/jquery-3.3.1.min.js'></script>
<script>
code_show=true; 
function code_toggle() {
 if (code_show){
 $('div.input').hide();
 $('div .jp-CodeCell .jp-Cell-inputWrapper').hide();
 } else {
 $('div.input').show();
 $('div .jp-CodeCell .jp-Cell-inputWrapper').show();
 }
 code_show = !code_show
}
$( document ).ready(code_toggle);
</script>
<form action=\"javascript:code_toggle()\"><input type=\"submit\" value=\"Code on/off\"></form>")

めでたしめでたし。