test for https://github.com/hadley/dplyr/issues/2387

dplyr_test.Rmd

---
title: "A dplyr test"
author: "yutannihilation"
date: "`r Sys.Date()`"
output:
  html_document:
    keep_md: true
---

## Package version and locale

```{r load_package, message=FALSE}
library(dplyr)
```

```{r package_version_locale}
packageVersion("dplyr")
packageDescription("dplyr")$GithubSHA1
```

```{r}
Sys.getlocale()
```

## Tests

```{r test1_data}
df1 <- data_frame(Φ = 1)
df1
```

```{r test1_mutate}
df1_mutated <- df1 %>% mutate(Φ = Φ * 2)
df1_mutated
```

```{r test2_data}
df2 <- df1
colnames(df2) <- enc2utf8(colnames(df2))
```

```{r test2_mutate}
df2_mutated <- df2 %>% mutate(Φ = Φ * 2)
df2_mutated
```

dplyr_test1.md

A dplyr test

yutannihilation
r Sys.Date()

Package version and locale

library(dplyr)

packageVersion("dplyr")

## [1] '0.5.0.9000'

packageDescription("dplyr")$GithubSHA1

## [1] "0d575626b9ce3992fc849566c23d573579eb9424"

Sys.getlocale()

## [1] "LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932;LC_MONETARY=Japanese_Japan.932;LC_NUMERIC=C;LC_TIME=Japanese_Japan.932"

Tests

df1 <- data_frame(Φ = 1)
df1

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     1

df1_mutated <- df1 %>% mutate(Φ = Φ * 2)
df1_mutated

## # A tibble: 1 × 2
##      Φ    ﾎｦ
##   <dbl> <dbl>
## 1     1     2

df2 <- df1
colnames(df2) <- enc2utf8(colnames(df2))

df2_mutated <- df2 %>% mutate(Φ = Φ * 2)
df2_mutated

## # A tibble: 1 × 1
##      ﾎｦ
##   <dbl>
## 1     2

dplyr_test2.md

A dplyr test

yutannihilation
r Sys.Date()

Package version and locale

library(dplyr)

packageVersion("dplyr")

## [1] '0.5.0'

packageDescription("dplyr")$GithubSHA1

## NULL

Sys.getlocale()

## [1] "LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932;LC_MONETARY=Japanese_Japan.932;LC_NUMERIC=C;LC_TIME=Japanese_Japan.932"

Tests

df1 <- data_frame(Φ = 1)
df1

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     1

df1_mutated <- df1 %>% mutate(Φ = Φ * 2)
df1_mutated

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     2

df2 <- df1
colnames(df2) <- enc2utf8(colnames(df2))

df2_mutated <- df2 %>% mutate(Φ = Φ * 2)
df2_mutated

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     2

dplyr_test3.md

A dplyr test

yutannihilation
r Sys.Date()

Package version and locale

library(dplyr)

packageVersion("dplyr")

## [1] '0.5.0.9000'

packageDescription("dplyr")$GithubSHA1

## [1] "2a86e2433105c5f5365e421904c7d70f06e4d6af"

Sys.getlocale()

## [1] "LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932;LC_MONETARY=Japanese_Japan.932;LC_NUMERIC=C;LC_TIME=Japanese_Japan.932"

Tests

df1 <- data_frame(Φ = 1)
df1

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     1

df1_mutated <- df1 %>% mutate(Φ = Φ * 2)
df1_mutated

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     2

df2 <- df1
colnames(df2) <- enc2utf8(colnames(df2))

df2_mutated <- df2 %>% mutate(Φ = Φ * 2)
df2_mutated

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     2

dplyr_test4.md

A dplyr test

yutannihilation
r Sys.Date()

Package version and locale

library(dplyr)

packageVersion("dplyr")

## [1] '0.5.0.9000'

packageDescription("dplyr")$GithubSHA1

## [1] "b205d1f08f496fccf22f1d50d71d771e67e353ec"

Sys.getlocale()

## [1] "LC_COLLATE=Japanese_Japan.932;LC_CTYPE=Japanese_Japan.932;LC_MONETARY=Japanese_Japan.932;LC_NUMERIC=C;LC_TIME=Japanese_Japan.932"

Tests

df1 <- data_frame(Φ = 1)
df1

## # A tibble: 1 × 1
##      Φ
##   <dbl>
## 1     1

df1_mutated <- df1 %>% mutate(Φ = Φ * 2)
df1_mutated

## # A tibble: 1 × 2
##      Φ    ﾎｦ
##   <dbl> <dbl>
## 1     1     2

df2 <- df1
colnames(df2) <- enc2utf8(colnames(df2))

df2_mutated <- df2 %>% mutate(Φ = Φ * 2)
df2_mutated

## # A tibble: 1 × 1
##      ﾎｦ
##   <dbl>
## 1     2