CodeMirror htmlwidget for R

This is an early version of a R htmlwidget version of CodeMirror by Marijn Haverbeke.

Installation

devtools::install_github("timelyportfolio/codemirrorR")

Examples

Simple

library(codemirrorR)

codemirror("hi")

AخA
 
hi

Mode

library(codemirrorR)

codemirror(
  "
  library(codemirror)
  
  codemirror('hi')
  ",
  mode = "r"
)

​x
 
​
  library(codemirror)
  
  codemirror('hi')
  

library(codemirrorR)

codemirror(
  system.file(
    "htmlwidgets/codemirror.js",
    package = "codemirrorR"
  ),
  mode = "javascript",
  width = "100%",
  height = "400px"
)

 
HTMLWidgets.widget({
​
  name: 'codemirror',
​
  type: 'output',
​
  factory: function(el, width, height) {
​
    return {
      
      editor : {},
      
      renderValue: function(x) {
        
        el.style.overflow = "scroll";
        
        var editor = CodeMirror(el, x);
        
        this.editor = editor;
        
      },
      
      resize: function(width, height) {
​
      }
      
    };
​
  }
});

library(codemirrorR)
library(xml2)
## Warning: package 'xml2' was built under R version 3.2.3
# ?xml2::readxml
cd <- read_xml("//www.xmlfiles.com/examples/cd_catalog.xml")

