Thell

trait EnumeratedRetain<T> {
    fn retain_enumerate<F>(&mut self, f: F)
    where
        F: FnMut(usize, &T) -> bool;
}

impl<T> EnumeratedRetain<T> for Vec<T> {
    fn retain_enumerate<F>(&mut self, mut f: F)
    where
        F: FnMut(usize, &T) -> bool,

Thell

use clap::{Args, ArgGroup, Parser, Subcommand};

#[derive(Parser)]
#[clap(author, version, about, long_about = None)]
#[clap(propagate_version = true)]
struct Cli {
    #[clap(subcommand)]
    command: Commands,
}

Thell

# compare rcpp and rust zero matrices performance to test wrap times.

library(microbenchmark)


Rcpp::sourceCpp(
  code = '
#include <Rcpp.h>
using namespace Rcpp;

Thell

let
  Source = Table.FromRows(
    Json.Document(
      Binary.Decompress(
        Binary.FromText(
          "bcxBCoAgFATQq8hf28L5p+gM4iLJoE1FtLDbl4INhLth/rzvvYzbnLJYOc60rNlc95Gc8cu+u9Br0W3116L7AW0brBf33iZTVsMXwag1Rg5iawsGMYhBDGIQo2IlVmIlVmIlVgnhAQ==",
          BinaryEncoding.Base64
        ),
        Compression.Deflate
      )

Thell

VERY Basic WSL2 RStudio Install

Begin with a plain Ubuntu distro from the Windows App Store. If one is already installed and you want to start from scratch simply:

wsl -t Ubuntu
wsl --unregister Ubuntu
Ubuntu

Thell

// [[Rcpp::plugins(cpp11)]]
#include <Rcpp.h>
using namespace Rcpp;

// Rcpp containers
typedef Rcpp::NumericMatrix nm;
typedef Rcpp::NumericVector nv;
typedef Rcpp::IntegerMatrix im;
typedef Rcpp::IntegerVector iv;
typedef Rcpp::LogicalMatrix lm;

Thell

#!/bin/sh

# Aria2 rpc based progress output for apt-fast
# trigger using --on-download-complete callback.

# Provide bytesNeeded in the parent environment...
#	 apturis=$(apt-get -qq --print-uris "$@")
#	 export DLLISTBYTES=$( echo "$apturis"| awk -F " " '{bytes+=$3} END{print bytes}' )

aria2_rpc () {

Thell

---
output: html_document
---

### RStudio MathJax and the preview window/pane

When $MathJax$ is rendered it should be using 

```{r}
Sys.getenv(x = "RMARKDOWN_MATHJAX_PATH")

Thell

\begin{equation*} 1 \end{equation*}

Thell

---
title: "testfn"
output: html_document
---

```{r knitr-setup, include=FALSE, echo=FALSE}
library(knitr)
```

```{r insert-fun, echo=FALSE}