how-to-open-source.Rmd

---
title: "How to Contribute to Open Source"
author: 'Kim Fitter '
date: "30 October 2019"
output:
  html_document: default
  xaringan::moon_reader: default
---

```{r setup, include=FALSE}
options(htmltools.dir.version = TRUE)
knitr::opts_chunk$set(
	echo = FALSE,
	message = FALSE,
	warning=FALSE
)
```

```{r load packages}
library(xaringan)
library(networkD3)
library(visNetwork)
library(bubbles)
library(widgetframe)
```


class: inverse, center, middle


<center> <img src="https://i.imgflip.com/2poafk.jpg"> </center>

---

class: inverse

## My Journey

```{r journey}
# Create nodes and edges
nodes <- data.frame(id = 3:1,
                    value = c(20,20,20),
                    label=c("PREVIOUS CAREER \n - PROJECT MANAGER ","CAREER CHANGE","NEW CAREER  -  CODER"),
                    font.color = "#ffffff",
                    shape=c("circle","triangle","circle"))
edges <- data.frame(from = c(2,3), to = c(1,2))
# Plot the 3 node network
v <- visNetwork(nodes, edges, width = "100%") %>%
  visEdges(arrows = "to",length = 300)  %>% 
  visNodes(color = "#13b3a9")
v
```


---



# The Skills


```{r skills}
# Create bubbles for the skills 
b <- bubbles(value = rep(5,5), 
        label = c("CODING","WRITING","SPEAKING","ORGANISING","INTERESTS"),
        textColor = "white", color="#13b3a9")
frameWidget(b)
```

---


# Open Source Communities

```{r communities}
# Load sample data
data(MisLinks)
data(MisNodes)
# Plot a social network
f <- forceNetwork(Links = MisLinks, Nodes = MisNodes,
            Source = "source", Target = "target",
            Value = "value", NodeID = "name",charge = -50,
            Group = "group", opacity = 0.9)
frameWidget(f)
```



---



# Tips

- Find an area that interests you  
- Create a GitHub profile    
- Create a blog   
- Give technical feedback   
- Write and speak 

and......

<center> <img src="https://i.gifer.com/1tUl.gif"> </center>

---

class: inverse, center, middle

# Thanks!

Slides created with the `xaringan` R package


### Link to materials

https://github.com/kimnewzealand/R-tutorials
 

### Blogs 

http://www.validly.co/

https://kimnewzealand.github.io/


### Get in touch 

Twitter @Kim_Fitter