codemirror(cd, mode = "xml", width = "100%", height = "400px")

 
<?xml version="1.0" encoding="ISO8859-1"?>
<CATALOG>
  <CD>
    <TITLE>Empire Burlesque</TITLE>
    <ARTIST>Bob Dylan</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>Columbia</COMPANY>
    <PRICE>10.90</PRICE>
    <YEAR>1985</YEAR>
  </CD>
  <CD>
    <TITLE>Hide your heart</TITLE>
    <ARTIST>Bonnie Tylor</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>CBS Records</COMPANY>
    <PRICE>9.90</PRICE>
    <YEAR>1988</YEAR>
  </CD>
  <CD>
    <TITLE>Greatest Hits</TITLE>
    <ARTIST>Dolly Parton</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>RCA</COMPANY>
    <PRICE>9.90</PRICE>
    <YEAR>1982</YEAR>
  </CD>
  <CD>
    <TITLE>Still got the blues</TITLE>
    <ARTIST>Gary More</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Virgin redords</COMPANY>
    <PRICE>10.20</PRICE>
    <YEAR>1990</YEAR>
  </CD>
  <CD>
    <TITLE>Eros</TITLE>
    <ARTIST>Eros Ramazzotti</ARTIST>
    <COUNTRY>EU</COUNTRY>
    <COMPANY>BMG</COMPANY>
    <PRICE>9.90</PRICE>
    <YEAR>1997</YEAR>
  </CD>
  <CD>
    <TITLE>One night only</TITLE>
    <ARTIST>Bee Gees</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Polydor</COMPANY>
    <PRICE>10.90</PRICE>
    <YEAR>1998</YEAR>
  </CD>
  <CD>
    <TITLE>Sylvias Mother</TITLE>
    <ARTIST>Dr.Hook</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>CBS</COMPANY>
    <PRICE>8.10</PRICE>
    <YEAR>1973</YEAR>
  </CD>
  <CD>
    <TITLE>Maggie May</TITLE>
    <ARTIST>Rod Stewart</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Pickwick</COMPANY>
    <PRICE>8.50</PRICE>
    <YEAR>1990</YEAR>
  </CD>
  <CD>
    <TITLE>Romanza</TITLE>
    <ARTIST>Andrea Bocelli</ARTIST>
    <COUNTRY>EU</COUNTRY>
    <COMPANY>Polydor</COMPANY>
    <PRICE>10.80</PRICE>
    <YEAR>1996</YEAR>
  </CD>
  <CD>
    <TITLE>When a man loves a woman</TITLE>
    <ARTIST>Percy Sledge</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>Atlantic</COMPANY>
    <PRICE>8.70</PRICE>
    <YEAR>1987</YEAR>
  </CD>
  <CD>
    <TITLE>Black angel</TITLE>
    <ARTIST>Savage Rose</ARTIST>
    <COUNTRY>EU</COUNTRY>
    <COMPANY>Mega</COMPANY>
    <PRICE>10.90</PRICE>
    <YEAR>1995</YEAR>
  </CD>
  <CD>
    <TITLE>1999 Grammy Nominees</TITLE>
    <ARTIST>Many</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>Grammy</COMPANY>
    <PRICE>10.20</PRICE>
    <YEAR>1999</YEAR>
  </CD>
  <CD>
    <TITLE>For the good times</TITLE>
    <ARTIST>Kenny Rogers</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Mucik Master</COMPANY>
    <PRICE>8.70</PRICE>
    <YEAR>1995</YEAR>
  </CD>
  <CD>
    <TITLE>Big Willie style</TITLE>
    <ARTIST>Will Smith</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>Columbia</COMPANY>
    <PRICE>9.90</PRICE>
    <YEAR>1997</YEAR>
  </CD>
  <CD>
    <TITLE>Tupelo Honey</TITLE>
    <ARTIST>Van Morrison</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Polydor</COMPANY>
    <PRICE>8.20</PRICE>
    <YEAR>1971</YEAR>
  </CD>
  <CD>
    <TITLE>Soulsville</TITLE>
    <ARTIST>Jorn Hoel</ARTIST>
    <COUNTRY>Norway</COUNTRY>
    <COMPANY>WEA</COMPANY>
    <PRICE>7.90</PRICE>
    <YEAR>1996</YEAR>
  </CD>
  <CD>
    <TITLE>The very best of</TITLE>
    <ARTIST>Cat Stevens</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Island</COMPANY>
    <PRICE>8.90</PRICE>
    <YEAR>1990</YEAR>
  </CD>
  <CD>
    <TITLE>Stop</TITLE>
    <ARTIST>Sam Brown</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>A and M</COMPANY>
    <PRICE>8.90</PRICE>
    <YEAR>1988</YEAR>
  </CD>
  <CD>
    <TITLE>Bridge of Spies</TITLE>
    <ARTIST>T`Pau</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Siren</COMPANY>
    <PRICE>7.90</PRICE>
    <YEAR>1987</YEAR>
  </CD>
  <CD>
    <TITLE>Private Dancer</TITLE>
    <ARTIST>Tina Turner</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>Capitol</COMPANY>
    <PRICE>8.90</PRICE>
    <YEAR>1983</YEAR>
  </CD>
  <CD>
    <TITLE>Midt om natten</TITLE>
    <ARTIST>Kim Larsen</ARTIST>
    <COUNTRY>EU</COUNTRY>
    <COMPANY>Medley</COMPANY>
    <PRICE>7.80</PRICE>
    <YEAR>1983</YEAR>
  </CD>
  <CD>
    <TITLE>Pavarotti Gala Concert</TITLE>
    <ARTIST>Luciano Pavarotti</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>DECCA</COMPANY>
    <PRICE>9.90</PRICE>
    <YEAR>1991</YEAR>
  </CD>
  <CD>
    <TITLE>The dock of the bay</TITLE>
    <ARTIST>Otis Redding</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>Atlantic</COMPANY>
    <PRICE>7.90</PRICE>
    <YEAR>1987</YEAR>
  </CD>
  <CD>
    <TITLE>Picture book</TITLE>
    <ARTIST>Simply Red</ARTIST>
    <COUNTRY>EU</COUNTRY>
    <COMPANY>Elektra</COMPANY>
    <PRICE>7.20</PRICE>
    <YEAR>1985</YEAR>
  </CD>
  <CD>
    <TITLE>Red</TITLE>
    <ARTIST>The Communards</ARTIST>
    <COUNTRY>UK</COUNTRY>
    <COMPANY>London</COMPANY>
    <PRICE>7.80</PRICE>
    <YEAR>1987</YEAR>
  </CD>
  <CD>
    <TITLE>Unchain my heart</TITLE>
    <ARTIST>Joe Cocker</ARTIST>
    <COUNTRY>USA</COUNTRY>
    <COMPANY>EMI</COMPANY>
    <PRICE>8.20</PRICE>
    <YEAR>1987</YEAR>
  </CD>
</CATALOG>
​

Themes

library(codemirrorR)

codemirror(
  system.file(
    "htmlwidgets/codemirror.js",
    package = "codemirrorR"
  ),
  mode = "javascript",
  theme = "night"
)

 
HTMLWidgets.widget({
​
  name: 'codemirror',
​
  type: 'output',
​
  factory: function(el, width, height) {
​
    return {
      
      editor : {},
      
      renderValue: function(x) {
        
        el.style.overflow = "scroll";
        
        var editor = CodeMirror(el, x);
        
        this.editor = editor;
        
      },
      
      resize: function(width, height) {
​
      }
      
    };
​
  }
});

Addons

will add much better support for addons

xml folding 

library(codemirrorR)
library(xml2)

# ?xml2::readxml
cd <- read_xml("//www.xmlfiles.com/examples/cd_catalog.xml")

cm <- codemirror(
  cd,
  mode = "xml",
  lineNumbers = TRUE
)

cm_foldcode(cm, "xml-fold")

212
 
1
<?xml version="1.0" encoding="ISO8859-1"?>
2
<CATALOG>
3
  <CD>
4
    <TITLE>Empire Burlesque</TITLE>
5
    <ARTIST>Bob Dylan</ARTIST>
6
    <COUNTRY>USA</COUNTRY>
7
    <COMPANY>Columbia</COMPANY>
8
    <PRICE>10.90</PRICE>
9
    <YEAR>1985</YEAR>
10
  </CD>
11
  <CD>
12
    <TITLE>Hide your heart</TITLE>
13
    <ARTIST>Bonnie Tylor</ARTIST>
14
    <COUNTRY>UK</COUNTRY>
15
    <COMPANY>CBS Records</COMPANY>
16
    <PRICE>9.90</PRICE>
17
    <YEAR>1988</YEAR>
18
  </CD>
19
  <CD>
20
    <TITLE>Greatest Hits</TITLE>
21
    <ARTIST>Dolly Parton</ARTIST>
22
    <COUNTRY>USA</COUNTRY>
23
    <COMPANY>RCA</COMPANY>
24
    <PRICE>9.90</PRICE>
25
    <YEAR>1982</YEAR>
26
  </CD>
27
  <CD>
28
    <TITLE>Still got the blues</TITLE>
29
    <ARTIST>Gary More</ARTIST>
30
    <COUNTRY>UK</COUNTRY>
31
    <COMPANY>Virgin redords</COMPANY>
32
    <PRICE>10.20</PRICE>
33
    <YEAR>1990</YEAR>
34
  </CD>
35
  <CD>
36
    <TITLE>Eros</TITLE>
37
    <ARTIST>Eros Ramazzotti</ARTIST>
38
    <COUNTRY>EU</COUNTRY>
39
    <COMPANY>BMG</COMPANY>
40
    <PRICE>9.90</PRICE>
41
    <YEAR>1997</YEAR>
42
  </CD>
43
  <CD>
44
    <TITLE>One night only</TITLE>
45
    <ARTIST>Bee Gees</ARTIST>
46
    <COUNTRY>UK</COUNTRY>
47
    <COMPANY>Polydor</COMPANY>
48
    <PRICE>10.90</PRICE>
49
    <YEAR>1998</YEAR>
50
  </CD>
51
  <CD>
52
    <TITLE>Sylvias Mother</TITLE>
53
    <ARTIST>Dr.Hook</ARTIST>
54
    <COUNTRY>UK</COUNTRY>
55
    <COMPANY>CBS</COMPANY>
56
    <PRICE>8.10</PRICE>
57
    <YEAR>1973</YEAR>
58
  </CD>
59
  <CD>
60
    <TITLE>Maggie May</TITLE>
61
    <ARTIST>Rod Stewart</ARTIST>
62
    <COUNTRY>UK</COUNTRY>
63
    <COMPANY>Pickwick</COMPANY>
64
    <PRICE>8.50</PRICE>
65
    <YEAR>1990</YEAR>
66
  </CD>
67
  <CD>
68
    <TITLE>Romanza</TITLE>
69
    <ARTIST>Andrea Bocelli</ARTIST>
70
    <COUNTRY>EU</COUNTRY>
71
    <COMPANY>Polydor</COMPANY>
72
    <PRICE>10.80</PRICE>
73
    <YEAR>1996</YEAR>
74
  </CD>
75
  <CD>
76
    <TITLE>When a man loves a woman</TITLE>
77
    <ARTIST>Percy Sledge</ARTIST>
78
    <COUNTRY>USA</COUNTRY>
79
    <COMPANY>Atlantic</COMPANY>
80
    <PRICE>8.70</PRICE>
81
    <YEAR>1987</YEAR>
82
  </CD>
83
  <CD>
84
    <TITLE>Black angel</TITLE>
85
    <ARTIST>Savage Rose</ARTIST>
86
    <COUNTRY>EU</COUNTRY>
87
    <COMPANY>Mega</COMPANY>
88
    <PRICE>10.90</PRICE>
89
    <YEAR>1995</YEAR>
90
  </CD>
91
  <CD>
92
    <TITLE>1999 Grammy Nominees</TITLE>
93
    <ARTIST>Many</ARTIST>
94
    <COUNTRY>USA</COUNTRY>
95
    <COMPANY>Grammy</COMPANY>
96
    <PRICE>10.20</PRICE>
97
    <YEAR>1999</YEAR>
98
  </CD>
99
  <CD>
100
    <TITLE>For the good times</TITLE>
101
    <ARTIST>Kenny Rogers</ARTIST>
102
    <COUNTRY>UK</COUNTRY>
103
    <COMPANY>Mucik Master</COMPANY>
104
    <PRICE>8.70</PRICE>
105
    <YEAR>1995</YEAR>
106
  </CD>
107
  <CD>
108
    <TITLE>Big Willie style</TITLE>
109
    <ARTIST>Will Smith</ARTIST>
110
    <COUNTRY>USA</COUNTRY>
111
    <COMPANY>Columbia</COMPANY>
112
    <PRICE>9.90</PRICE>
113
    <YEAR>1997</YEAR>
114
  </CD>
115
  <CD>
116
    <TITLE>Tupelo Honey</TITLE>
117
    <ARTIST>Van Morrison</ARTIST>
118
    <COUNTRY>UK</COUNTRY>
119
    <COMPANY>Polydor</COMPANY>
120
    <PRICE>8.20</PRICE>
121
    <YEAR>1971</YEAR>
122
  </CD>
123
  <CD>
124
    <TITLE>Soulsville</TITLE>
125
    <ARTIST>Jorn Hoel</ARTIST>
126
    <COUNTRY>Norway</COUNTRY>
127
    <COMPANY>WEA</COMPANY>
128
    <PRICE>7.90</PRICE>
129
    <YEAR>1996</YEAR>
130
  </CD>
131
  <CD>
132
    <TITLE>The very best of</TITLE>
133
    <ARTIST>Cat Stevens</ARTIST>
134
    <COUNTRY>UK</COUNTRY>
135
    <COMPANY>Island</COMPANY>
136
    <PRICE>8.90</PRICE>
137
    <YEAR>1990</YEAR>
138
  </CD>
139
  <CD>
140
    <TITLE>Stop</TITLE>
141
    <ARTIST>Sam Brown</ARTIST>
142
    <COUNTRY>UK</COUNTRY>
143
    <COMPANY>A and M</COMPANY>
144
    <PRICE>8.90</PRICE>
145
    <YEAR>1988</YEAR>
146
  </CD>
147
  <CD>
148
    <TITLE>Bridge of Spies</TITLE>
149
    <ARTIST>T`Pau</ARTIST>
