wrathematics

# Replacement for tools::package_native_routine_registration_skeleton(".") using ctags

register = function(dir=".", dump=TRUE)
{
  pkg = read.dcf(paste0(dir, "/DESCRIPTION"))[1] 
  
  outfile = paste0(dir, "/src/", pkg, "_native.c")
  if (dump && file.exists(outfile))
    file.remove(outfile)
  

wrathematics

title	author	output
Worksheet	Professor of Science	pdf_document

\newcommand{\answerbox}{% \begin{picture}(450,50)(0,0)% \centering% \framebox(450,50){}%

wrathematics

#include <Rcpp.h>
using namespace Rcpp;

class foo {
public:
  int hmn;

  foo(int q){
    hmn = q;
  }

wrathematics

library(memuse)
library(ngram)
library(RWeka)

x = ngram::rcorpus(nwords=1e6, alphabet="a")
memuse(x)
## 4.292 MiB
system.time(ngram::ngram_asweka(x, min=2, max=2))
##    user  system elapsed 
##   0.216   0.044   0.261 

wrathematics

$ R --vanilla -d valgrind < read.r 
==13800== Memcheck, a memory error detector
==13800== Copyright (C) 2002-2015, and GNU GPL'd, by Julian Seward et al.
==13800== Using Valgrind-3.11.0 and LibVEX; rerun with -h for copyright info
==13800== Command: /usr/lib/R/bin/exec/R --no-save --quiet --no-restore --vanilla
==13800== 
==13800== WARNING: valgrind ignores shmget(shmflg) SHM_HUGETLB
> readxl::read_excel('exp.xlsx')
==13800== Invalid free() / delete / delete[] / realloc()
==13800==    at 0x4C2D28B: operator delete(void*) (in /usr/lib/valgrind/vgpreload_memcheck-amd64-linux.so)

wrathematics

library(Rcpp)
source <- "
#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
std::string str_rep(std::string x, IntegerVector ind, std::string value)
{
  int pos;
  for (int i=0; i<ind.length(); i++)

wrathematics

### Snippet from my "R package installer" script
export RCMD="env MAKE='scan-build make -j 5' R --vanilla CMD INSTALL"
eval `echo $RCMD` $PKG

wrathematics

% !TeX program = XeLaTeX
\documentclass[a4paper,10pt]{article}

\usepackage{fontspec}
\setmainfont{DejaVu Sans}
\setmonofont{DejaVu Sans}

\usepackage{listings}
\lstset{language=R}

wrathematics

\documentclass[a4paper,10pt]{article}

\begin{document}

<<>>=
cat("\U0001f431")
@

\end{document}

wrathematics

ATGGTACTGACGATTTATCCTGACGAACTCGTACAAATAGTGTCTGATAAAATTGCTTCAAATAAGGGAAAAATCACTTTGAATCAGCTGTGGGATATATCTGGTAAATATTTTGATTTGTCTGATAAAAAAGTTAAACAGTTCGTGCTTTCATGCGTGATATTGAAAAAGGACATTGAGGTGTATTGTGATGGTGCTATAACAACTAAAAATGTGACTGATATTATAGGCGACGCTAATCATTCATACTCGGTTGGGATTACTGAGGACAGCCTATGGACATTATTAACGGGATACACAAAAAAGGAGTCAACTATTGGAAATTCTGCATTTGAACTACTTCTCGAAGTTGCCAAATCAGGAGAAAAAGGGATCAATACTATGGATTTGGCGCAGGTAACTGGGCAAGATCCTAGAAGTGTGACTGGACGTATCAAGAAAATAAACCACCTGTTAACAAGTTCACAACTGATTTATAAGGGACACGTCGTGAAGCAATTGAAGCTAAAAAAATTCAGCCATGACGGGGTGGATAGTAATCCCTATATTAATATTAGGGATCATTTAGCAACAATAGTTGAGGTGGTAAAACGATCAAAAAATGGTATTCGCCAGATAATTGATTTAAAGCGTGAATTGAAATTTGACAAAGAGAAAAGACTTTCTAAAGCTTTTATTGCAGCTATTGCATGGTTAGATGAAAAGGAGTACTTAAAGAAAGTGCTTGTAGTATCACCCAAGAATCCTGCCATTAAAATCAGATGTGTAAAATACGTGAAAGATATTCCAGACTCTAAAGGCTCGCCTTCATTTGAGTATGATAGCAATAGCGCGGATGAAGATTCTGTATCAGATAGCAAGGCAGCTTTCGAAGATGAAGACTTAGTCGAAGGTTTAGATAATTTCAATGCGACTGATTTATTACAAAATCAAGGCCTTGTTATGGAAGAGAAAGAGGATGCTGTAAAGAATGAAGTTCTTCTTAATCGATTTTATCCACTTCAAAATCAGACTTATGACATTG