Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

0.3.1

  • Loading branch information...
commit e94a9fc1dc71d4196138c25520c078bd8f53bdd1 1 parent fd97772
@wactbprot authored
View
4 R4CouchDB/DESCRIPTION
@@ -1,8 +1,8 @@
Package: R4CouchDB
Type: Package
Title: A R convenience layer for CouchDB
-Version: 0.3
-Date: 2013/09/13
+Version: 0.3.1
+Date: 2013/09/15
Author: wactbprot
Maintainer: <thsteinbock@web.de>
Description: The R4CouchDB package provides a collection of functions for
View
1  R4CouchDB/R/cdbAddAttachment.R
@@ -13,6 +13,7 @@
#' \code{cdb$id}.
#' @return \item{cdb}{The result is stored in \code{cdb$res} }
#' @author wactbprot
+#' @export
#' @keywords misc
#'
View
8 R4CouchDB/R/cdbIni.R
@@ -138,8 +138,12 @@ cdbIni <- function(serverName = "localhost",
cdb$DBName,"/",
cdb$id,
sep="")
- res <- url.exists(adrString, .header=TRUE)
- return(paste("",gsub("\\\"", "", res["ETag"]), sep=""))
+ res <- url.exists(adrString, .header=TRUE)["ETag"]
+ if(is.na(res)){
+ return(NA)
+ }else{
+ return(paste("", gsub("\\\"", "", res), sep = ""))
+ }
}
cdb$checkRes <- function(cdb,res){
if(!(cdb$error == "")){
View
4 R4CouchDB/R/cdbUpdateDoc.R
@@ -43,7 +43,7 @@ cdbUpdateDoc <- function( cdb){
}
}
- if( cdb$error ==""){
+ if(cdb$error == ""){
adrString <- paste(cdb$baseUrl(cdb),
cdb$DBName,"/",
@@ -60,7 +60,7 @@ cdbUpdateDoc <- function( cdb){
cdb <- cdb$checkRes(cdb,res)
if((length(cdb$res$ok)) > 0 ){
- cdb$dataList$'_rev' <- cdb$res$rev
+ cdb$dataList[["_rev"]] <- cdb$res$rev
cdb$rev <- cdb$res$rev
}
return(cdb)
View
BIN  R4CouchDB_0.3.1.tar.gz
Binary file not shown
View
BIN  R4CouchDB_0.3.tar.gz
Binary file not shown
Please sign in to comment.
Something went wrong with that request. Please try again.