jcheng5

To opt into a more recent version of jQuery, you can add an htmlDependency object pointing to your desired version, somewhere (anywhere) in your UI:

htmltools::htmlDependency("jquery", "3.3.1",
  src = c(href = "https://code.jquery.com/"),
  script = "jquery-3.3.1.min.js")

This example will serve jQuery 3.3.1 from the jQuery CDN. If your app needs to work with clients that won't be able to connect to the wider internet, you'll need to download the jquery-3.3.1.min.js file, put it in an app subdirectory (say, jquery), and point to the directory using the src argument.

jimhester

enum <- function(...) {
  nms <- eval(substitute(alist(...)))
  x <- as.list(setNames(seq_along(nms), nms))
  f <- tempfile()
  attach(x, name = f)
  # Cleanup the enum if when the parent frame exists 
  # unless we are in the global environment.
  if (!identical(parent.frame(),  globalenv())) {
    withr::defer(detach(name = f), parent.frame())
  }

hadley

library(shiny)
library(httr)

# OAuth setup --------------------------------------------------------

# Most OAuth applications require that you redirect to a fixed and known
# set of URLs. Many only allow you to redirect to a single URL: if this
# is the case for, you'll need to create an app for testing with a localhost
# url, and an app for your deployed app.

calligross

library(shiny)
library(shinyjs)

if (!dir.exists('www/')) {
  dir.create('www')
}

download.file(
  url = 'https://cdn.jsdelivr.net/npm/js-cookie@2/src/js.cookie.min.js',
  destfile = 'www/js.cookie.js'

jimhester

daattali

# This script uploads all the FAST files to the taxonomer server (only one file can be uploaded at a time)
# Assumes that you have RSelenium package installed and that you've got a simple selenium example to work

if (FALSE) {
  fastq_files <- c(
    list.files(# WHERE ARE THE FILES?, pattern = "fastq.gz$", full.names = TRUE)
  )
  login_password <- "" # what is my password???
  
  library(RSelenium)

data-steve

#compare with https://gist.github.com/expersso/bb03efcab2a6c125da5ac22e1c33d070

url <- "https://github.com/daattali/addinslist/blob/master/README.md#list-of-addins"

get_html_table <- function(url){
  xx <- xml2::read_html(url)
  rvest::xml_node(rvest::xml_node(xx,"body"),"table")
}

tr_to_nms <- function(tbl){

jimhester

# Q on @GitHub: does anyone now how to easily (ie automatically) list all forks
# of a repository that have more than N commits in the fork?

library(gh) # devtools::install_github("gaborcsardi/gh")
forks_n_commits <- function(owner, repo, n = 1) {

  events <- gh("GET /networks/:owner/:repo/events", owner = owner, repo = repo, .limit = Inf)

  fork_pushes <- Filter(function(x) x$type == "PushEvent" && x$repo$name != paste0(owner, "/", repo),
    events)

daattali

library(shiny)
library(gmailr)

ui <- fluidPage(
  textInput("subj", "Subject", "Schedule change"),
  textInput("text", "Message"),
  actionButton("btn", "Send")
)

server <- function(input, output, session) {

lgatto

colour_picker <- function() {
    n <- length(colours())
    i <- ceiling(sqrt(n))
    m <- matrix(c(1:n, rep(NA, i^2 - n)),
                ncol = i, nrow = i)
    ## plotting
    image(m, col = colours(),
          xaxt = "n", yaxt = "n")
    k <- seq(0, 1, length.out = i)
    kk <- expand.grid(k, k)