trackler 2.1.0.21 → 2.1.0.22

data/tracks/r/exercises/secret-handshake/example.R

@@ -5,20 +5,20 @@ handshake <- function(n) {
   # 100 = close your eyes
   # 1000 = jump
   # 10000 = reverse
-  actions = c("wink", "double blink", "close your eyes", "jump")
+  actions <- c("wink", "double blink", "close your eyes", "jump")
   
-  bin = intToBits(n)
+  bin <- intToBits(n)
   
-  events = c()
+  events <- c()
   
-  for (i in 1:4){
+  for (i in 1:4) {
     if (bin[i] > 0) {
-      events = c(events, actions[i])
+      events <- c(events, actions[i])
     }
   }
   
   if (bin[5] > 0) {
-    events = rev(events)
+    events <- rev(events)
   }
   
   events

data/tracks/r/exercises/secret-handshake/test_secret-handshake.R

@@ -34,11 +34,13 @@ test_that("reversing no actions still gives no actions", {
 })
 
 test_that("all possible actions", {
-  expect_equal(handshake(15), c("wink", "double blink", "close your eyes", "jump"))
+  expect_equal(handshake(15), 
+               c("wink", "double blink", "close your eyes", "jump"))
 })
 
 test_that("reverse all possible actions", {
-  expect_equal(handshake(31), c("jump", "close your eyes", "double blink", "wink"))
+  expect_equal(handshake(31), 
+               c("jump", "close your eyes", "double blink", "wink"))
 })
 
 test_that("do nothing for zero", {
@@ -49,4 +51,4 @@ test_that("do nothing if lower 5 bits not set", {
   expect_equal(handshake(32), c())
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: secret-handshake")

data/tracks/r/exercises/sieve/test_sieve.R

@@ -35,4 +35,4 @@ test_that("find primes up to 1000", {
                  967, 971, 977, 983, 991, 997))
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: sieve")

data/tracks/r/exercises/space-age/example.R

@@ -1,5 +1,8 @@
-space_age <- function(seconds,planet) {
-  earth_year <- 31557600 # number of seconds
+space_age <- function(seconds, planet) {
+  
+  # number of seconds
+  earth_year <- 31557600
+  
   conversion <- list(mercury = 0.2408467 * earth_year,
                      venus = 0.61519726 * earth_year,
                      earth = 1 * earth_year,
@@ -8,5 +11,7 @@ space_age <- function(seconds,planet) {
                      saturn = 29.447498 * earth_year,
                      uranus = 84.016846 * earth_year,
                      neptune = 164.79132 * earth_year)
-  round(seconds / conversion[planet][[1]],2)
+  
+  round(seconds / conversion[planet][[1]], 2)
+  
 }

data/tracks/r/exercises/space-age/space-age.R

@@ -1,3 +1,3 @@
-space_age <- function() {
+space_age <- function(seconds, planet) {
 
 }

data/tracks/r/exercises/space-age/test_space-age.R

@@ -41,4 +41,4 @@ test_that("Age on Neptune", {
   expect_equal(space_age(seconds, "neptune"), 1.58)
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: space-age")

data/tracks/r/exercises/sum-of-multiples/test_sum-of-multiples.R

@@ -49,4 +49,4 @@ test_that("Case 12", {
   expect_equal(sum_of_multiples(c(), 10000), 0)
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: sum-of-multiples")

data/tracks/r/exercises/tournament/example.R

@@ -11,21 +11,27 @@ tournament <- function(input) {
     }
     else {
       # Process result
-      if (match[3]=="draw") {
-        results <- rbind(results, c(match[1], 1, 0, 1, 0, 1), c(match[2], 1, 0, 1, 0, 1))
-      } else if (match[3]=="win") {
-        results <- rbind(results, c(match[1], 1, 1, 0, 0, 3), c(match[2], 1, 0, 0, 1, 0))
+      if (match[3] == "draw") {
+        results <- rbind(results, 
+                         c(match[1], 1, 0, 1, 0, 1), 
+                         c(match[2], 1, 0, 1, 0, 1))
+      } else if (match[3] == "win") {
+        results <- rbind(results, 
+                         c(match[1], 1, 1, 0, 0, 3), 
+                         c(match[2], 1, 0, 0, 1, 0))
       } else {
-        results <- rbind(results, c(match[2], 1, 1, 0, 0, 3), c(match[1], 1, 0, 0, 1, 0))
+        results <- rbind(results, 
+                         c(match[2], 1, 1, 0, 0, 3), 
+                         c(match[1], 1, 0, 0, 1, 0))
       }
     }
     
   }
   
-  results[,2:6] <- sapply(results[,2:6], as.numeric)
+  results[, 2:6] <- sapply(results[, 2:6], as.numeric)
   
-  output <- aggregate(.~Team, results[-1,], sum)
-  output <- output[order(-output$P,output$Team), ]
+  output <- aggregate(.~Team, results[-1, ], sum)
+  output <- output[order(-output$P, output$Team), ]
   row.names(output) <- 1:nrow(output)
   output
   

data/tracks/r/exercises/tournament/test_tournament.R

@@ -172,4 +172,4 @@ test_that("invalid match result", {
                ))
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: tournament")

data/tracks/r/exercises/word-count/example.R

@@ -1,5 +1,12 @@
+library(magrittr)
+
 word_count <- function(input) {
-  input <- gsub("[[:punct:]]","",tolower(input))
+  
+  input <- gsub("[[:punct:]]", "", tolower(input))
   input <- strsplit(input, " ")[[1]]
-  as.list(table(input[nchar(input)>0]))
+  
+  input[nchar(input) > 0] %>% 
+    table() %>% 
+    as.list()
+  
 }

data/tracks/r/exercises/word-count/test_word-count.R

@@ -67,4 +67,4 @@ test_that("normalize case", {
                      list("go" = 3, "stop" = 2))
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: word-count")

data/tracks/r/exercises/word-count/word-count.R

@@ -1,3 +1,3 @@
-word_count <- function() {
+word_count <- function(input) {
 
 }

data/tracks/vimscript/README.md

@@ -1,18 +1,23 @@
-# Exercism Vim script Track
+# xVimscript
+
+![build status](https://travis-ci.org/exercism/xvimscript.svg?branch=master)
 
 Exercism exercises in Vim script.
 
-## TODO
+## Contributing
 
-_Document how to contribute to the Vim script track._
+We welcome any kind of contribution!
 
-## Contributing Guide
+If you have a suggestion or question, create a new
+[issue](https://github.com/exercism/xvimscript/issues).
 
-Please see the [contributing guide](https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md).
+For code or fixing typos and similar things, open a
+[pull request](https://github.com/exercism/xvimscript/pulls).
 
-### [Vim logo](https://github.com/exercism/xvimscript/tree/master/img/icon.png)
+Look at recent [commits](https://github.com/exercism/xvimscript/commits/master)
+to get a feeling on how to format your own ones.
 
-Since Vimscript is part of the Vim text editor, Vimscript alone does not have its own logo, and a modified Vim logo is used instead.
-[Vim's license](http://vimdoc.sourceforge.net/htmldoc/uganda.html#license) does not specify the terms of use for the Vim logo, but we believe that adapting it, by changing the colour scheme, falls within fair use.
+Even if there are any uncertainties, go for it nevertheless. We can straighten
+out everything in the process.
 
-The logo is used on Exercism to identify the Vimscript language, not Exercism as a whole.
+Thank you for contributing! :tada:

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: trackler
 version: !ruby/object:Gem::Version
-  version: 2.1.0.21
+  version: 2.1.0.22
 platform: ruby
 authors:
 - Katrina Owen
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2017-05-26 00:00:00.000000000 Z
+date: 2017-05-27 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rubyzip
@@ -7038,6 +7038,8 @@ files:
 - tracks/r/LICENSE
 - tracks/r/README.md
 - tracks/r/bin/fetch-configlet
+- tracks/r/bin/run_lints.R
+- tracks/r/bin/run_tests.R
 - tracks/r/config.json
 - tracks/r/docs/ABOUT.md
 - tracks/r/docs/INSTALLATION.md