dvReleaseStudy <-
function( objectid, dv=getOption('dvn'),
user=getOption('dvn.user'), pwd=getOption('dvn.pwd'),
browser=FALSE, ...){
if(inherits(objectid, 'dvStudyAtom'))
objectid <- objectid$objectId
if(is.null(user) | is.null(pwd))
stop('Must specify username (`user`) and password (`pwd`)')
xml <- dvDepositQuery( query=paste('edit/study/',objectid,sep=''), user=user, pwd=pwd, dv=dv, browser=browser,
httpverb='POST', postfields=charToRaw(""),
httpheader=c('In-Progress'='false'))
if(is.null(xml))
invisible(NULL)
if(browser==FALSE)
.dvParseAtom(xml)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.