Skip to content

Commit

Permalink
Revert "Unnecessary headache"
Browse files Browse the repository at this point in the history
This reverts commit 46edfe6.
  • Loading branch information
alexlouden committed Jan 15, 2015
1 parent 46edfe6 commit 52b4ef2
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 3 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
@@ -1,6 +1,6 @@
Package: riak
Title: Riak client for R
Version: 0.7
Version: 0.6
Authors@R: "Keiran Thompson <keiran@datagami.info> [aut, cre]"
Description: "Forked from the Basho experimental library. Major change is to
default encode everything in unboxed json. Supports simple fetch, store
Expand Down
6 changes: 4 additions & 2 deletions R/riak.R
Expand Up @@ -102,8 +102,8 @@ riak_fetch <- function(conn, bucket_type, bucket, key, json=TRUE, opts=NULL) {
# Store value in bucket as key. Defaults to formatting it as json
#' @export
riak_store <- function(conn, bucket_type, bucket, key, value,
json.matrix="rowmajor",
json.dataframe="columns",
json.matrix=c("rowmajor", "columnmajor"),
json.dataframe=c("rows", "columns", "values"),
opts=list("ReturnBody"=TRUE)) {

stopifnot(!is.null(bucket_type))
Expand All @@ -116,6 +116,8 @@ riak_store <- function(conn, bucket_type, bucket, key, value,

# JSON encode object
content_type <- "application/json"
json.matrix <- match.arg(json.matrix)
json.dataframe <- match.arg(json.dataframe)
value <- toJSON(value, digits=16, auto_unbox=TRUE, matrix=json.matrix, dataframe=json.dataframe)

# Package object
Expand Down

0 comments on commit 52b4ef2

Please sign in to comment.