MINI MINI MANI MO

%
% Copyright (c) 2012, 2015, Oracle and/or its affiliates. All rights reserved.
%
\name{ore.grant}
\alias{ore.grant}
\alias{ore.revoke}
\title{
Oracle R Enterprise - Funktionen zum Erteilen und Entziehen von Berechtigungen
}
\description{
Erteilt oder entzieht Leseberechtigungen für \R-Skripte oder Datenspeicher.
}
\usage{
ore.grant(name, type = c("datastore", "rqscript"), user = NULL)
ore.revoke(name, type = c("datastore", "rqscript"), user = NULL)
}
\arguments{
  \item{name}{
Eine Zeichenfolge, die den Namen eines \R-Skripts im 
    \R-Skript-Repository bzw. den Namen eines Datenspeichers angibt.
    Der aktuelle Benutzer muss der Eigentümer des \R-Skripts bzw. des Datenspeichers sein.
}
  \item{type}{
Eine skalare Zeichenfolge, die entweder "datastore" oder "rqscript" angibt, um 
    die Leseberechtigung zu erteilen bzw. zu entziehen. Dieses Argument muss angegeben werden.
}
  \item{user}{
Eine optionale Zeichenfolge, die den Benutzer angibt, dem Leseberechtigung für 
    das benannte \R-Skript oder den Datenspeicher erteilt oder entzogen wird. Der 
    Standardwert \code{NULL} gibt an, dass die Berechtigung für öffentlichen Zugriff 
    erteilt oder entzogen wird.
}
}
\details{
Für Funktionen \code{\link{ore.grant}} und \code{\link{ore.revoke}} muss der
  Benutzer die Oracle Database-Rolle \\option{RQADMIN} haben.
}
\value{
Funktionen \code{ore.grant} und \code{ore.revoke} geben einen unsichtbaren 
  \code{NULL}-Wert zurück, wenn sie beim Erteilen oder Entziehen der Berechtigung 
  erfolgreich sind. Andernfalls erzeugen sie einen Fehler.
}
\references{
  \href{http://www.oracle.com/technetwork/database/database-technologies/r/r-enterprise/documentation/index.html}{Oracle R Enterprise}
}
\author{
  Oracle \email{oracle-r-enterprise@oracle.com}
}
\seealso{
  \code{\link{ore.scriptCreate}},
  \code{\link{ore.scriptDrop}}, 
  \code{\link{ore.scriptLoad}},
  \code{\link{ore.scriptList}},
  \code{\link{ore.load}},
  \code{\link{ore.datastore}},
  \code{\link{ore.datastoreSummary}}
}
\examples{
if (!interactive())
{
  # create an R script for the current user
  ore.scriptCreate("MYLM",
                   function(data, formula, ...) lm(formula, data, ...))
  IRIS <- ore.push(iris)
  ore.tableApply(IRIS[1:4], FUN.NAME = "MYLM",
                 formula = Sepal.Length ~ .)

  # create a global R script available to any user
  ore.scriptCreate("GLBGLM",
                   function(data, formula, ...) 
                     glm(formula=formula, data=data, ...),
                   global = TRUE)
  ore.tableApply(IRIS[1:4], FUN.NAME = "GLBGLM",
                 formula = Sepal.Length ~ .) 

  # list R scripts 
  ore.scriptList()
  ore.scriptList(pattern="LM", type="all")

  # load an R script to an R function object
  ore.scriptLoad(name="MYLM")
  ore.scriptLoad(name="GLBGLM", newname="MYGLM")
  MYLM(iris, formula = Sepal.Length ~ .)
  MYGLM(iris, formula = Sepal.Length ~ .)

  # grant and revoke R script read privilege to and from public
  ore.grant(name = "MYLM", type = "rqscript")
  ore.scriptList(type="grant")
  ore.revoke(name = "MYLM", type = "rqscript")
  ore.scriptList(type="grant")  

  # drop an R script
  ore.scriptDrop("MYLM")
  ore.scriptDrop("GLBGLM", global=TRUE)

  ore.scriptList(type="all")

  # create grantable datastores
  ore.save(iris, name="ds_1", grantable=TRUE)
  ore.save(mtcars, name="ds_2", grantable=TRUE)

  # grant the read privilege of one datastore to every user
  ore.grant(name="ds_1", type="datastore", user=NULL)

  # show all the datastores
  ore.datastore(type="all")[,-5L]

  # show the grantable datstores
  ore.datastore(type="grantable")[, -4L]

  # show the datastoe the read privilege for which was granted to other users
  ore.datastore(type="grant")

  # revoke the granted privilege 
  ore.revoke(name="ds_1", type="datastore", user=NULL)

  ore.delete(name="ds_1")
  ore.delete(name="ds_2")
}
}
\keyword{programming}
\keyword{database}
\keyword{ORE}