diff --git a/contents/bogo_sort/bogo_sort.md b/contents/bogo_sort/bogo_sort.md
index 4c66adbc4..06f0aff78 100644
--- a/contents/bogo_sort/bogo_sort.md
+++ b/contents/bogo_sort/bogo_sort.md
@@ -63,6 +63,8 @@ In code, it looks something like this:
 [import:20-24, lang:"lisp"](code/clisp/bogo-sort.lisp)
 {% sample lang="crystal" %}
 [import:10-14, lang:"crystal"](code/crystal/bogo.cr)
+{% sample lang="r" %}
+[import:1-6, lang:"r"](code/r/bogo_sort.r)
 {% endmethod %}
 
 That's it.
@@ -125,6 +127,8 @@ We are done here!
 [import, lang:"lisp"](code/clisp/bogo-sort.lisp)
 {% sample lang="crystal" %}
 [import, lang:"crystal"](code/crystal/bogo.cr)
+{% sample lang="r" %}
+[import, lang:"r"](code/r/bogo_sort.r)
 {% endmethod %}
 
 
diff --git a/contents/bogo_sort/code/r/bogo_sort.r b/contents/bogo_sort/code/r/bogo_sort.r
new file mode 100755
index 000000000..0d354de27
--- /dev/null
+++ b/contents/bogo_sort/code/r/bogo_sort.r
@@ -0,0 +1,15 @@
+bogo_sort <- function(a) {
+  while(is.unsorted(a)) {
+    a <- sample(a)
+  }
+  return(a)
+}
+
+test <- c(20, -3, 50, 1, -6, 59)
+
+print("unsorted list")
+print(test)
+
+print("sorted list")
+print(bogo_sort(test))
+