Permalink
Browse files

Fixed type checking (see github issue #16)

  • Loading branch information...
1 parent 42e1c18 commit 98bdaad912196ac17bc42cf89cf51ac93d76c2cc @bwlewis committed Oct 14, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 R/redis-internal.R
View
@@ -14,9 +14,9 @@
.openConnection <- function(host, port, nodelay=FALSE, timeout=2678399L, envir=rredis:::.redisEnv$current)
{
- stopifnot(typeof(host)=="character")
- stopifnot(class(port)=="numeric")
- stopifnot(typeof(nodelay)=="logical")
+ stopifnot(is.character(host))
+ stopifnot(is.numeric(port))
+ stopifnot(is.logical(nodelay))
# We track the file descriptor of the new connection in a sneaky way
fds <- rownames(showConnections(all=TRUE))
con <- socketConnection(host, port, open="a+b",

0 comments on commit 98bdaad

Please sign in to comment.