# NOT RUN {
endp <- cosmos_endpoint("https://myaccount.documents.azure.com:443/", key="mykey")
db <- get_cosmos_database(endp, "mydatabase")
cont <- create_cosmos_container(db, "mycontainer", partition_key="sex")
# a simple stored procedure
src <- 'function helloworld() {
var context = getContext();
var response = context.getResponse();
response.setBody("Hello, World");
}'
create_stored_procedure(cont, "helloworld", src)
sproc <- get_stored_procedure(cont, "helloworld")
exec_stored_procedure(sproc)
# more complex example: uploading data
sproc2 <- create_stored_procedure(cont, "myBulkUpload",
body=system.file("srcjs/bulkUpload.js", package="AzureCosmosR"))
list_stored_procedures(cont)
sw_male <- dplyr::filter(dplyr::starwars, sex == "male")
exec_stored_procedure(sproc2, parameters=list(sw_male))
delete_stored_procedure(sproc)
delete_stored_procedure(sproc2)
# }
Run the code above in your browser using DataLab