From 95a8767a4903b2be0eb1922bb40a08219c98e8f8 Mon Sep 17 00:00:00 2001
From: Michael DeWitt <me.dewitt.jr@gmail.com>
Date: Wed, 14 Feb 2018 15:09:20 -0500
Subject: [PATCH] corrected type

Typo of character in a message
---
 R/utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/utils.R b/R/utils.R
index d7ecad29..b1fbea6f 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -14,7 +14,7 @@ JS <- function (...)
     if (is.null(x))
         return()
     if (!is.character(x))
-        stop("The arguments for JS() must be a chraracter vector")
+        stop("The arguments for JS() must be a character vector")
     x <- paste(x, collapse = "\n")
     structure(x, class = unique(c("JS_EVAL", oldClass(x))))
 }