Nothing
#
# This work was created by the National Center for Ecological Analysis and Synthesis.
#
# Copyright 2015 Regents of the University of California
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
#' A Redland Storage object
#' @slot librdf_storage A redland storage object
#' @slot type the storage type to create, i.e. "hashes", "mysql", "postgresql", ...
#' @rdname Storage-class
#' @aliases Storage
#' @include redland.R
#' @include World.R
#' @keywords classes
#' @section Methods:
#' \itemize{
#' \code{\link{Storage-initialize}}: Initialize a Storage object
#' \code{\link{freeStorage}}: Free memory used by a librdf storage object
#' }
#' @seealso \code{\link{redland}}: redland package
#' @export
#' @examples
#' world <- new("World")
#' storage <- new("Storage", world, "hashes", name="", options="hash-type='memory'")
setClass("Storage", slots = c(librdf_storage = "_p_librdf_storage_s",
type = "character"
))
#' Initialize a Storage object
#' @rdname Storage-initialize
#' @aliases Storage-initialize
#' @param .Object the Storage object
#' @param world the World object
#' @param type the Redland storage type
#' @param name storage instance name
#' @param options storage options
#' @return the Storage object
#' @examples
#' world <- new("World")
#' storage <- new("Storage", world, "hashes", name="", options="hash-type='memory'")
#' @export
setMethod("initialize", signature = "Storage", definition = function(.Object, world, type="hashes", name="", options="hash-type='memory'") {
stopifnot(!is.null(world))
.Object@type <- type
.Object@librdf_storage <- librdf_new_storage(world@librdf_world, type, name, options);
#librdf_storage_open(.Object@librdf_storage)
return(.Object)
})
#' Free memory used by a librdf storage object
#' @description After this method is called, the Storage object is no longer usable and should
#' be deleted \code{"rm(storage)"} and a new object created.
#' @rdname freeStorage
#' @param .Object a Storage object to free memory for
#' @examples
#' world <- new("World")
#' storage <- new("Storage", world, "hashes", name="", options="hash-type='memory'")
#' # At this point we would perform some operations using the storage object.
#' # See '?redland' for a complete example.
#' # When the Storage object is no longer needed, the resources it had allocated can be freed.
#' status <- freeStorage(storage)
#' rm(storage)
#' @export
setGeneric("freeStorage", function(.Object) {
standardGeneric("freeStorage")
})
#' @rdname freeStorage
setMethod("freeStorage", signature("Storage"), function(.Object) {
librdf_free_storage(.Object@librdf_storage)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.