ColinFay

library(shiny)
library(ggplot2)
ui <- function(request){
  tagList(
    h2("Click on the plot to download it"),
    tags$button(
      "Click here to download the plot", 
      onclick = 'var a = document.createElement("a"); a.href = $("#plop").find("img").attr("src"); a.download = "Image.png"; a.click(); '
    ),
    plotOutput("plop") 

andrewheiss

library(tidyverse)
library(ggdag)
library(ggraph)

theory_dag <- dagify(AE ~ PF,
                     PF ~ IC + RC,
                     FIC ~ AE,
                     labels = c("AE" = "Advocacy\neffects", 
                                "PF" = "Programmatic\nflexibility",

kevinushey

// the column-wise implementation is just as fast as colMeans,
// but the row-wise operation is not quite as fast as rowMeans.

// can I do better?

#include <Rcpp.h>
using namespace Rcpp;

template <class T>
inline double do_mean( T& x ) {