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)

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){

daattali

library(shiny)
library(gmailr)

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

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

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)

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())
  }

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)

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'

withr

library(shiny)
library(datasets)
Logged = FALSE;
PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad")
# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output) {
  source("www/Login.R",  local = TRUE)
  
  observe({
    if (USER$Logged == TRUE) {