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 - Funzioni di concessione e revoca del privilegio
}
\description{
Concede o revoca il privilegio di lettura per uno script o un data store \R.
}
\usage{
ore.grant(name, type = c("datastore", "rqscript"), user = NULL)
ore.revoke(name, type = c("datastore", "rqscript"), user = NULL)
}
\arguments{
  \item{name}{
Stringa di caratteri che specifica il nome di uno script \R nel 
    repository di script \R o il nome di un data store. L'utente
    corrente deve essere il proprietario dello script o del data store \R.
}
  \item{type}{
Stringa di caratteri scalare che specifica 'datastore' o 'rqscript' per concedere 
    o revocare il privilegio di lettura. Questo argomento deve essere specificato.
}
  \item{user}{
Stringa di caratteri facoltativa che specifica l'utente al quale viene 
    concesso o revocato il privilegio di lettura dello script o del data 
    store \R denominato. Il valore predefinito \code{NULL} indica che il privilegio 
    viene concesso o revocato da public.
}
}
\details{
Le funzioni \code{\link{ore.grant}} e \code{\link{ore.revoke}} prevedono che
  l'utente disponga del ruolo \\option{RQADMIN} del database Oracle.
}
\value{
Le funzioni \code{ore.grant} e \code{ore.revoke} restituiscono un valore 
  \code{NULL} invisibile se la concessione o la revoca del privilegio riesce, 
  altrimenti generano un errore.
}
\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}