Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.R.ref is written in an unsupported language. File is not indexed.
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><Float>42.24</Float><br/> 0006 <Normal Text>a </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Int>42</Int><Numeric Suffix>i</Numeric Suffix><br/> 0007 <Normal Text>a </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Int>42</Int><Numeric Suffix>L</Numeric Suffix><br/> 0008 <Normal Text>a </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Int>42</Int><br/> 0009 <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/> 0010 <Keyword>print</Keyword><Symbol>(</Symbol><Normal Text>a</Normal Text><Symbol>)</Symbol><br/> 0011 <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/> 0012 <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/> 0013 <Symbol>{</Symbol><br/> 0014 <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/> 0015 <Symbol>}</Symbol><br/> 0016 <Normal Text></Normal Text><br/> 0017 <Headline>## Functions</Headline><br/> 0018 <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/> 0019 <Normal Text> </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Normal Text>x</Normal Text><Operator>^</Operator><Int>2</Int><Symbol>)</Symbol><br/> 0020 <Symbol>}</Symbol><br/> 0021 <Normal Text></Normal Text><br/> 0022 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>Square</Keyword><Symbol>(</Symbol><Int>4</Int><Symbol>))</Symbol><br/> 0023 <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/> 0024 <Normal Text></Normal Text><br/> 0025 <Keyword>DoSomething</Keyword><Symbol>(</Symbol><Identifier>color=</Identifier><String>"red"</String><Normal Text>,</Normal Text><Identifier>number=</Identifier><Int>55</Int><Symbol>)</Symbol><br/> 0026 <Normal Text></Normal Text><br/> 0027 <Headline>## Countdown</Headline><br/> 0028 <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/> 0029 <Symbol>{</Symbol><br/> 0030 <Normal Text> </Normal Text><Keyword>print</Keyword><Symbol>(</Symbol><Normal Text>from</Normal Text><Symbol>)</Symbol><br/> 0031 <Normal Text> </Normal Text><Control Structure>while</Control Structure><Symbol>(</Symbol><Normal Text>from</Normal Text><Operator>!=</Operator><Int>0</Int><Symbol>)</Symbol><br/> 0032 <Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0033 <Normal Text> </Normal Text><Keyword>Sys.sleep</Keyword><Symbol>(</Symbol><Int>1</Int><Symbol>)</Symbol><br/> 0034 <Normal Text> from </Normal Text><Assign><-</Assign><Normal Text> from </Normal Text><Operator>-</Operator><Normal Text> </Normal Text><Int>1</Int><br/> 0035 <Normal Text> </Normal Text><Keyword>print</Keyword><Symbol>(</Symbol><Normal Text>from</Normal Text><Symbol>)</Symbol><br/> 0036 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0037 <Symbol>}</Symbol><br/> 0038 <Normal Text></Normal Text><br/> 0039 <Keyword>countdown</Keyword><Symbol>(</Symbol><Int>5</Int><Symbol>)</Symbol><br/> 0040 <Normal Text></Normal Text><br/> 0041 <Headline>## Reading user input</Headline><br/> 0042 <Normal Text>readinteger </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>()</Symbol><br/> 0043 <Symbol>{</Symbol><br/> 0044 <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/> 0045 <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/> 0046 <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/> 0047 <Normal Text> n </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readinteger</Keyword><Symbol>()</Symbol><br/> 0048 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0049 <Normal Text> </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>)</Symbol><br/> 0050 <Symbol>}</Symbol><br/> 0051 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/> 0052 <Normal Text></Normal Text><br/> 0053 <Normal Text>readinteger </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>()</Symbol><br/> 0054 <Symbol>{</Symbol><br/> 0055 <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/> 0056 <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/> 0057 <Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0058 <Normal Text> </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/> 0059 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0060 <Normal Text></Normal Text><br/> 0061 <Normal Text> </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>as.integer</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>))</Symbol><br/> 0062 <Symbol>}</Symbol><br/> 0063 <Keyword>print</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/> 0064 <Normal Text></Normal Text><br/> 0065 <Headline>## Guess a random number game</Headline><br/> 0066 <Normal Text>readinteger </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Control Structure>function</Control Structure><Symbol>()</Symbol><br/> 0067 <Symbol>{</Symbol><br/> 0068 <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/> 0069 <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/> 0070 <Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0071 <Normal Text> </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>readinteger</Keyword><Symbol>())</Symbol><br/> 0072 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0073 <Normal Text> </Normal Text><Keyword>return</Keyword><Symbol>(</Symbol><Keyword>as.integer</Keyword><Symbol>(</Symbol><Normal Text>n</Normal Text><Symbol>))</Symbol><br/> 0074 <Symbol>}</Symbol><br/> 0075 <Normal Text></Normal Text><br/> 0076 <Comment># real program start here</Comment><br/> 0077 <Normal Text></Normal Text><br/> 0078 <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/> 0079 <Normal Text>guess </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Operator>-</Operator><Int>1</Int><br/> 0080 <Normal Text></Normal Text><br/> 0081 <Keyword>cat</Keyword><Symbol>(</Symbol><String>"Guess a number between 0 and 100.</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/> 0082 <Normal Text></Normal Text><br/> 0083 <Control Structure>while</Control Structure><Symbol>(</Symbol><Normal Text>guess </Normal Text><Operator>!=</Operator><Normal Text> num</Normal Text><Symbol>)</Symbol><br/> 0084 <Symbol>{</Symbol><br/> 0085 <Normal Text> guess </Normal Text><Assign><-</Assign><Normal Text> </Normal Text><Keyword>readinteger</Keyword><Symbol>()</Symbol><br/> 0086 <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/> 0087 <Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0088 <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/> 0089 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0090 <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/> 0091 <Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0092 <Normal Text> </Normal Text><Keyword>cat</Keyword><Symbol>(</Symbol><String>"It's bigger!</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/> 0093 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0094 <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/> 0095 <Normal Text> </Normal Text><Symbol>{</Symbol><br/> 0096 <Normal Text> </Normal Text><Keyword>cat</Keyword><Symbol>(</Symbol><String>"It's smaller!</String><String Char>\n</String Char><String>"</String><Symbol>)</Symbol><br/> 0097 <Normal Text> </Normal Text><Symbol>}</Symbol><br/> 0098 <Symbol>}</Symbol><br/> 0099 <Normal Text></Normal Text><br/> 0100 <Headline>## Lists</Headline><br/> 0101 <Keyword>sum</Keyword><Symbol>(</Symbol><Int>0</Int><Operator>:</Operator><Int>9</Int><Symbol>)</Symbol><br/> 0102 <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/> 0103 <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/> 0104 <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/> 0105 <Keyword>length</Keyword><Symbol>(</Symbol><Normal Text>something</Normal Text><Symbol>)</Symbol><br/> 0106 <Normal Text></Normal Text><br/> 0107 <Headline>## margrittr's pipe</Headline><br/> 0108 <Normal Text>diamonds </Normal Text><Operator>%>%</Operator><br/> 0109 <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/> 0110 <Normal Text> </Normal Text><Keyword>group_by</Keyword><Symbol>(</Symbol><Normal Text>cut</Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><br/> 0111 <Normal Text> </Normal Text><Keyword>tally</Keyword><Symbol>()</Symbol><Normal Text> </Normal Text><Operator>%>%</Operator><Normal Text> </Normal Text><br/> 0112 <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/> 0113 <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/> 0114 <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/> 0115 <Normal Text></Normal Text><br/> 0116 <Headline>## R native pipes (R > 4.1)</Headline><br/> 0117 <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/> 0118 <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/> 0119 <Normal Text></Normal Text><br/> 0120 <Headline>## ggplot2 </Headline><br/> 0121 <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/> 0122 <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/> 0123 <Normal Text> </Normal Text><Keyword>labs</Keyword><Symbol>(</Symbol><br/> 0124 <Normal Text> </Normal Text><Identifier>title =</Identifier><Normal Text> </Normal Text><String>"ggplot diamonds"</String><Normal Text>,</Normal Text><br/> 0125 <Normal Text> </Normal Text><Identifier>x =</Identifier><Normal Text> </Normal Text><String>"Price, $"</String><Normal Text>,</Normal Text><br/> 0126 <Normal Text> </Normal Text><Identifier>y =</Identifier><Normal Text> </Normal Text><String>"Carat"</String><br/> 0127 <Normal Text> </Normal Text><Symbol>)</Symbol><Normal Text> </Normal Text><Operator>+</Operator><br/> 0128 <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/> 0129 <Normal Text> </Normal Text><Keyword>theme_minimal</Keyword><Symbol>()</Symbol><br/> 0130 <Normal Text></Normal Text><br/> 0131 <Normal Text>plot </Normal Text><Operator>+</Operator><Normal Text> </Normal Text><Keyword>coord_flip</Keyword><Symbol>()</Symbol><br/>