DavisVaughan

#include <R_ext/Parse.h>

const char* r_print_value(SEXP x) {
  // Assign `x` into the global environment under the name `.debug`
  Rf_defineVar(Rf_install(".debug"), x, R_GlobalEnv);

  // This is the R code that we want to run to print `.debug` and then capture all its printed output
  const char* command = "paste0(capture.output(print(.debug)), collapse = '\n')";
  SEXP command_sexp = PROTECT(Rf_allocVector(STRSXP, 1));
  SET_STRING_ELT(command_sexp, 0, Rf_mkCharCE(command, CE_UTF8));

JosiahParry

// Place your key bindings in this file to override the defaults
[
    {
        "key": "shift+cmd+b",
        "command": "workbench.action.tasks.runTask",
        "args": "Build R package",
        "when": "isRPackage"
    },
    {
        "key": "shift+cmd+enter",

juliasilge

Install native ARM R: https://cloud.r-project.org/

Install RStudio (probably preview) which is not native as of today: https://www.rstudio.com/products/rstudio/download/preview/

This blog post is helpful for getting Tensorflow working, but it is older, before the ARM version of R and the RStudio version that supports it was available.

This other blog post has specific steps outlined, but some of it has also been superseded.

tylermorganwall

library(raster)
library(rayshader)
#Load QGIS georeference image (see https://www.qgistutorials.com/en/docs/3/georeferencing_basics.html)
testindia = raster::stack("1870_southern-india_modified.tif")

#Set bounding box for final map (cut off edges without data, introduced via reprojection)
india_bb = raster::extent(c(68,92,1,20))
cropped_india = raster::crop(testindia, india_bb)

#Convert to RGB array

nstrayer

library(tidyverse)

n <-  150
sensitivity_threshold <- 5
data <- tibble(
  a = rgamma(n = n, shape = 5, rate = 0.5),
  b = rgamma(n = n, shape = a/2, rate = 0.5)
)

generate_missing_data <- function(i){

coolbutuseless

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#' Create a CSS ruleset
#'
#' Create a CSS ruleset  consisting of a selector and one-or-more property declarations,
#' or, if no \code{.selector} is given, create an inline style string
#'
#' The list of included properties is not a complete list, but rather an
#' abbreviated list from
#' \url{https://developer.mozilla.org/en-US/docs/Web/CSS/CSS_Properties_Reference}

MilesMcBain

f <- function(...) {
  function(df) with(df, ...)
}

footate <- function(.data, ...) {
  dots <- list(...)

  for (column in names(dots)) {
    .data[[column]] <- dots[[column]](.data)
  }

markdly

---
output: 
  html_document:
    theme: cerulean
---

### Example html multiple choice question using Rmarkdown

<!-- Render this Rmarkdown doc to html to make an interactive html / js multiple choice question -->

trestletech

download.file("https://ndownloader.figshare.com/articles/5170705/versions/1", "kd.zip")
unzip("kd.zip")

library(readr)

words <- readr::read_csv("KSP-Word.csv")
users <- readr::read_csv("KSP-User.csv")
entries <- readr::read_csv("KSP-Entry.csv")
keypress <- readr::read_csv("KSP-KeyPress.csv")
pressure <- readr::read_csv("KSP-Pressure.csv")

MilesMcBain

dat <- readr::read_csv("municipality\n- Ticino\n>> Distretto di Bellinzona\n......5001 Arbedo-Castione\n......5002 Bellinzona\n......5003 Cadenazzo\n......5004 Camorino\n")

dat %>% mutate(municipality = gsub(pattern = '[\\.\\>]|^-', 
                                   replacement = "", 
                                   municipality)) %>%
        separate(col = municipality, 
                 sep = '(?<=[0-9])\\s', 
                 into = c ("code","municipality"), 
                 fill = "left")