moodymudskipper

mutate2 <- function(.data, ...) {
  dots <- rlang::enquos(...)
  has_tilde_lgl <- sapply(dots, function(x) {
    expr <- rlang::quo_get_expr(x)
    is.call(expr) && identical(expr[[1]], quote(`~`))
    })
  inds <- which(has_tilde_lgl)
  nms <- names(dots)[inds]
  exprs <- vector("list", length(inds))
  for(i in seq_along(inds)) {

johnburnmurdoch

# Install and load required packages
install.packages("needs")
library(needs)
needs(tidyverse, magrittr, animation, pdftools, png, scales)

# Function that extracts data from Google Mobility PDFs
process_google_mobility <- function(country_code, start_date, end_date){
  
  # Convert first page of PDF into high-res PNG
  pdf_convert(paste0("https://www.gstatic.com/covid19/mobility/",end_date,"_",country_code,"_Mobility_Report_en.pdf"), format = "png", pages = 1, dpi = 300, filenames = "IMG1.png")

rmflight

Notice!

This gist is no longer going to be updated. Instead, check out the page at https://rmflight.github.io/rerrors/, or the GitHub project itself at https://rmflight.github.io/rerrors/

Installing packages

You don't need to do 'install.packages("tidyverse")' every time. Install is installing it on your system. You only need to do it again if you re-install R, or want a newer version. 'library()' loads it for use, and 'install.packages()' installs it to your computer.

Error in instal.packages("tidyverse") : could not find function "instal.packages

Wikunia

using JuMP, GLPK

function graph_coloring(;fast=true, benchmark=false)
    m = Model(with_optimizer(GLPK.Optimizer, msg_lev = 3))

    @variable(m, max_color, Int)
    @variable(m, c[1:49,1:4], Bin)

    @objective(m, Min, max_color)

malcolmbarrett

# install.packages(c("here", "fs", "stringr", "purrr", "git2r"))

# to add invisibly in your R profile, open with usethis::edit_r_profile()
# then define it in an environment, e.g.
# .env <- new.env()
# .env$move_slides_to_web <- {function definition}

move_slides_to_web <- function(folder = NULL, index = NULL) {
  
  if (is.null(folder)) {

baptiste

fun_labels <- function(x) sprintf("<b>%s</b>", x)
  
ggplot() +
  scale_x(breaks = c('a','b','c')) +
  theme(axis.label = element_sticker(grob = fancyGrob, dictionary = fun_labels))

my_labels <- tibble(label = letters[1:3], grobs = I(lapply(1:3, fancyGrob)))

peterdesmet

Contributing to our_package

First of all, thanks for considering contributing to our_package! 👍 It's people like you that make it rewarding for us - the project maintainers - to work on our_package. 😊

our_package is an open source project, maintained by people who care. We are not directly funded to do so.

tjmahr

# R script for sorting the pictures in my OneDrive's camera roll folder. Photos
# in the directory are uploaded and backed up here automatically from the iOS
# OneDrive app. This script puts the photos into Year / Month subfolders.

dir <- "F:/Tristan/OneDrive/Pictures/Camera Roll"
ps <- list.files(dir, "*.(jpg|png)", full.names = TRUE)

library(exiftoolr)
library(dplyr)

brodieG

# started with `foghorn`, but that comes with dependencies and
# slows down R startup.  `browseURL` just barely slows startup, 
# even if actual page is slow to load.

check_cran_old <- function(email) {
  utils::browseURL(
    sprintf(
      "https://cran.r-project.org/web/checks/check_results_%s.html",
      gsub("[^A-Za-z0-9_:.-]", "_", sub("@", "_at_", email))
) ) }

hrbrmstr

gh_migrate("YOUR_GITHUB_USERNAME", "GITHUB_REPO")

gitea_user <- function(gitea_username, 
                       api_endpoint = Sys.getenv("GITEA_BASE_URL"),
                       gitea_token = Sys.getenv("GITEA_PAT")) {
    
  require("httr", quietly = TRUE)
  require("jsonlite", quietly = TRUE)
  
  httr::GET(