Add support for R (#48)

* chore: rename sample files

* feat: add support for R

Author: oxfist

README.md

@@ -148,13 +148,14 @@ different:
     <td><img src="https://upload.wikimedia.org/wikipedia/commons/4/48/Markdown-mark.svg" title="Markdown" alt="Markdown" width="50" /></td>
     <td><img src="https://upload.wikimedia.org/wikipedia/commons/c/cf/Lua-Logo.svg" title="Lua" alt="Lua" width="50" /></td>
   </tr>
-  <!-- <tr> -->
-  <!--   <td><img src="https://upload.wikimedia.org/wikipedia/commons/9/9f/Vimlogo.svg" alt="Vimscript" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
-  <!--   <td><img src="https://upload.wikimedia.org/wikipedia/commons/d/d5/Rust_programming_language_black_logo.svg" alt="Rust" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
-  <!--   <td><img src="https://upload.wikimedia.org/wikipedia/commons/c/c3/Python-logo-notext.svg" alt="Python" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
-  <!--   <td><img src="https://upload.wikimedia.org/wikipedia/commons/7/73/Ruby_logo.svg" alt="Ruby" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
-  <!--   <td></td> -->
-  <!-- </tr> -->
+  <tr>
+    <td><img src="https://upload.wikimedia.org/wikipedia/commons/9/9f/Vimlogo.svg" alt="Vimscript" width="50" /></td>
+    <td><img src="https://upload.wikimedia.org/wikipedia/commons/1/1b/R_logo.svg" alt="R" width="50" /></td>
+    <!-- <td><img src="https://upload.wikimedia.org/wikipedia/commons/d/d5/Rust_programming_language_black_logo.svg" alt="Rust" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
+    <!-- <td><img src="https://upload.wikimedia.org/wikipedia/commons/c/c3/Python-logo-notext.svg" alt="Python" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
+    <!-- <td><img src="https://upload.wikimedia.org/wikipedia/commons/7/73/Ruby_logo.svg" alt="Ruby" width="50" style="filter: grayscale(100%) blur(2px)"/></td> -->
+    <!-- <td></td> -->
+  </tr>
 </table>
 
 <!-- prettier-ignore-start -->
@@ -165,8 +166,8 @@ different:
 > theme! 🙂
 <!-- prettier-ignore-end -->
 
-**Coming Soon**: Lua ✅, Vimscript (in progress), TSX, R, Rust, Python, Ruby,
-Bash, and many more!
+**Coming Soon**: Lua ✅, Vimscript ✅, R ✅, Bash, Python, TSX, Rust, Ruby, and
+many more!
 
 ## 🧩 Plugins Supported
 

TODO.md

@@ -12,11 +12,11 @@
 10. [x] `CONTRIBUTE.md`
 11. [x] Option to enable/disable italics
 12. [x] Option to enable/disable bold
-13. [ ] Support for R
-14. [ ] Update custom queries with prefix
-15. [ ] Issue template
-16. [ ] Support for Rust
-17. [ ] Support for Vimscript
-18. [ ] Support for Python
+13. [x] Support for Vimscript
+14. [x] Support for R
+15. [ ] Support for Python
+16. [ ] Update custom queries with prefix
+17. [ ] Issue template
+18. [ ] Support for Rust
 19. [ ] Support for Ruby
 20. [ ] Support for Bash

after/queries/r/highlights.scm

@@ -0,0 +1,14 @@
+;; extends
+
+(dollar
+  (identifier) @variable.object
+  (identifier))
+
+(call
+  function: (namespace_get
+              namespace: (identifier)
+              "::" @operator
+              function: (identifier)))
+
+((string
+   "\"" @punctuation.string.delimeter))

lua/night-owl/theme.lua

@@ -114,6 +114,7 @@ function theme.set_highlights(options)
 	hl(0, "@variable.object", { fg = palette.cyan2, bg = "NONE", italic = options.italics })
 	hl(0, "@variable.lua", { link = "Variable" })
 	hl(0, "@variable.vim", { link = "Variable" })
+	hl(0, "@module.r", { link = "@type.class" })
 	hl(0, "@property", { fg = palette.cyan5, bg = "NONE" })
 	hl(0, "tomlKey", { fg = palette.magenta, bg = "NONE", nocombine = true })
 	hl(0, "@property.toml", { fg = palette.magenta, bg = "NONE", nocombine = true })

samples/sample.R

@@ -0,0 +1,45 @@
+setwd("/Users/example/")
+data <- read.csv("budget.csv", sep = ";")
+
+plot(data$sqft, data$building_scale)
+hist(data$sqft)
+hist(data$building_scale)
+cor.test(data$sqft, data$building_scale, na.action = "na.omit", method = c("kendall"))
+cor.test(data$sqft, data$building_scale, na.action = "na.omit", method = c("pearson"))
+
+# 2. Lorem Ipsum
+
+colnames(data)
+numerical_data <- data[sapply(data, is.numeric)]
+
+r <- cor(data$building_scale, data$sqft)
+print(r^2)
+
+if (!dir.exists("data")) {
+  dir.create("data")
+}
+
+lorem <- NA
+
+credit_data <- readxl::read_xlsx("banks.xlsx")
+credit_data <- janitor::clean_names(banks)
+
+credit_data %>%
+  select(age, credit) %>%
+  mutate(age_range = case_when(
+    between(age, 18, 29) ~ "Young",
+    between(age, 30, 45) ~ "Young Adult",
+    between(age, 46, 50) ~ "Adult",
+    .default = "Elderly"
+  )) %>%
+  filter(credit == 1) %>%
+  select(age_rage) %>%
+  group_by(age_range) %>%
+  count()
+
+table(credit_data$children[credit_data$credit == 1])
+
+credit_data %>%
+  select(province, monthly_income) %>%
+  group_by(province) %>%
+  summarise(mean_income = mean(monthly_income, na.rm = TRUE))