R-World.Rmd

---
title: "Scibrokes"
author: '[Ryo®, Eng Lian Hu](http://englianhu.wordpress.com) <img src=''figure/me.JPG''
  width=''24''> TonyStark®'
date: "11/3/2015"
output:
  html_document:
    fig_height: 3
    fig_width: 5
    highlight: zenburn
    theme: cerulean
    toc: yes
  pdf_document:
    fig_height: 3
    fig_width: 5
    highlight: zenburn
    toc: yes
  word_document:
    fig_height: 3
    fig_width: 5
    highlight: zenburn
---

明治維新は、まずは西欧から「学ぶ」ことに特化したのである。

```{r setting, echo=FALSE}
# Don't delete this chunk if you are using the mosaic package
# This loads the mosaic and dplyr packages

## Setting to omit all warnings
options(warn=-1)
```

```{r load-packages, echo=FALSE}
## Loading the packages
if(!'devtools' %in% installed.packages()){
  install.packages('devtools')}
if(!'BBmisc' %in% installed.packages()){
  install.packages('BBmisc')}
if(!'REmap' %in% installed.packages()){
  install_github('lchiffon/REmap')}

suppressPackageStartupMessages(library('BBmisc'))
pkgs <- c('knitr', 'devtools', 'htmltools', 'REmap', 'ggmap', 'maps', 'maptools', 'lubridate')
suppressAll(lib(pkgs)); rm(pkgs)

knitr::opts_chunk$set(
  message = FALSE, warning = FALSE, error = TRUE, 
  autodep = TRUE, aniopts = 'loop', 
  progress = TRUE, verbose = TRUE, 
  cache = FALSE, cache.lazy = FALSE, result = 'asis')
```

```{r REmap-setting, echo=FALSE}
## Reinitialized the REmap setting
remap.init()
```

```{r read-data, echo=FALSE}
## Set a data frame format cities and randomly set country code
data = data.frame(country=mapNames('world'), value=5*sample(178)+200)

vec = c('Tokyo','Shanghai','New York','Sydney','London','Bangkok','Taipei',
        'Moscow','Beijing','Washington','Lyon','Milan','Rome','Macao',
        'Singapore','Hong Kong','Kuala Lumpur','Madrid','Geneva','Paris',
        'Melbourne','Boston','Washington','Liverpool','Brighton','Bali',
        'San Francisco','Jakarta','Ho Chi Minh','Brasilia','Barcelona',
        'Rio de Janeiro','Buenos Aires','Bern','Basel','Zurich','Manila',
        'Toronto','Vancouver','Budapest','New Delhi','Thimphu','Mumbai',
        'Cairo','Greater Johannesburg','Durban','Alexandria','Zaria','Dubai',
        'Istanbul','Mexico City','Sapporo','Osaka','Ulaanbaatar','Vienna')

## Get world city geocode by ggmap
geodata = tryCatch(
        expr = {
          suppressAll(as.data.frame(cbind(ggmap::geocode(vec),vec)))
          },
        error = function(e){
            message('<simpleError: Google now requires an API key\n       See ?register_google for details.>')
            print(e)
        })

## Design a line data.frame
markLinedata = data.frame(origin=rep('Tokyo',54),destination = vec[-1])
```

```{r plot-map, echo=FALSE}
## Plot the REmap shining 
p <- tryCatch(
        expr = {
          remapC(data, maptype='world',color=c('black','black'),
            theme=get_theme(backgroundColor='black'),
            markPointData=vec, markLineData=markLinedata, geoData=geodata)},
        error = function(e){
            message('<simpleError: Google now requires an API key\n       See ?register_google for details.>')
            print(e)
        })

tryCatch(
        expr = {
          knitrREmap(p,local=F)
          },
        error = function(e){
            message('<simpleError: Google now requires an API key\n       See ?register_google for details.>')
            print(e)
        })
```

  * Rooted from EDO, towards a global perspective.
  * 江戸に根ざし、世界の未来を展望する。
  * Radicata da EDO, in direzione un prospettiva globale.
  * von EDO verwurzelt ist, in Richtung einer globalen Perspektive.
  
<iframe width="100%" height="450" scrolling="no" frameborder="no" src="https://w.soundcloud.com/player/?url=https%3A//api.soundcloud.com/tracks/221986532&amp;auto_play=true&amp;hide_related=false&amp;show_comments=true&amp;show_user=true&amp;show_reposts=false&amp;visual=true"></iframe>



## Appendices
  
  
  
### Documenting File Creation 

It's useful to record some information about how your file was created.
  
  * File creation date: 2015-11-04
  * `r R.version.string`
  * R version (short form): `r getRversion()`
  * `rmarkdown` package version: `r packageVersion('rmarkdown')`
  * File version: 1.0.1
  * File latest updated date: `r Sys.Date()`
  * Author Profile: [Ryo®, Eng Lian Hu](http://rpubs.com/englianhu/ryoeng)
  * GitHub: [Source Code](https://github.com/Scibrokes/r-world)
  * Additional session information
  
```{r echo=FALSE, results='asis'}
lubridate::now()
devtools::session_info()$platform
Sys.info()
```



### References
  
  * You are feel free to create  your own webpage by R Markdown V2 by refer to [Document Templates](http://rmarkdown.rstudio.com/developer_document_templates.html?version=0.99.484&mode=server)
  * `rticles` package version: `r packageVersion("rticles")`
  * You can plot the shining map by using [REmap](http://lchiffon.github.io/REmap) package.
  * [在knitr里面使用REmap](http://chiffon.gitcafe.io/2015/10/27/knitrREmap.html)
  * You can also modify the layout of website by refering [Top Five CSS Customizations for R Presentations](http://rstudio-pubs-static.s3.amazonaws.com/27777_55697c3a476640caa0ad2099fe914ae5.html#/).