ColinFay

---
title: "Presentation Ninja"
subtitle: "⚔<br/>with xaringan"
author: "Yihui Xie"
institute: "RStudio, Inc."
date: "2016/12/12 (updated: `r Sys.Date()`)"
output:
  xaringan::moon_reader:
    lib_dir: libs
    nature:

ColinFay

library(shiny)
ui <- function(request){
  tagList(
    tags$script(
      "$(function(){
        $(this).bind('contextmenu', function (e) {
          e.preventDefault()
          Shiny.setInputValue('plop', Math.random());
        });
      });"

ColinFay

library(shiny)

# You can put input to both your functions
mod_ui <- function(id, title){
  # The ns here is a function that will help to 'namespace' the ids
  # In other words, it will turn "go" into "chosennamespace-go"
  ns <- NS(id)
  tagList(
    h2(title),
    selectInput(

ColinFay

download.file("https://images1.westword.com/imager/u/745xauto/9813472/mg_3662.jpg", "img.jpg")
img <- jpeg::readJPEG("img.jpg")
library(ggplot2)
ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +
  annotation_custom(rasterGrob(img, 
                               width = unit(1,"npc"), 
                               height = unit(1,"npc"))) +
  geom_point()

unlink("img.jpg")

ColinFay

library(dygraphs)
library(magrittr)
df <- data.frame(
  hour = seq( as.POSIXct("2019-01-01"),  as.POSIXct("2019-01-02"), length.out = 48 ), 
  num = 1:48, 
  freq = rep(1:2, times = 24)
)

# Doesn't work 
df %>% 

ColinFay

library(shiny)
library(leaflet)


ui <- fluidPage(
  h2("Where Am I?"),
  tags$p("Click the button to get your coordinates"),
  tags$button(onclick = "getLocation()", "Try it"),
  tags$p(id = "where"),
  leafletOutput("lf"),

ColinFay

library(patchwork)
library(ggplot2)
library(purrr)
library(dplyr)
library(glue)
map(
  5:8,
  ~iris %>%
    filter(Petal.Length < .x) %>%
    ggplot() +

ColinFay

<div class="post">
<h2>{{ title }} </h2>
{{content}}
</div>

ColinFay

snippet module
	${1:name}UI <- function(id){
		ns <- NS(id)
		tagList(
		
		)
	}

	${1:name} <- function(input, output, session){
	

ColinFay

# Make a function sleep 

sleepy <- function(fun, sleep){
  function(...){
    Sys.sleep(sleep)
    fun(...)
  }
}

sleep_print <- sleepy(print, 2)