mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 09:59:39 +02:00
157 lines
13 KiB
HTML
157 lines
13 KiB
HTML
<!DOCTYPE html>
|
|
<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Wrapper function to get function from character vector referring to function from namespace. Passed to 'do.call()' — getfun • freesearcheR</title><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Montserrat-0.4.9/font.css" rel="stylesheet"><link href="../deps/Public_Sans-0.4.9/font.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><meta property="og:title" content="Wrapper function to get function from character vector referring to function from namespace. Passed to 'do.call()' — getfun"><meta name="description" content="This function follows the idea from this comment: https://stackoverflow.com/questions/38983179/do-call-a-function-in-r-without-loading-the-package"><meta property="og:description" content="This function follows the idea from this comment: https://stackoverflow.com/questions/38983179/do-call-a-function-in-r-without-loading-the-package"></head><body>
|
|
<a href="#main" class="visually-hidden-focusable">Skip to contents</a>
|
|
|
|
|
|
<nav class="navbar navbar-expand-lg fixed-top bg-primary" data-bs-theme="dark" aria-label="Site navigation"><div class="container">
|
|
|
|
<a class="navbar-brand me-2" href="../index.html">freesearcheR</a>
|
|
|
|
<small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">25.2.1</small>
|
|
|
|
|
|
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
|
|
<span class="navbar-toggler-icon"></span>
|
|
</button>
|
|
|
|
<div id="navbar" class="collapse navbar-collapse ms-3">
|
|
<ul class="navbar-nav me-auto"><li class="active nav-item"><a class="nav-link" href="../reference/index.html">Reference</a></li>
|
|
<li class="nav-item"><a class="nav-link" href="../ROADMAP.html">Roadmap</a></li>
|
|
<li class="nav-item"><a class="nav-link" href="../news/index.html">Changelog</a></li>
|
|
</ul><ul class="navbar-nav"><li class="nav-item"><form class="form-inline" role="search">
|
|
<input class="form-control" type="search" name="search-input" id="search-input" autocomplete="off" aria-label="Search site" placeholder="Search for" data-search-index="../search.json"></form></li>
|
|
<li class="nav-item"><a class="external-link nav-link" href="https://github.com/agdamsbo/freesearcheR/" aria-label="GitHub"><span class="fa fab fa-github fa-lg"></span></a></li>
|
|
</ul></div>
|
|
|
|
|
|
</div>
|
|
</nav><div class="container template-reference-topic">
|
|
<div class="row">
|
|
<main id="main" class="col-md-9"><div class="page-header">
|
|
|
|
<h1>Wrapper function to get function from character vector referring to function from namespace. Passed to 'do.call()'</h1>
|
|
<small class="dont-index">Source: <a href="https://github.com/agdamsbo/freesearcheR/blob/main/R/helpers.R" class="external-link"><code>R/helpers.R</code></a></small>
|
|
<div class="d-none name"><code>getfun.Rd</code></div>
|
|
</div>
|
|
|
|
<div class="ref-description section level2">
|
|
<p>This function follows the idea from this comment: https://stackoverflow.com/questions/38983179/do-call-a-function-in-r-without-loading-the-package</p>
|
|
</div>
|
|
|
|
<div class="section level2">
|
|
<h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
|
|
<div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">getfun</span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span></code></pre></div>
|
|
</div>
|
|
|
|
<div class="section level2">
|
|
<h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
|
|
|
|
|
|
<dl><dt id="arg-x">x<a class="anchor" aria-label="anchor" href="#arg-x"></a></dt>
|
|
<dd><p>function or function name</p></dd>
|
|
|
|
</dl></div>
|
|
<div class="section level2">
|
|
<h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
|
|
<p>function or character vector</p>
|
|
</div>
|
|
|
|
<div class="section level2">
|
|
<h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
|
|
<div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">getfun</span><span class="op">(</span><span class="st">"stats::lm"</span><span class="op">)</span></span></span>
|
|
<span class="r-out co"><span class="r-pr">#></span> function (formula, data, subset, weights, na.action, method = "qr", </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> contrasts = NULL, offset, ...) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> {</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> ret.x <- x</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> ret.y <- y</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> cl <- match.call()</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mf <- match.call(expand.dots = FALSE)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> m <- match(c("formula", "data", "subset", "weights", "na.action", </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> "offset"), names(mf), 0L)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mf <- mf[c(1L, m)]</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mf$drop.unused.levels <- TRUE</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mf[[1L]] <- quote(stats::model.frame)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mf <- eval(mf, parent.frame())</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (method == "model.frame") </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> return(mf)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> else if (method != "qr") </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> warning(gettextf("method = '%s' is not supported. Using 'qr'", </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> method), domain = NA)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mt <- attr(mf, "terms")</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> y <- model.response(mf, "numeric")</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> w <- as.vector(model.weights(mf))</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (!is.null(w) && !is.numeric(w)) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> stop("'weights' must be a numeric vector")</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> offset <- model.offset(mf)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> mlm <- is.matrix(y)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> ny <- if (mlm) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> nrow(y)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> else length(y)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (!is.null(offset)) {</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (!mlm) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> offset <- as.vector(offset)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (NROW(offset) != ny) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> stop(gettextf("number of offsets is %d, should equal %d (number of observations)", </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> NROW(offset), ny), domain = NA)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> }</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (is.empty.model(mt)) {</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> x <- NULL</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z <- list(coefficients = if (mlm) matrix(NA_real_, 0, </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> ncol(y)) else numeric(), residuals = y, fitted.values = 0 * </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> y, weights = w, rank = 0L, df.residual = if (!is.null(w)) sum(w != </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> 0) else ny)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (!is.null(offset)) {</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$fitted.values <- offset</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$residuals <- y - offset</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> }</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> }</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> else {</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> x <- model.matrix(mt, mf, contrasts)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z <- if (is.null(w)) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> lm.fit(x, y, offset = offset, singular.ok = singular.ok, </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> ...)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> else lm.wfit(x, y, w, offset = offset, singular.ok = singular.ok, </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> ...)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> }</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> class(z) <- c(if (mlm) "mlm", "lm")</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$na.action <- attr(mf, "na.action")</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$offset <- offset</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$contrasts <- attr(x, "contrasts")</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$xlevels <- .getXlevels(mt, mf)</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$call <- cl</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$terms <- mt</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (model) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$model <- mf</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (ret.x) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$x <- x</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (ret.y) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$y <- y</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> if (!qr) </span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z$qr <- NULL</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> z</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> }</span>
|
|
<span class="r-out co"><span class="r-pr">#></span> <bytecode: 0x55f395fa03c8></span>
|
|
<span class="r-out co"><span class="r-pr">#></span> <environment: namespace:stats></span>
|
|
</code></pre></div>
|
|
</div>
|
|
</main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
|
|
</nav></aside></div>
|
|
|
|
|
|
<footer><div class="pkgdown-footer-left">
|
|
<p>Site built with <a href="https://pkgdown.r-lib.org/" class="external-link">pkgdown</a> 2.1.1.</p>
|
|
</div>
|
|
|
|
<div class="pkgdown-footer-right">
|
|
<p>Developed by Andreas Gammelgaard Damsbo. Provided without <strong>any warranty</strong>.</p>
|
|
</div>
|
|
|
|
</footer></div>
|
|
|
|
|
|
|
|
|
|
|
|
</body></html>
|
|
|