yutannihilation

data_frame()のrow.names

data_frame（dplyr版data.frame）がどうなってるのかと思ってヘルプを見ると、

2. Never adds row.names.

と書いてあります。実際試してみると、row.namesを指定しても同名の列が加わるだけです。

yutannihilation

Bar

var data = {series:[[1,2,3,4,5]], labels:[1,2,3,4,5]}
var seq = 0;
var chart = new Chartist.Bar('.ct-chart', data)
chart.on("draw", function(x){console.log(x);});
chart.update()

yutannihilation

Animation Parameters

• begin: delay
• dur: duration
• from: the value where the animation should start
• to: the value where the animation should end
• easing: the name of an easing function

Easing Functions

• easeInSine

yutannihilation

ウェブフォントのテストですよこれは。(A Test To See If RPresentation Works Well With Japanese Web Fonts)
========================================================
author: @yutannihilation
date: 2015年2月7日
css: test.css

Overview
========================================================
This presentation uses Google's [Noto Sans Japan](https://www.google.com/fonts/specimen/Noto+Sans). Red characters are rendered with Noto Sans.

yutannihilation

CREATE DATABASE misc;
use misc;

CREATE TABLE drive_stats (
    date DATE NOT NULL,
    serial_number VARCHAR(32) NOT NULL,
    model VARCHAR(32) NOT NULL,
    capacity_bytes TINYINT NOT NULL,
    failure TINYINT NOT NULL,
    smart_1_normalized TINYINT,

yutannihilation

Soooooooolarized!!!!!
========================================================
author: Hiroaki Yutani
date: 2015/2/11
font-import: http://fonts.googleapis.com/css?family=Bangers
css: solarized_with_webfont.css

solarized
========================================================

yutannihilation

library(R6)

methods(class = "R6")
#> [1] print.R6*
#>  
#>    Non-visible functions are asterisked

Numbers <- R6Class("Numbers",
                   public = list(
                     x = 100

yutannihilation

library(rvest)
library(httr)
library(dplyr)
library(purrr)

# get URLs of detail pages
get_links <- function(num) {
  url <- sprintf("http://www.botswanatourism.co.bw/accommodation?field_facility_region_tid=All&title=&page=%d", num)
  
  links <- html(url) %>%

yutannihilation

# No responsiveness
chartist(data, day) +
  Line(x_labelInterpolationFnc = JS_interp(4, offset = 2))

# responsiveness
chartist(data, day) +
  Line(x_labelInterpolationFnc = JS_interp(4, offset = 2)) +
  Line(x_labelInterpolationFnc = JS_interp(13, offset = 2), responsive_query = "screen and (min-width: 641px) and (max-width: 1024px)")

yutannihilation

---
title: "邪智暴虐なエクセル王を倒そう readxl版"
author: "Hiroaki Yutani"
date: "2015/3/23"
output: html_document
---

e-Statの邪智暴虐っぷりに打ちのめされていた私ですが、uri氏がやってくれました。

[邪智暴虐なエクセル王を倒そう](http://rpubs.com/uri-sy/fury_to_estat)