150
    <COUNTRY>UK</COUNTRY>
151
    <COMPANY>Siren</COMPANY>
152
    <PRICE>7.90</PRICE>
153
    <YEAR>1987</YEAR>
154
  </CD>
155
  <CD>
156
    <TITLE>Private Dancer</TITLE>
157
    <ARTIST>Tina Turner</ARTIST>
158
    <COUNTRY>UK</COUNTRY>
159
    <COMPANY>Capitol</COMPANY>
160
    <PRICE>8.90</PRICE>
161
    <YEAR>1983</YEAR>
162
  </CD>
163
  <CD>
164
    <TITLE>Midt om natten</TITLE>
165
    <ARTIST>Kim Larsen</ARTIST>
166
    <COUNTRY>EU</COUNTRY>
167
    <COMPANY>Medley</COMPANY>
168
    <PRICE>7.80</PRICE>
169
    <YEAR>1983</YEAR>
170
  </CD>
171
  <CD>
172
    <TITLE>Pavarotti Gala Concert</TITLE>
173
    <ARTIST>Luciano Pavarotti</ARTIST>
174
    <COUNTRY>UK</COUNTRY>
175
    <COMPANY>DECCA</COMPANY>
176
    <PRICE>9.90</PRICE>
177
    <YEAR>1991</YEAR>
