Warning, file /frameworks/syntax-highlighting/autotests/html/highlight.R.dark.html was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.R</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (R Script) - Theme (Breeze Dark)"/> 0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre> 0007 <span style="color:#a43340;font-weight:bold;">## R Script Sample File</span> 0008 <span style="color:#a43340;font-weight:bold;">## Source: http://www.rexamples.com</span> 0009 0010 <span style="color:#a43340;font-weight:bold;">## Basics</span> 0011 a <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#f67400;">42</span> 0012 A <span style="color:#27ae60;font-weight:bold;"><-</span> a <span style="color:#3daee9;">*</span> <span style="color:#f67400;">2</span> <span style="color:#7a7c7d;"># R is case sensitive</span> 0013 <span style="color:#8e44ad;">print</span>(a) 0014 <span style="color:#8e44ad;">cat</span>(A, <span style="color:#f44f4f;">"</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">"</span>) <span style="color:#7a7c7d;"># "84" is concatenated with "\n"</span> 0015 <span style="color:#fdbc4b;font-weight:bold;">if</span>(A<span style="color:#3daee9;">></span>a) <span style="color:#7a7c7d;"># true, 84 > 42</span> 0016 { 0017 <span style="color:#8e44ad;">cat</span>(A, <span style="color:#f44f4f;">">"</span>, a, <span style="color:#f44f4f;">"</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">"</span>) 0018 } 0019 0020 <span style="color:#a43340;font-weight:bold;">## Functions</span> 0021 Square <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#fdbc4b;font-weight:bold;">function</span>(x) { 0022 <span style="color:#8e44ad;">return</span>(x<span style="color:#3daee9;">^</span><span style="color:#f67400;">2</span>) 0023 } 0024 0025 <span style="color:#8e44ad;">print</span>(<span style="color:#8e44ad;">Square</span>(<span style="color:#f67400;">4</span>)) 0026 <span style="color:#8e44ad;">print</span>(<span style="color:#8e44ad;">Square</span>(<span style="color:#2980b9;">x=</span><span style="color:#f67400;">4</span>)) <span style="color:#7a7c7d;"># same thing</span> 0027 0028 <span style="color:#8e44ad;">DoSomething</span>(<span style="color:#2980b9;">color=</span><span style="color:#f44f4f;">"red"</span>,<span style="color:#2980b9;">number=</span><span style="color:#f67400;">55</span>) 0029 0030 <span style="color:#a43340;font-weight:bold;">## Countdown</span> 0031 countdown <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#fdbc4b;font-weight:bold;">function</span>(from) 0032 { 0033 <span style="color:#8e44ad;">print</span>(from) 0034 <span style="color:#fdbc4b;font-weight:bold;">while</span>(from<span style="color:#3daee9;">!=</span><span style="color:#f67400;">0</span>) 0035 { 0036 <span style="color:#8e44ad;">Sys.sleep</span>(<span style="color:#f67400;">1</span>) 0037 from <span style="color:#27ae60;font-weight:bold;"><-</span> from <span style="color:#3daee9;">-</span> <span style="color:#f67400;">1</span> 0038 <span style="color:#8e44ad;">print</span>(from) 0039 } 0040 } 0041 0042 <span style="color:#8e44ad;">countdown</span>(<span style="color:#f67400;">5</span>) 0043 0044 <span style="color:#a43340;font-weight:bold;">## Reading user input</span> 0045 readinteger <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#fdbc4b;font-weight:bold;">function</span>() 0046 { 0047 n <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">readline</span>(<span style="color:#2980b9;">prompt=</span><span style="color:#f44f4f;">"Enter an integer: "</span>) 0048 n <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">as.integer</span>(n) 0049 <span style="color:#fdbc4b;font-weight:bold;">if</span> (<span style="color:#8e44ad;">is.na</span>(n)){ 0050 n <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">readinteger</span>() 0051 } 0052 <span style="color:#8e44ad;">return</span>(n) 0053 } 0054 <span style="color:#8e44ad;">print</span>(<span style="color:#8e44ad;">readinteger</span>()) 0055 0056 readinteger <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#fdbc4b;font-weight:bold;">function</span>() 0057 { 0058 n <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">readline</span>(<span style="color:#2980b9;">prompt=</span><span style="color:#f44f4f;">"Enter an integer: "</span>) 0059 <span style="color:#fdbc4b;font-weight:bold;">if</span>(<span style="color:#3daee9;">!</span><span style="color:#8e44ad;">grepl</span>(<span style="color:#f44f4f;">"^[0-9]+$"</span>,n)) 0060 { 0061 <span style="color:#8e44ad;">return</span>(<span style="color:#8e44ad;">readinteger</span>()) 0062 } 0063 0064 <span style="color:#8e44ad;">return</span>(<span style="color:#8e44ad;">as.integer</span>(n)) 0065 } 0066 <span style="color:#8e44ad;">print</span>(<span style="color:#8e44ad;">readinteger</span>()) 0067 0068 <span style="color:#a43340;font-weight:bold;">## Guess a random number game</span> 0069 readinteger <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#fdbc4b;font-weight:bold;">function</span>() 0070 { 0071 n <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">readline</span>(<span style="color:#2980b9;">prompt=</span><span style="color:#f44f4f;">"Enter an integer: "</span>) 0072 <span style="color:#fdbc4b;font-weight:bold;">if</span>(<span style="color:#3daee9;">!</span><span style="color:#8e44ad;">grepl</span>(<span style="color:#f44f4f;">"^[0-9]+$"</span>,n)) 0073 { 0074 <span style="color:#8e44ad;">return</span>(<span style="color:#8e44ad;">readinteger</span>()) 0075 } 0076 <span style="color:#8e44ad;">return</span>(<span style="color:#8e44ad;">as.integer</span>(n)) 0077 } 0078 0079 <span style="color:#7a7c7d;"># real program start here</span> 0080 0081 num <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">round</span>(<span style="color:#8e44ad;">runif</span>(<span style="color:#f67400;">1</span>) <span style="color:#3daee9;">*</span> <span style="color:#f67400;">100</span>, <span style="color:#2980b9;">digits =</span> <span style="color:#f67400;">0</span>) 0082 guess <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#3daee9;">-</span><span style="color:#f67400;">1</span> 0083 0084 <span style="color:#8e44ad;">cat</span>(<span style="color:#f44f4f;">"Guess a number between 0 and 100.</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">"</span>) 0085 0086 <span style="color:#fdbc4b;font-weight:bold;">while</span>(guess <span style="color:#3daee9;">!=</span> num) 0087 { 0088 guess <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">readinteger</span>() 0089 <span style="color:#fdbc4b;font-weight:bold;">if</span> (guess <span style="color:#3daee9;">==</span> num) 0090 { 0091 <span style="color:#8e44ad;">cat</span>(<span style="color:#f44f4f;">"Congratulations,"</span>, num, <span style="color:#f44f4f;">"is right.</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">"</span>) 0092 } 0093 <span style="color:#fdbc4b;font-weight:bold;">else</span> <span style="color:#fdbc4b;font-weight:bold;">if</span> (guess <span style="color:#3daee9;"><</span> num) 0094 { 0095 <span style="color:#8e44ad;">cat</span>(<span style="color:#f44f4f;">"It's bigger!</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">"</span>) 0096 } 0097 <span style="color:#fdbc4b;font-weight:bold;">else</span> <span style="color:#fdbc4b;font-weight:bold;">if</span>(guess <span style="color:#3daee9;">></span> num) 0098 { 0099 <span style="color:#8e44ad;">cat</span>(<span style="color:#f44f4f;">"It's smaller!</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">"</span>) 0100 } 0101 } 0102 0103 <span style="color:#a43340;font-weight:bold;">## Lists</span> 0104 <span style="color:#8e44ad;">sum</span>(<span style="color:#f67400;">0</span><span style="color:#3daee9;">:</span><span style="color:#f67400;">9</span>) 0105 <span style="color:#8e44ad;">append</span>(LETTERS[<span style="color:#f67400;">1</span><span style="color:#3daee9;">:</span><span style="color:#f67400;">13</span>],letters[<span style="color:#f67400;">14</span><span style="color:#3daee9;">:</span><span style="color:#f67400;">26</span>]) 0106 <span style="color:#8e44ad;">c</span>(<span style="color:#f67400;">1</span>,<span style="color:#f67400;">6</span>,<span style="color:#f67400;">4</span>,<span style="color:#f67400;">9</span>)<span style="color:#3daee9;">*</span><span style="color:#f67400;">2</span> 0107 something <span style="color:#27ae60;font-weight:bold;"><-</span> <span style="color:#8e44ad;">c</span>(<span style="color:#f67400;">1</span>,<span style="color:#f67400;">4</span>,letters[<span style="color:#f67400;">2</span>]) <span style="color:#7a7c7d;"># indices start at one, you get (1,4,"b")</span> 0108 <span style="color:#8e44ad;">length</span>(something) 0109 0110 <span style="color:#a43340;font-weight:bold;">## margrittr's pipe</span> 0111 diamonds <span style="color:#3daee9;">%>%</span> 0112 <span style="color:#8e44ad;">filter</span>(price <span style="color:#3daee9;">></span> <span style="color:#f67400;">1000</span>) <span style="color:#3daee9;">%>%</span> 0113 <span style="color:#8e44ad;">group_by</span>(cut) <span style="color:#3daee9;">%>%</span> 0114 <span style="color:#8e44ad;">tally</span>() <span style="color:#3daee9;">%>%</span> 0115 <span style="color:#8e44ad;">rename</span>(<span style="color:#2980b9;">tally =</span> n) <span style="color:#3daee9;">%>%</span> 0116 <span style="color:#8e44ad;">arrange</span>(<span style="color:#3daee9;">-</span>tally) <span style="color:#3daee9;">%>%</span> 0117 <span style="color:#8e44ad;">mutate</span>(<span style="color:#2980b9;">pct =</span> tally <span style="color:#3daee9;">/</span> <span style="color:#8e44ad;">sum</span>(tally)) <span style="color:#27ae60;font-weight:bold;">-></span> df 0118 0119 <span style="color:#a43340;font-weight:bold;">## R native pipes (R > 4.1)</span> 0120 <span style="color:#8e44ad;">Sys.setenv</span>(<span style="color:#f44f4f;">"_R_USE_PIPEBIND_"</span><span style="color:#27ae60;font-weight:bold;">=</span> <span style="color:#27aeae;font-weight:bold;">TRUE</span>) 0121 mtcars <span style="color:#3daee9;">|></span> x <span style="color:#3daee9;">=></span> <span style="color:#8e44ad;">lm</span>(mpg <span style="color:#3daee9;">~</span> cyl, <span style="color:#2980b9;">data =</span> x) 0122 0123 <span style="color:#a43340;font-weight:bold;">## ggplot2 </span> 0124 plot <span style="color:#27ae60;font-weight:bold;">=</span> <span style="color:#8e44ad;">ggplot</span>(diamonds, <span style="color:#8e44ad;">aes</span>(<span style="color:#2980b9;">x =</span> price, <span style="color:#2980b9;">y =</span> carat)) <span style="color:#3daee9;">+</span> 0125 <span style="color:#8e44ad;">geom_point</span>(<span style="color:#2980b9;">alpha =</span> <span style="color:#f67400;">0.3</span>, <span style="color:#2980b9;">colour =</span> <span style="color:#f44f4f;">'steelblue'</span>) <span style="color:#3daee9;">+</span> 0126 <span style="color:#8e44ad;">labs</span>( 0127 <span style="color:#2980b9;">title =</span> <span style="color:#f44f4f;">"ggplot diamonds"</span>, 0128 <span style="color:#2980b9;">x =</span> <span style="color:#f44f4f;">"Price, $"</span>, 0129 <span style="color:#2980b9;">y =</span> <span style="color:#f44f4f;">"Carat"</span> 0130 ) <span style="color:#3daee9;">+</span> 0131 <span style="color:#8e44ad;">facet_wrap</span>(<span style="color:#3daee9;">~</span> cut) <span style="color:#3daee9;">+</span> 0132 <span style="color:#8e44ad;">theme_minimal</span>() 0133 0134 plot <span style="color:#3daee9;">+</span> <span style="color:#8e44ad;">coord_flip</span>() 0135 </pre></body></html>