mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
242 lines
27 KiB
HTML
242 lines
27 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>Validation module — validation_ui • FreesearchR</title><!-- favicons --><link rel="icon" type="image/png" sizes="96x96" href="../favicon-96x96.png"><link rel="icon" type="”image/svg+xml”" href="../favicon.svg"><link rel="apple-touch-icon" sizes="180x180" href="../apple-touch-icon.png"><link rel="icon" sizes="any" href="../favicon.ico"><link rel="manifest" href="../site.webmanifest"><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.10/font.css" rel="stylesheet"><link href="../deps/Public_Sans-0.4.10/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="Validation module — validation_ui"><meta name="description" content="Check that a dataset respect some validation expectations."><meta property="og:description" content="Check that a dataset respect some validation expectations."><meta property="og:image" content="https://agdamsbo.github.io/FreesearchR/logo.png"><script defer src="https://stats.freesearchr.org/script.js" data-website-id="85bfd1e8-2cbe-4a4a-aa34-1dfb2960905b"></script></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">FreesearchR</a>
|
|
|
|
<small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">25.8.3</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="nav-item"><a class="nav-link" href="../articles/FreesearchR.html">Get started</a></li>
|
|
<li class="active nav-item"><a class="nav-link" href="../reference/index.html">Reference</a></li>
|
|
<li class="nav-item dropdown">
|
|
<button class="nav-link dropdown-toggle" type="button" id="dropdown-articles" data-bs-toggle="dropdown" aria-expanded="false" aria-haspopup="true">Articles</button>
|
|
<ul class="dropdown-menu" aria-labelledby="dropdown-articles"><li><a class="dropdown-item" href="../articles/data-types.html">Data types</a></li>
|
|
<li><a class="dropdown-item" href="../articles/missingness.html">Missingness in data</a></li>
|
|
<li><a class="dropdown-item" href="../articles/session.html">Session info</a></li>
|
|
<li><a class="dropdown-item" href="../articles/visuals.html">On visuals</a></li>
|
|
</ul></li>
|
|
<li class="nav-item"><a class="nav-link" href="../ROADMAP.html">Roadmap</a></li>
|
|
<li class="nav-item"><a class="nav-link" href="../QA.html">Q&A</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/FreesearchR/" 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">
|
|
<img src="../logo.png" class="logo" alt=""><h1>Validation module</h1>
|
|
<small class="dont-index">Source: <a href="https://github.com/agdamsbo/FreesearchR/blob/main/R/validation.R" class="external-link"><code>R/validation.R</code></a></small>
|
|
<div class="d-none name"><code>validation.Rd</code></div>
|
|
</div>
|
|
|
|
<div class="ref-description section level2">
|
|
<p>Check that a dataset respect some validation expectations.</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">validation_ui</span><span class="op">(</span><span class="va">id</span>, max_height <span class="op">=</span> <span class="cn">NULL</span>, <span class="va">...</span><span class="op">)</span></span>
|
|
<span></span>
|
|
<span><span class="fu">validation_server</span><span class="op">(</span><span class="va">id</span>, <span class="va">data</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-id">id<a class="anchor" aria-label="anchor" href="#arg-id"></a></dt>
|
|
<dd><p>Module's ID.</p></dd>
|
|
|
|
|
|
<dt id="arg-max-height">max_height<a class="anchor" aria-label="anchor" href="#arg-max-height"></a></dt>
|
|
<dd><p>Maximum height for validation results element, useful if you have many rules.</p></dd>
|
|
|
|
|
|
<dt id="arg--">...<a class="anchor" aria-label="anchor" href="#arg--"></a></dt>
|
|
<dd><p>Arguments passed to <code>actionButton</code> or <code>uiOutput</code> depending on display mode,
|
|
you cannot use <code>inputId</code>/<code>outputId</code>, <code>label</code> or <code>icon</code> (button only).</p></dd>
|
|
|
|
|
|
<dt id="arg-data">data<a class="anchor" aria-label="anchor" href="#arg-data"></a></dt>
|
|
<dd><p>a <code>reactive</code> function returning a <code>data.frame</code>.</p></dd>
|
|
|
|
</dl></div>
|
|
<div class="section level2">
|
|
<h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
|
|
|
|
<ul><li><p>UI: HTML tags that can be included in shiny's UI</p></li>
|
|
<li><p>Server: a <code>list</code> with two slots:</p><ul><li><p><strong>status</strong>: a <code>reactive</code> function returning the best status available between <code>"OK"</code>, <code>"Failed"</code> or <code>"Error"</code>.</p></li>
|
|
<li><p><strong>details</strong>: a <code>reactive</code> function returning a <code>list</code> with validation details.</p></li>
|
|
</ul></li>
|
|
</ul></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="co">#' Data and analyses validation demo</span></span></span>
|
|
<span class="r-in"><span><span class="co">#'</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' @returns</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' @export</span></span></span>
|
|
<span class="r-in"><span><span class="co">#'</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' @examples</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' \dontrun{</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' validation_demo_app()</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' }</span></span></span>
|
|
<span class="r-in"><span><span class="va">validation_demo_app</span> <span class="op"><-</span> <span class="kw">function</span><span class="op">(</span><span class="op">)</span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">ui</span> <span class="op"><-</span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/fluidPage.html" class="external-link">fluidPage</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="va"><a href="https://rstudio.github.io/htmltools/reference/builder.html" class="external-link">tags</a></span><span class="op">$</span><span class="fu">h2</span><span class="op">(</span><span class="st">"Validation"</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">IDEAFilter</span><span class="fu">::</span><span class="fu"><a href="https://biogen-inc.github.io/IDEAFilter/reference/IDEAFilter_ui.html" class="external-link">IDEAFilter_ui</a></span><span class="op">(</span><span class="st">"data_filter"</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rstudio.github.io/htmltools/reference/builder.html" class="external-link">br</a></span><span class="op">(</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">DT</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/DT/man/dataTableOutput.html" class="external-link">DTOutput</a></span><span class="op">(</span><span class="st">"data_final"</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rstudio.github.io/htmltools/reference/builder.html" class="external-link">br</a></span><span class="op">(</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">validation_ui</span><span class="op">(</span><span class="st">"validation_demo_2"</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">server</span> <span class="op"><-</span> <span class="kw">function</span><span class="op">(</span><span class="va">input</span>, <span class="va">output</span>, <span class="va">session</span><span class="op">)</span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">rv</span> <span class="op"><-</span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/reactiveValues.html" class="external-link">reactiveValues</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> data_original <span class="op">=</span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/reactive.html" class="external-link">reactive</a></span><span class="op">(</span><span class="va">mtcars</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> data_filtered <span class="op">=</span> <span class="cn">NULL</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">rv_validation</span> <span class="op"><-</span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/reactiveValues.html" class="external-link">reactiveValues</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> obs_filter <span class="op">=</span> <span class="cn">NULL</span>,</span></span>
|
|
<span class="r-in"><span> vars_filter <span class="op">=</span> <span class="cn">NULL</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">data_filter</span> <span class="op"><-</span> <span class="fu">IDEAFilter</span><span class="fu">::</span><span class="fu"><a href="https://biogen-inc.github.io/IDEAFilter/reference/IDEAFilter.html" class="external-link">IDEAFilter</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> id <span class="op">=</span> <span class="st">"data_filter"</span>,</span></span>
|
|
<span class="r-in"><span> data <span class="op">=</span> <span class="va">mtcars</span>,</span></span>
|
|
<span class="r-in"><span> verbose <span class="op">=</span> <span class="cn">TRUE</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/observeEvent.html" class="external-link">observeEvent</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">data_filter</span><span class="op">(</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">rv</span><span class="op">$</span><span class="va">data_filtered</span> <span class="op"><-</span> <span class="fu">data_filter</span><span class="op">(</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">}</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">output</span><span class="op">$</span><span class="va">data_final</span> <span class="op"><-</span> <span class="fu">DT</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/DT/man/dataTableOutput.html" class="external-link">renderDT</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">data_filter</span><span class="op">(</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/observeEvent.html" class="external-link">observeEvent</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> <span class="fu"><a href="https://rdrr.io/r/base/list.html" class="external-link">list</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">data_filter</span><span class="op">(</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">to_make_validation</span> <span class="op"><-</span> <span class="fu">data_filter</span><span class="op">(</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="co">## Validation</span></span></span>
|
|
<span class="r-in"><span> <span class="kw">if</span> <span class="op">(</span><span class="op">!</span><span class="fu"><a href="https://rdrr.io/r/base/NULL.html" class="external-link">is.null</a></span><span class="op">(</span><span class="va">to_make_validation</span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">validation</span> <span class="op"><-</span></span></span>
|
|
<span class="r-in"><span> <span class="fu"><a href="make_validation.html">make_validation</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> ls <span class="op">=</span> <span class="fu"><a href="validation_lib.html">validation_lib</a></span><span class="op">(</span><span class="st">"obs_filter"</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu"><a href="https://rdrr.io/r/base/list.html" class="external-link">list</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> x <span class="op">=</span> <span class="va">mtcars</span>,</span></span>
|
|
<span class="r-in"><span> y <span class="op">=</span> <span class="va">to_make_validation</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">rv_validation</span><span class="op">$</span><span class="va">vars_filter</span> <span class="op"><-</span> <span class="va">validation</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="fu">validation_server</span><span class="op">(</span>id <span class="op">=</span> <span class="st">"validation_demo_2"</span>, data <span class="op">=</span> <span class="va">rv_validation</span><span class="op">$</span><span class="va">vars_filter</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="op">}</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="op">}</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="co"># shiny::observeEvent(</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># list(</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># shiny::reactive(rv_validation$vars_filter)(),</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># data_filter()</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># ),</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># {</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># # browser()</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># # to_make_alert <- shiny::isolate(rv_validation$vars_filter)</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># to_make_alert <- shiny::reactive(rv_validation$vars_filter)()</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># if (!is.null(rv_validation$vars_filter)) {</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># validation_server(id = "validation_demo_2", data = to_make_alert)</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># }</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># }</span></span></span>
|
|
<span class="r-in"><span> <span class="co"># )</span></span></span>
|
|
<span class="r-in"><span> <span class="op">}</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/shinyApp.html" class="external-link">shinyApp</a></span><span class="op">(</span><span class="va">ui</span>, <span class="va">server</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span><span class="op">}</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span><span class="co">#' Title</span></span></span>
|
|
<span class="r-in"><span><span class="co">#'</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' @returns</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' @export</span></span></span>
|
|
<span class="r-in"><span><span class="co">#'</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' @examples</span></span></span>
|
|
<span class="r-in"><span><span class="co">#' validation_nr_demo_app()</span></span></span>
|
|
<span class="r-in"><span><span class="va">validation_nr_demo_app</span> <span class="op"><-</span> <span class="kw">function</span><span class="op">(</span><span class="op">)</span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">ui</span> <span class="op"><-</span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/fluidPage.html" class="external-link">fluidPage</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="va"><a href="https://rstudio.github.io/htmltools/reference/builder.html" class="external-link">tags</a></span><span class="op">$</span><span class="fu">h2</span><span class="op">(</span><span class="st">"Validation"</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rstudio.github.io/htmltools/reference/builder.html" class="external-link">br</a></span><span class="op">(</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">validation_ui</span><span class="op">(</span><span class="st">"validation_demo_1"</span>, max_height <span class="op">=</span> <span class="st">"30px"</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rstudio.github.io/htmltools/reference/builder.html" class="external-link">br</a></span><span class="op">(</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu">validation_ui</span><span class="op">(</span><span class="st">"validation_demo_2"</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">server</span> <span class="op"><-</span> <span class="kw">function</span><span class="op">(</span><span class="va">input</span>, <span class="va">output</span>, <span class="va">session</span><span class="op">)</span> <span class="op">{</span></span></span>
|
|
<span class="r-in"><span> <span class="va">df_original</span> <span class="op"><-</span> <span class="va">mtcars</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">df_obs</span> <span class="op"><-</span> <span class="va">mtcars</span> <span class="op">|></span> <span class="fu">dplyr</span><span class="fu">::</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/filter.html" class="external-link">filter</a></span><span class="op">(</span><span class="va">mpg</span> <span class="op">></span> <span class="fl">20</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">df_vars</span> <span class="op"><-</span> <span class="va">df_obs</span><span class="op">[</span><span class="fl">1</span><span class="op">:</span><span class="fl">6</span><span class="op">]</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">val1</span> <span class="op"><-</span> <span class="fu">purrr</span><span class="fu">::</span><span class="fu"><a href="https://purrr.tidyverse.org/reference/map2.html" class="external-link">map2</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> .x <span class="op">=</span> <span class="fu"><a href="validation_lib.html">validation_lib</a></span><span class="op">(</span><span class="op">)</span><span class="op">[</span><span class="fl">1</span><span class="op">]</span>,</span></span>
|
|
<span class="r-in"><span> .y <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/list.html" class="external-link">list</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/list.html" class="external-link">list</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">df_original</span>, y <span class="op">=</span> <span class="va">df_obs</span><span class="op">)</span><span class="op">)</span>,</span></span>
|
|
<span class="r-in"><span> <span class="va">make_validation</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="va">val2</span> <span class="op"><-</span> <span class="fu"><a href="make_validation.html">make_validation</a></span><span class="op">(</span></span></span>
|
|
<span class="r-in"><span> ls <span class="op">=</span> <span class="fu"><a href="validation_lib.html">validation_lib</a></span><span class="op">(</span><span class="op">)</span><span class="op">[[</span><span class="fl">2</span><span class="op">]</span><span class="op">]</span>,</span></span>
|
|
<span class="r-in"><span> <span class="fu"><a href="https://rdrr.io/r/base/list.html" class="external-link">list</a></span><span class="op">(</span>x <span class="op">=</span> <span class="va">df_original</span>, y <span class="op">=</span> <span class="va">df_vars</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="fu">validation_server</span><span class="op">(</span>id <span class="op">=</span> <span class="st">"validation_demo_1"</span>, data <span class="op">=</span> <span class="va">val1</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span></span></span>
|
|
<span class="r-in"><span> <span class="fu">validation_server</span><span class="op">(</span>id <span class="op">=</span> <span class="st">"validation_demo_2"</span>, data <span class="op">=</span> <span class="va">val2</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span> <span class="op">}</span></span></span>
|
|
<span class="r-in"><span> <span class="fu">shiny</span><span class="fu">::</span><span class="fu"><a href="https://rdrr.io/pkg/shiny/man/shinyApp.html" class="external-link">shinyApp</a></span><span class="op">(</span><span class="va">ui</span>, <span class="va">server</span><span class="op">)</span></span></span>
|
|
<span class="r-in"><span><span class="op">}</span></span></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.3.</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>
|
|
|