178
  </CD>
179
  <CD>
180
    <TITLE>The dock of the bay</TITLE>
181
    <ARTIST>Otis Redding</ARTIST>
182
    <COUNTRY>USA</COUNTRY>
183
    <COMPANY>Atlantic</COMPANY>
184
    <PRICE>7.90</PRICE>
185
    <YEAR>1987</YEAR>
186
  </CD>
187
  <CD>
188
    <TITLE>Picture book</TITLE>
189
    <ARTIST>Simply Red</ARTIST>
190
    <COUNTRY>EU</COUNTRY>
191
    <COMPANY>Elektra</COMPANY>
192
    <PRICE>7.20</PRICE>
193
    <YEAR>1985</YEAR>
194
  </CD>
195
  <CD>
196
    <TITLE>Red</TITLE>
197
    <ARTIST>The Communards</ARTIST>
198
    <COUNTRY>UK</COUNTRY>
199
    <COMPANY>London</COMPANY>
200
    <PRICE>7.80</PRICE>
201
    <YEAR>1987</YEAR>
202
  </CD>
203
  <CD>
204
    <TITLE>Unchain my heart</TITLE>
205
    <ARTIST>Joe Cocker</ARTIST>
206
    <COUNTRY>USA</COUNTRY>
207
    <COMPANY>EMI</COMPANY>
208
    <PRICE>8.20</PRICE>
209
    <YEAR>1987</YEAR>
210
  </CD>
211
</CATALOG>
212
​

brace folding 

# brace fold
library(pipeR)

codemirror(
  system.file(
    "htmlwidgets/codemirror.js",
    package = "codemirrorR"
  ),
  mode = "javascript",
  theme = "night"
) %>>% cm_foldcode("brace-fold")

30
 
1
HTMLWidgets.widget({
2
​
3
  name: 'codemirror',
4
​
5
  type: 'output',
6
​
7
  factory: function(el, width, height) {
8
​
9
    return {
10
11
      editor : {},
12
13
      renderValue: function(x) {
14
15
        el.style.overflow = "scroll";
16
17
        var editor = CodeMirror(el, x);
18
19
        this.editor = editor;
20
21
      },
22
23
      resize: function(width, height) {
24
​
25
      }
26
27
    };
28
​
29
  }
30
});

Praise, Thanks, and Attribution

For those of you who don’t know the incredible work of Marijn Haverbeke, go see it and fund him. Thanks Marijn!