autotests/reference/highlight.R.ref

0001 <Headline>## R Script Sample File</Headline><br/>
0002 <Headline>## Source: http://www.rexamples.com</Headline><br/>
0003 <Normal Text></Normal Text><br/>
0004 <Headline>## Basics</Headline><br/>
0005 <Normal Text>a </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Int>42</Int><br/>
0006 <Normal Text>A </Normal Text><Assign><-</Assign><Normal Text> a </Normal Text><Operator>*</Operator><Normal Text> </Normal Text><Int>2</Int><Normal Text>  </Normal Text><Comment># R is case sensitive</Comment><br/>
0007 <Keyword>print</Keyword><Symbol>(</Symbol><Normal Text>a</Normal Text><Symbol>)</Symbol><br/>
0008 <Keyword>cat</Keyword><Symbol>(</Symbol><Normal Text>A, </Normal Text><String>"</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><Normal Text> </Normal Text><Comment># "84" is concatenated with "\n"</Comment><br/>
0009 <Control Structure>if</Control Structure><Symbol>(</Symbol><Normal Text>A</Normal Text><Operator>></Operator><Normal Text>a</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Comment># true, 84 > 42</Comment><br/>
0010 <Symbol>{</Symbol><br/>
0011 <Normal Text>  </Normal Text><Keyword>cat</Keyword><Symbol>(</Symbol><Normal Text>A, </Normal Text><String>">"</String><Normal Text>, a, </Normal Text><String>"</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/>
0012 <Symbol>}</Symbol><br/>
0013 <Normal Text></Normal Text><br/>
0014 <Headline>## Functions</Headline><br/>
0015 <Normal Text>Square </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>(</Symbol><Normal Text>x</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Symbol>{</Symbol><br/>
0016 <Normal Text>  </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Normal Text>x</Normal Text><Operator>^</Operator><Int>2</Int><Symbol>)</Symbol><br/>
0017 <Symbol>}</Symbol><br/>
0018 <Normal Text></Normal Text><br/>
0019 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>Square</Keyword><Symbol>(</Symbol><Int>4</Int><Symbol>))</Symbol><br/>
0020 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>Square</Keyword><Symbol>(</Symbol><Identifier>x=</Identifier><Int>4</Int><Symbol>))</Symbol><Normal Text> </Normal Text><Comment># same thing</Comment><br/>
0021 <Normal Text></Normal Text><br/>
0022 <Keyword>DoSomething</Keyword><Symbol>(</Symbol><Identifier>color=</Identifier><String>"red"</String><Normal Text>,</Normal Text><Identifier>number=</Identifier><Int>55</Int><Symbol>)</Symbol><br/>
0023 <Normal Text></Normal Text><br/>
0024 <Headline>## Countdown</Headline><br/>
0025 <Normal Text>countdown </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>(</Symbol><Normal Text>from</Normal Text><Symbol>)</Symbol><br/>
0026 <Symbol>{</Symbol><br/>
0027 <Normal Text>  </Normal Text><Keyword>print</Keyword><Symbol>(</Symbol><Normal Text>from</Normal Text><Symbol>)</Symbol><br/>
0028 <Normal Text>  </Normal Text><Control Structure>while</Control Structure><Symbol>(</Symbol><Normal Text>from</Normal Text><Operator>!=</Operator><Int>0</Int><Symbol>)</Symbol><br/>
0029 <Normal Text>  </Normal Text><Symbol>{</Symbol><br/>
0030 <Normal Text>    </Normal Text><Keyword>Sys.sleep</Keyword><Symbol>(</Symbol><Int>1</Int><Symbol>)</Symbol><br/>
0031 <Normal Text>    from </Normal Text><Assign><-</Assign><Normal Text> from </Normal Text><Operator>-</Operator><Normal Text> </Normal Text><Int>1</Int><br/>
0032 <Normal Text>    </Normal Text><Keyword>print</Keyword><Symbol>(</Symbol><Normal Text>from</Normal Text><Symbol>)</Symbol><br/>
0033 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0034 <Symbol>}</Symbol><br/>
0035 <Normal Text></Normal Text><br/>
0036 <Keyword>countdown</Keyword><Symbol>(</Symbol><Int>5</Int><Symbol>)</Symbol><br/>
0037 <Normal Text></Normal Text><br/>
0038 <Headline>## Reading user input</Headline><br/>
0039 <Normal Text>readinteger </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>()</Symbol><br/>
0040 <Symbol>{</Symbol><br/>
0041 <Normal Text>  n </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readline</Keyword><Symbol>(</Symbol><Identifier>prompt=</Identifier><String>"Enter an integer: "</String><Symbol>)</Symbol><br/>
0042 <Normal Text>  n </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>as.integer</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>)</Symbol><br/>
0043 <Normal Text>  </Normal Text><Control Structure>if</Control Structure><Normal Text> </Normal Text><Symbol>(</Symbol><Keyword>is.na</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>)){</Symbol><br/>
0044 <Normal Text>    n </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readinteger</Keyword><Symbol>()</Symbol><br/>
0045 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0046 <Normal Text>  </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>)</Symbol><br/>
0047 <Symbol>}</Symbol><br/>
0048 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/>
0049 <Normal Text></Normal Text><br/>
0050 <Normal Text>readinteger </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>()</Symbol><br/>
0051 <Symbol>{</Symbol><br/>
0052 <Normal Text>  n </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readline</Keyword><Symbol>(</Symbol><Identifier>prompt=</Identifier><String>"Enter an integer: "</String><Symbol>)</Symbol><br/>
0053 <Normal Text>  </Normal Text><Control Structure>if</Control Structure><Symbol>(</Symbol><Operator>!</Operator><Keyword>grepl</Keyword><Symbol>(</Symbol><String>"^[0-9]+$"</String><Normal Text>,n</Normal Text><Symbol>))</Symbol><br/>
0054 <Normal Text>  </Normal Text><Symbol>{</Symbol><br/>
0055 <Normal Text>    </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/>
0056 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0057 <Normal Text></Normal Text><br/>
0058 <Normal Text>  </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>as.integer</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>))</Symbol><br/>
0059 <Symbol>}</Symbol><br/>
0060 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/>
0061 <Normal Text></Normal Text><br/>
0062 <Headline>## Guess a random number game</Headline><br/>
0063 <Normal Text>readinteger </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>()</Symbol><br/>
0064 <Symbol>{</Symbol><br/>
0065 <Normal Text>  n </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readline</Keyword><Symbol>(</Symbol><Identifier>prompt=</Identifier><String>"Enter an integer: "</String><Symbol>)</Symbol><br/>
0066 <Normal Text>  </Normal Text><Control Structure>if</Control Structure><Symbol>(</Symbol><Operator>!</Operator><Keyword>grepl</Keyword><Symbol>(</Symbol><String>"^[0-9]+$"</String><Normal Text>,n</Normal Text><Symbol>))</Symbol><br/>
0067 <Normal Text>  </Normal Text><Symbol>{</Symbol><br/>
0068 <Normal Text>    </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/>
0069 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0070 <Normal Text>  </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>as.integer</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>))</Symbol><br/>
0071 <Symbol>}</Symbol><br/>
0072 <Normal Text></Normal Text><br/>
0073 <Comment># real program start here</Comment><br/>
0074 <Normal Text></Normal Text><br/>
0075 <Normal Text>num </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>round</Keyword><Symbol>(</Symbol><Keyword>runif</Keyword><Symbol>(</Symbol><Int>1</Int><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>*</Operator><Normal Text> </Normal Text><Int>100</Int><Normal Text>, </Normal Text><Identifier>digits =</Identifier><Normal Text> </Normal Text><Int>0</Int><Symbol>)</Symbol><br/>
0076 <Normal Text>guess </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Operator>-</Operator><Int>1</Int><br/>
0077 <Normal Text></Normal Text><br/>
0078 <Keyword>cat</Keyword><Symbol>(</Symbol><String>"Guess a number between 0 and 100.</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/>
0079 <Normal Text></Normal Text><br/>
0080 <Control Structure>while</Control Structure><Symbol>(</Symbol><Normal Text>guess </Normal Text><Operator>!=</Operator><Normal Text> num</Normal Text><Symbol>)</Symbol><br/>
0081 <Symbol>{</Symbol><br/>
0082 <Normal Text>  guess </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readinteger</Keyword><Symbol>()</Symbol><br/>
0083 <Normal Text>  </Normal Text><Control Structure>if</Control Structure><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>guess </Normal Text><Operator>==</Operator><Normal Text> num</Normal Text><Symbol>)</Symbol><br/>
0084 <Normal Text>  </Normal Text><Symbol>{</Symbol><br/>
0085 <Normal Text>    </Normal Text><Keyword>cat</Keyword><Symbol>(</Symbol><String>"Congratulations,"</String><Normal Text>, num, </Normal Text><String>"is right.</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/>
0086 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0087 <Normal Text>  </Normal Text><Control Structure>else</Control Structure><Normal Text> </Normal Text><Control Structure>if</Control Structure><Normal Text> </Normal Text><Symbol>(</Symbol><Normal Text>guess </Normal Text><Operator><</Operator><Normal Text> num</Normal Text><Symbol>)</Symbol><br/>
0088 <Normal Text>  </Normal Text><Symbol>{</Symbol><br/>
0089 <Normal Text>    </Normal Text><Keyword>cat</Keyword><Symbol>(</Symbol><String>"It's bigger!</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/>
0090 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0091 <Normal Text>  </Normal Text><Control Structure>else</Control Structure><Normal Text> </Normal Text><Control Structure>if</Control Structure><Symbol>(</Symbol><Normal Text>guess </Normal Text><Operator>></Operator><Normal Text> num</Normal Text><Symbol>)</Symbol><br/>
0092 <Normal Text>  </Normal Text><Symbol>{</Symbol><br/>
0093 <Normal Text>    </Normal Text><Keyword>cat</Keyword><Symbol>(</Symbol><String>"It's smaller!</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/>
0094 <Normal Text>  </Normal Text><Symbol>}</Symbol><br/>
0095 <Symbol>}</Symbol><br/>
0096 <Normal Text></Normal Text><br/>
0097 <Headline>## Lists</Headline><br/>
0098 <Keyword>sum</Keyword><Symbol>(</Symbol><Int>0</Int><Operator>:</Operator><Int>9</Int><Symbol>)</Symbol><br/>
0099 <Keyword>append</Keyword><Symbol>(</Symbol><Normal Text>LETTERS</Normal Text><Symbol>[</Symbol><Int>1</Int><Operator>:</Operator><Int>13</Int><Symbol>]</Symbol><Normal Text>,letters</Normal Text><Symbol>[</Symbol><Int>14</Int><Operator>:</Operator><Int>26</Int><Symbol>])</Symbol><br/>
0100 <Keyword>c</Keyword><Symbol>(</Symbol><Int>1</Int><Normal Text>,</Normal Text><Int>6</Int><Normal Text>,</Normal Text><Int>4</Int><Normal Text>,</Normal Text><Int>9</Int><Symbol>)</Symbol><Operator>*</Operator><Int>2</Int><br/>
0101 <Normal Text>something </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>c</Keyword><Symbol>(</Symbol><Int>1</Int><Normal Text>,</Normal Text><Int>4</Int><Normal Text>,letters</Normal Text><Symbol>[</Symbol><Int>2</Int><Symbol>])</Symbol><Normal Text>  </Normal Text><Comment># indices start at one, you get (1,4,"b")</Comment><br/>
0102 <Keyword>length</Keyword><Symbol>(</Symbol><Normal Text>something</Normal Text><Symbol>)</Symbol><br/>
0103 <Normal Text></Normal Text><br/>
0104 <Headline>## margrittr's pipe</Headline><br/>
0105 <Normal Text>diamonds </Normal Text><Operator>%>%</Operator><br/>
0106 <Normal Text>  </Normal Text><Keyword>filter</Keyword><Symbol>(</Symbol><Normal Text>price </Normal Text><Operator>></Operator><Normal Text> </Normal Text><Int>1000</Int><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><br/>
0107 <Normal Text>  </Normal Text><Keyword>group_by</Keyword><Symbol>(</Symbol><Normal Text>cut</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><br/>
0108 <Normal Text>  </Normal Text><Keyword>tally</Keyword><Symbol>()</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><Normal Text> </Normal Text><br/>
0109 <Normal Text>  </Normal Text><Keyword>rename</Keyword><Symbol>(</Symbol><Identifier>tally =</Identifier><Normal Text> n</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><Normal Text> </Normal Text><br/>
0110 <Normal Text>  </Normal Text><Keyword>arrange</Keyword><Symbol>(</Symbol><Operator>-</Operator><Normal Text>tally</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><Normal Text> </Normal Text><br/>
0111 <Normal Text>  </Normal Text><Keyword>mutate</Keyword><Symbol>(</Symbol><Identifier>pct =</Identifier><Normal Text> tally </Normal Text><Operator>/</Operator><Normal Text> </Normal Text><Keyword>sum</Keyword><Symbol>(</Symbol><Normal Text>tally</Normal Text><Symbol>))</Symbol><Normal Text> </Normal Text><Assign>-></Assign><Normal Text> df</Normal Text><br/>
0112 <Normal Text></Normal Text><br/>
0113 <Headline>## R native pipes (R > 4.1)</Headline><br/>
0114 <Keyword>Sys.setenv</Keyword><Symbol>(</Symbol><String>"_R_USE_PIPEBIND_"</String><Assign>=</Assign><Normal Text> </Normal Text><Reserved Words>TRUE</Reserved Words><Symbol>)</Symbol><br/>
0115 <Normal Text>mtcars </Normal Text><Operator>|></Operator><Normal Text> x </Normal Text><Operator>=></Operator><Normal Text> </Normal Text><Keyword>lm</Keyword><Symbol>(</Symbol><Normal Text>mpg </Normal Text><Operator>~</Operator><Normal Text> cyl, </Normal Text><Identifier>data =</Identifier><Normal Text> x</Normal Text><Symbol>)</Symbol><br/>
0116 <Normal Text></Normal Text><br/>
0117 <Headline>## ggplot2 </Headline><br/>
0118 <Normal Text>plot </Normal Text><Assign>=</Assign><Normal Text> </Normal Text><Keyword>ggplot</Keyword><Symbol>(</Symbol><Normal Text>diamonds, </Normal Text><Keyword>aes</Keyword><Symbol>(</Symbol><Identifier>x =</Identifier><Normal Text> price, </Normal Text><Identifier>y =</Identifier><Normal Text> carat</Normal Text><Symbol>))</Symbol><Normal Text> </Normal Text><Operator>+</Operator><br/>
0119 <Normal Text>  </Normal Text><Keyword>geom_point</Keyword><Symbol>(</Symbol><Identifier>alpha =</Identifier><Normal Text> </Normal Text><Float>0.3</Float><Normal Text>, </Normal Text><Identifier>colour =</Identifier><Normal Text> </Normal Text><String>'steelblue'</String><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>+</Operator><br/>
0120 <Normal Text>  </Normal Text><Keyword>labs</Keyword><Symbol>(</Symbol><br/>
0121 <Normal Text>    </Normal Text><Identifier>title =</Identifier><Normal Text> </Normal Text><String>"ggplot diamonds"</String><Normal Text>,</Normal Text><br/>
0122 <Normal Text>    </Normal Text><Identifier>x =</Identifier><Normal Text> </Normal Text><String>"Price, $"</String><Normal Text>,</Normal Text><br/>
0123 <Normal Text>    </Normal Text><Identifier>y =</Identifier><Normal Text> </Normal Text><String>"Carat"</String><br/>
0124 <Normal Text>  </Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>+</Operator><br/>
0125 <Normal Text>  </Normal Text><Keyword>facet_wrap</Keyword><Symbol>(</Symbol><Operator>~</Operator><Normal Text> cut</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>+</Operator><br/>
0126 <Normal Text>  </Normal Text><Keyword>theme_minimal</Keyword><Symbol>()</Symbol><br/>
0127 <Normal Text></Normal Text><br/>
0128 <Normal Text>plot </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><Keyword>coord_flip</Keyword><Symbol>()</Symbol><br/>