Skip to content
Snippets Groups Projects
Commit 39fdff1e authored by wactbprot's avatar wactbprot
Browse files

todos fertig

parent e7aaf273
No related branches found
No related tags found
No related merge requests found
library("R4CouchDB") library("R4CouchDB")
srv <- "http://localhost:5984/"
## in ## in
cin <- cdbIni() cin <- cdbIni()
cin$DBName <- "cp_vaclab_db" cin$DBName <- "cp_vaclab_db"
cin$view <- "cus" cin$view <- "cus"
cin$design <- "new" cin$design <- "new"
......
library("R4CouchDB")
## in
cin <- cdbIni()
cin$DBName <- "vaclab_db"
cin$view <- "tdo"
cin$design <- "new"
## out
cout <- cdbIni()
cout$DBName <- "new_vaclab_db"
ids <- cdbGetView(cin)$res$rows
N <- length(ids)
for(i in 1:N){
pf <- cin$fromJSON(getURL(paste0(srv
, cin$DBName
, "/_design/"
,cin$design
,"/_show/todo/"
,ids[[i]]$id )))
cout$id <-ids[[i]]$key$new_id
# secure is secure
cout$dataList <- pf
res <- cdbUpdateDoc(cout)
}
\ No newline at end of file
function (doc, req) {
var ndoc = {};
if(doc &&
doc.ToDo && doc.ToDo.Type && doc.ToDo.Name){
ndoc["_id"] = ["tdo"
, doc.ToDo.Type.toLowerCase()
, doc.ToDo.Name
.replace(/[\(\)]/g, "")
.replace(/[-\s]/g, "_").toLowerCase()
].join("-")
var dt = doc.ToDo
ndoc.ToDo = {};
if(dt.Name){
ndoc.ToDo.Name = dt.Name.replace(/[-_]/g, " ")
}
if(dt.Type){
ndoc.ToDo.Type = dt.Type
}
if(dt.Gas){
ndoc.ToDo.Gas = dt.Gas
}
if(dt.MaxDev){
ndoc.ToDo.MaxDev = dt.MaxDev
}
if(dt.Repeat){
ndoc.ToDo.Repeat = dt.Repeat
}
if(dt.Values){
ndoc.ToDo.Values = dt.Values
}
return {
"headers" : {"Content-Type" : "application/json"},
"body" : JSON.stringify(ndoc)
}
}
};
function(doc) {
if(doc &&
doc.ToDo &&
doc.ToDo.Type &&
doc.ToDo.Name){
var dc = doc.ToDo;
emit({new_id: ["tdo"
, doc.ToDo.Type.toLowerCase()
, doc.ToDo.Name
.replace(/[\(\)]/g, "")
.replace(/[-\s]/g, "_").toLowerCase()
].join("-")}, null);
}
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment