stufield

# Check this out; NSE functional assignment
# Works for functions that take a single `x` argument
# and linear pipe only downstream
myfun <- . %>% 
  sqrt() %>% 
  as.character() %>% 
  paste("is the coolest number ever!")

myfun(9)

stufield

# Many RStudio engineers were using this font
# https://github.com/tonsky/FiraCode
a >= 10
a != b
a <- 4
a == 10
a <= 10

stufield

# Set up custom debugging environment
.customCommands <- new.env()
assign("bug", structure("", class = "debugger_class"), envir = .customCommands)
assign("print.debugger_class", function(debugger) {
  if ( !identical(as.character(getOption("error")), "rlang::entrace") ) {
    options(error = quote(rlang::entrace()),
            rlang__backtrace_on_error = "full")  # or "collapse"
    message(
      crayon::green(
        cli::symbol$tick,

stufield

foo <- list(a = 1:5, b = letters, c = data.frame(set = 1:4))
key <- c(b = "super", a = "awesome", c = "wicked")
nm  <- . %>% purrr::map_chr(~ key[[.x]])
foo %>% purrr::set_names(nm)

stufield

# General use suggested .Rprofile for env setup
# Include additional functionality as required
# 2019-01-24
# Stu Field, Bioinformatics, SomaLogic, Inc.
# --------------------------------------------------- #

# ------------------------- #
## session options
# ------------------------- #
options(

stufield

#!/bin/sh

echo
echo "Thank you for contributing to the ..."

echo "  ___ ___  _____    __ ___ _____ _______ ___ "
echo " (_-</ o \\/     \\  /o \\\\ |/ / -_) __(_-</ -_)"
echo "/___/\\___/__Y_Y__\\/_/\\_\\\\__/\\__/_/ /___/\\__/ "

# Read user input, assign stdin to keyboard

stufield

reprex::reprex({
  library(magrittr)
  library(SomaObjects)
  library(tibble)
  library(feather)
  t_feather <- purrr::map_dbl(1:10, ~ {
    t <- Sys.time()
    write_feather(SurvData, "/tmp/surv.feather")
    as.numeric(Sys.time() - t)
  }) %>% mean()

stufield

reprex::reprex({
  library(magrittr)
  library(tibble)
  suppressMessages(library(tidyr))
  suppressMessages(library(dplyr))

  # Option 1
  # Proper nesting of cyl using group_by
  df1 <- mtcars %>%
    group_by(cyl) %>%

stufield

library(magrittr)
library(tibble)
library(tidyr)
#> 
#> Attaching package: 'tidyr'
#> The following object is masked from 'package:magrittr':
#> 
#>     extract
library(dplyr)

stufield

Reprex output for Rcpp Single Sample DAMN Normalization

---

See the ssDAMN.cpp file is attached below

Note: you cannot reproduce entirely; SomaNormalization is private

The reprex output

---

library(SomaNormalization)