class: center, middle 
# papr: Tinder for pre-prints

Lucy D'Agostino McGowan  
Nick Strayer  
Jeff Leek  
![](https://raw.githubusercontent.com/jhudsl/jhudsl.github.io/master/images/jhudsl.gif)

---
class: center, middle

# what is tinder?

![](https://media.tenor.com/images/5374b14a66a5b0a1eb3332ff6efdda20/tenor.gif)

.footnote[useR!2017 \#RChickenLadies]
---
layout: true

.footnote[useR!2017]
---
class: center, middle
# what is papr?

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/papr.gif)

---

# history

<blockquote class="twitter-tweet" data-lang="en">I built a &quot;tinder for academic preprints&quot; web app: <a href="https://t.co/fZYlgkn4WL">https://t.co/fZYlgkn4WL</a> for <a href="https://twitter.com/biorxivpreprint">@biorxivpreprint</a> preprints.&mdash; Jeff Leek (@jtleek) <a href="https://twitter.com/jtleek/status/782949505754861568">October 3, 2016</a></blockquote>

<blockquote class="twitter-tweet" data-lang="en">Hilarious 😂 If only it was compatible with swiping..the tactile enjoyment of making snap judgements by swiping left/right is unrivaled <a href="https://twitter.com/hashtag/papr?src=hash">#papr</a> <a href="https://t.co/isg5hmsh7n">https://t.co/isg5hmsh7n</a>&mdash; Lucy 🌻 (@LucyStats) <a href="https://twitter.com/LucyStats/status/782953224420495365">October 3, 2016</a></blockquote>

<blockquote class="twitter-tweet" data-lang="en">.<a href="https://twitter.com/LucyStats">@LucyStats</a> I&#39;m with you, maybe <a href="https://twitter.com/jcheng">@jcheng</a> can add swiping functionality to Shiny?&mdash; Jeff Leek (@jtleek) <a href="https://twitter.com/jtleek/status/782953550091542528">October 3, 2016</a></blockquote>

---

# history

<blockquote class="twitter-tweet" data-lang="en">Agreed. <a href="https://twitter.com/jcheng">@jcheng</a> I&#39;d appreciate it if you would make this a top priority 💁🏻&mdash; Lucy 🌻 (@LucyStats) <a href="https://twitter.com/LucyStats/status/782958062378377216">October 3, 2016</a></blockquote>

<blockquote class="twitter-tweet" data-lang="en">I&#39;m looping you in <a href="https://twitter.com/NicholasStrayer">@NicholasStrayer</a> can you do some javascript magic to make this happen ✨💻

&mdash; Lucy 🌻 (@LucyStats) <a href="https://twitter.com/LucyStats/status/782967208649580545">October 3, 2016</a>

</blockquote>

<blockquote class="twitter-tweet" data-lang="en">swipR: the tidyverse judge-a-book-by-its-cover <a href="https://twitter.com/hashtag/rstats?src=hash">#rstats</a> package.&mdash; Nick Strayer (@NicholasStrayer) <a href="https://twitter.com/NicholasStrayer/status/782978330316382208">October 3, 2016</a> 
</blockquote>

---

# history

<blockquote class="twitter-tweet" data-lang="en">yep done we&#39;re making it. Cube meeting at 3.&mdash; Lucy 🌻 (@LucyStats) <a href="https://twitter.com/LucyStats/status/782978971596185602">October 3, 2016</a>
</blockquote>

<blockquote class="twitter-tweet" data-lang="en">Cube meeting mission accomplished <a href="https://twitter.com/hashtag/highfivingamillionangels?src=hash">#highfivingamillionangels</a> <a href="https://t.co/qibMzCD8kd">pic.twitter.com/qibMzCD8kd</a>&mdash; Lucy 🌻 (@LucyStats) <a href="https://twitter.com/LucyStats/status/783066294115569665">October 3, 2016</a></blockquote>

---

# stats

13,000+ sessions
 

 
 

1,800+ unique logins 

 
 

 450+ provided Twitter credentials

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.001.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.002.png)

---

# unique aspects

saving data for multiple logins
 

 
 

running the app locally with a specific port 

 
 

 saving API credentials 
---

# unique aspects

incorporating tactile input 
 
 
 

 creating a recommender engine

---
class: center, middle

[https://jhubiostatistics.shinyapps.io/papr](https://jhubiostatistics.shinyapps.io/papr/)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.003.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.004.png)

---

[![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.005.png)](https://github.com/MarkEdmondson1234/googleAuthR)
---

# Google credentials

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.006.png)

---

# Google credentials

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.007.png)

---

# tell shiny

```r
shiny::runApp(port=1221)
```

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.008.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.009.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.010.png)

---

# pop-up

```r
library("shiny")
library("shinysense")

terms_content_div <- div(
 p("Here are some terms for you to ignore")
 )

ui <- fixedPage(
 shinypopupUI("terms",
 buttonText = "I understand, let's get swiping!",
 popupDiv = terms_content_div,
 "test"
 )
)

server <- function(input, output, session) {
 callModule(shinypopup, "terms", accepted = FALSE)
})
```
---

# pop-up

```r
library("shiny")
library("shinysense")

*terms_content_div <- div(
* p("Here are some terms for you to ignore")
* )

ui <- fixedPage(
 shinypopupUI("terms",
 buttonText = "I understand, let's get swiping!",
 popupDiv = terms_content_div,
 "test"
 )
)

server <- function(input, output, session) {
 callModule(shinypopup, "terms", accepted = FALSE)
})
```
---

# pop-up

```r
library("shiny")
library("shinysense")

terms_content_div <- div(
 p("Here are some terms for you to ignore")
 )

ui <- fixedPage(
* shinypopupUI("terms",
* buttonText = "I understand, let's get swiping!",
* popupDiv = terms_content_div,
* "test"
 )
)

server <- function(input, output, session) {
 callModule(shinypopup, "terms", accepted = FALSE)
})
```
---

# pop-up

```r
library("shiny")
library("shinysense")

terms_content_div <- div(
 p("Here are some terms for you to ignore")
 )

ui <- fixedPage(
 shinypopupUI("terms",
 buttonText = "I understand, let's get swiping!",
 popupDiv = terms_content_div,
 "test"
 )
)

server <- function(input, output, session) {
* callModule(shinypopup, "terms", accepted = FALSE)
})
```
---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.011.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.012.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.013.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.014.png)

---

# save credentials

```r
library("rdrop2")
token <- drop_auth()
saveRDS(token, "papr-drop.rds")
```

---

# save credentials

```r
library("rdrop2")
token <- drop_auth()
*saveRDS(token, "papr-drop.rds")
```

*be sure to stick this in your .gitignore* 🙊

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.015.png)

---

# swipr

```r
library("shiny")
library("shinysense")

ui <- fixedPage(
 shinyswiprUI("my_swiper",
 h4("Swipe Me!"),
 hr(),
 p("This is some swipe-happy content")
 )
 )

server <- function(input, output, session) {
 card_swipe <- callModule(shinyswipr, "my_swiper")
 observeEvent(card_swipe(), {
 print(card_swipe()) #show last swipe result. 
 }) 
}
```

---

# swipr

```r
library("shiny")
library("shinysense")

ui <- fixedPage(
* shinyswiprUI("my_swiper",
 h4("Swipe Me!"),
 hr(),
 p("This is some swipe-happy content")
 )
 )

server <- function(input, output, session) {
 card_swipe <- callModule(shinyswipr, "my_swiper")
 observeEvent(card_swipe(), {
 print(card_swipe()) #show last swipe result. 
 }) 
}
```

---

# swipr

```r
library("shiny")
library("shinysense")

ui <- fixedPage(
 shinyswiprUI("my_swiper",
 h4("Swipe Me!"),
 hr(),
 p("This is some swipe-happy content")
 )
 )

server <- function(input, output, session) {
* card_swipe <- callModule(shinyswipr, "my_swiper")
 observeEvent(card_swipe(), {
 print(card_swipe()) #show last swipe result. 
 }) 
}
```

---

# swipr

```r
library("shiny")
library("shinysense")

ui <- fixedPage(
 shinyswiprUI("my_swiper",
 h4("Swipe Me!"),
 hr(),
 p("This is some swipe-happy content")
 )
 )

server <- function(input, output, session) {
 card_swipe <- callModule(shinyswipr, "my_swiper")
* observeEvent(card_swipe(), {
 print(card_swipe()) #show last swipe result. 
 }) 
}
```

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.016.png)

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.017.png)

---
![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.018.png)

---

# PCA plotly

<div id="htmlwidget-7c85408e95f378162337" style="width:504px;height:504px;" class="plotly html-widget"></div>
<script type="application/json" data-for="htmlwidget-7c85408e95f378162337">{"x":{"layout":{"margin":{"b":40,"l":60,"t":25,"r":10},"scene":{"xaxis":{"title":"PC1"},"yaxis":{"title":"PC2"},"zaxis":{"title":"PC3"}},"xaxis":{"domain":[0,1]},"yaxis":{"domain":[0,1]}},"source":"A","config":{"modeBarButtonsToAdd":[{"name":"Collaborate","icon":{"width":1000,"ascent":500,"descent":-50,"path":"M487 375c7-10 9-23 5-36l-79-259c-3-12-11-23-22-31-11-8-22-12-35-12l-263 0c-15 0-29 5-43 15-13 10-23 23-28 37-5 13-5 25-1 37 0 0 0 3 1 7 1 5 1 8 1 11 0 2 0 4-1 6 0 3-1 5-1 6 1 2 2 4 3 6 1 2 2 4 4 6 2 3 4 5 5 7 5 7 9 16 13 26 4 10 7 19 9 26 0 2 0 5 0 9-1 4-1 6 0 8 0 2 2 5 4 8 3 3 5 5 5 7 4 6 8 15 12 26 4 11 7 19 7 26 1 1 0 4 0 9-1 4-1 7 0 8 1 2 3 5 6 8 4 4 6 6 6 7 4 5 8 13 13 24 4 11 7 20 7 28 1 1 0 4 0 7-1 3-1 6-1 7 0 2 1 4 3 6 1 1 3 4 5 6 2 3 3 5 5 6 1 2 3 5 4 9 2 3 3 7 5 10 1 3 2 6 4 10 2 4 4 7 6 9 2 3 4 5 7 7 3 2 7 3 11 3 3 0 8 0 13-1l0-1c7 2 12 2 14 2l218 0c14 0 25-5 32-16 8-10 10-23 6-37l-79-259c-7-22-13-37-20-43-7-7-19-10-37-10l-248 0c-5 0-9-2-11-5-2-3-2-7 0-12 4-13 18-20 41-20l264 0c5 0 10 2 16 5 5 3 8 6 10 11l85 282c2 5 2 10 2 17 7-3 13-7 17-13z m-304 0c-1-3-1-5 0-7 1-1 3-2 6-2l174 0c2 0 4 1 7 2 2 2 4 4 5 7l6 18c0 3 0 5-1 7-1 1-3 2-6 2l-173 0c-3 0-5-1-8-2-2-2-4-4-4-7z m-24-73c-1-3-1-5 0-7 2-2 3-2 6-2l174 0c2 0 5 0 7 2 3 2 4 4 5 7l6 18c1 2 0 5-1 6-1 2-3 3-5 3l-174 0c-3 0-5-1-7-3-3-1-4-4-5-6z"},"click":"function(gd) { \n // is this being viewed in RStudio?\n if (location.search == '?viewer_pane=1') {\n alert('To learn about plotly for collaboration, visit:\\n https://cpsievert.github.io/plotly_book/plot-ly-for-collaboration.html');\n } else {\n window.open('https://cpsievert.github.io/plotly_book/plot-ly-for-collaboration.html', '_blank');\n }\n }"}],"modeBarButtonsToRemove":["sendDataToCloud"]},"data":[{"x":[-0.0416661835373947,-1.44906175553207,-0.820723236596868,-0.62169026001162,1.63067362466721,-0.0974559770577136,-2.20508536882879,0.0254182531229771,-0.222590165216399,-0.499661551173023,-0.506883844298181,-0.543835940145217,-0.0327063745240428,0.160681435840573,-0.0870645766047932,0.23601163838524,0.822817128646318,0.803133012258991,-0.547260866817347,-0.943083269576354,-0.3341506908381,0.837323483204696,2.09956680441455,-0.181004807226892,-1.40511028221748,1.57165079288558,-0.648962481232956,-1.21245071279868,-0.80237426212632,-0.22091003979757,1.63834776891215,-1.75241519334786,1.78382807125141,1.17204906197486,-0.188468967034677,0.630589157379519,1.36132912929083,-0.613674935157659,1.79030447446985,0.136406183050212,0.251916564208466,0.225758636172835,1.22888628364559,1.65795711730617,0.271276685131082,0.138571360863563,-0.162089544724065,0.455297868276704,1.86638389445171,0.353009603444863,0.3789017300166,-0.987264593161176,-0.959017848103992,0.270398010857123,2.1422267700124,-1.85995715015987,0.380958480600263,0.927411889595772,0.225056940204608,-1.06843255033382,0.376039770656745,-0.506456487707107,-0.944178853644461,1.64891515046769,-0.263938333371069,-0.632703076592573,1.86313186999796,-0.326563891876908,-3.17682315274218,-1.23049642943673,-0.43853551543754,-0.288616039584767,-1.15022414135005,1.28641371441441,-0.0446397028976734,-1.56491679881192,0.806066831270938,-0.430015702550261,0.89804993349415,0.470703585383149,0.351501722543873,-0.499587211091823,-0.970794361060325,-1.36020561381191,0.0783424320672825,-2.42655497231629,0.343046113381117,0.975571358193211,0.0653783014572007,-0.402844517156763,-1.34212102203629,-1.72793425352839,1.0461038695234,0.395749632048191,-0.609785410141358,-1.16133602420606,0.414785191017526,-0.814260006313628,0.726997765322191,0.0159477988773243,-0.116586486088918],"y":[-0.00372059496853749,0.980455726335722,0.296628123696312,-1.10664538251185,1.04434424273327,0.718831814496152,1.11166184566683,-0.207509239362908,-0.171231959020649,-0.0993603098941814,1.03920394726658,2.46190949357049,-0.35490482705031,-0.714038453748809,0.478266414482837,-0.0202189393068572,-1.12344472406937,-0.934192872392692,-0.100143992237058,-0.0670013331779428,-0.160598252773795,-0.704857453423155,-0.860592901227824,-1.22456563723107,1.39529361384706,0.102691594644464,-0.216131055643306,0.205091104445173,1.26845174178939,1.8205353876754,0.665055040274324,-1.01523503970459,-0.450597066897606,0.949650498426553,-0.289752078243367,-0.0463221781555192,1.87044148180509,0.0491952135791347,-0.183428315671521,1.23201909523396,0.567760341232342,-1.8998581120287,-1.43788208846089,-0.152723713975916,-0.52271897575354,-0.914874819201424,-0.548202957721741,0.456574738681347,0.904448907230529,0.43502898610385,-0.671426528399727,1.56543486455087,-0.866360789639399,-1.58996808334119,0.143542172690951,-0.753933631222791,0.176887157228529,1.51155178826862,-1.34736506186617,0.647646804998226,2.59008471118646,-1.83789017848456,-0.37247374210735,-0.38020870731449,-1.15008385207664,-0.1608116658203,1.39265763499013,-1.69245374398013,0.351700163279352,-1.09546540561549,-1.4154270208171,0.329492827354684,-0.0769011055718741,-0.243988624034401,-0.125013483861078,-1.43117802578353,0.527569217912816,-0.340018432423603,0.652743849918358,-0.0570008444126373,-0.210271592252046,-0.0984455413006622,1.43560182610777,-0.166165668535943,1.03220882818314,-0.00177353183449807,-0.258727814310868,1.31900710007089,0.781145108893604,-2.20263601339803,0.312607421550546,-0.61736225890898,1.56478795143628,0.570297268056013,-0.811889860490798,-0.622052296353916,0.611575590487552,-0.351246443773481,-0.729207464230765,1.26687791414012,-2.00423896032644],"z":[0.0556652162230963,-0.165903874293778,0.398843964872577,1.62875768500274,-0.463608244737812,0.93609437130397,-0.944415973901925,-0.0228400333035405,0.233545080849075,0.314977483863478,-0.668065636414042,0.335875664857291,-0.280944579041092,1.44454325799085,0.77144686860681,1.68304552573096,0.571851613287657,0.370363017090796,-1.46625704696507,-0.173707825620551,-2.19911564301386,0.624417028846837,0.167959615689057,0.0692777236040417,-0.0982891640794385,1.12387709393913,0.850660479679341,-1.25349424637313,-0.166838643140517,-0.423815261195612,0.849990761786786,1.00663470299665,0.00892793062270185,0.000422008100983123,1.28830923860956,-0.255121780148299,-0.948730355139984,-0.806057015290484,0.283725748966628,0.776441612372489,0.152147694962872,-0.378733379294368,-1.63811141095201,1.26588894497111,-0.374343767191676,0.891925627991743,1.17792167142479,0.826255799139255,0.085996616592911,1.32912086692781,-0.63316595500708,-0.187630797160827,-1.22313894100739,-0.354049015717451,0.452029587023176,-1.94943365571405,-0.150647749624282,2.14424779646526,-0.557814057746031,0.380350145410345,-1.17423079502995,1.07857411772554,-1.18905031548076,-0.985049074016991,0.00900299398298883,0.0829160334301132,0.497903954296262,0.370189000482481,1.86098789088199,-0.798226659269883,0.931849438162854,-0.340510069349347,-0.364171280803218,-1.26482547946998,-0.565899168761953,-0.512241413575795,0.115059475378899,0.611802879644583,0.0722984839570224,-0.210517111299316,-1.04785007647217,1.04287177607999,-0.115179681402455,-0.0709066435751106,-0.448595154448883,-0.558298993559624,-0.20236579983569,0.312956762290358,0.764147028298073,-1.51918203767025,-0.154532476833024,0.58335638165989,1.63364679559432,-0.0241532655826796,-1.82391907192088,0.177780379509812,0.662293928893604,0.692310321573197,0.501113647989557,-0.168494088198341,0.442059811529004],"text":["Title: Your Average","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title","Title: Example Title"],"marker":{"fillcolor":"rgba(31,119,180,1)","color":["purple","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue"],"mode":"marker","size":[20,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5],"opacity":0.5,"line":{"color":"transparent"}},"type":"scatter3d","mode":"markers","name":"Click here to hide/show all papers"},{"x":[-0.0416661835373947],"y":[-0.00372059496853749],"z":[0.0556652162230963],"text":"You are here","marker":{"mode":"marker","color":["purple","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue","lightblue"],"size":[20,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5],"opacity":0.5,"line":{"color":"transparent"}},"type":"scatter3d","mode":"text+markers","name":"Click here to hide/show your location","textfont":{"fillcolor":"rgba(255,127,14,1)","color":"rgba(255,127,14,1)"}}],"base_url":"https://plot.ly"},"evals":["config.modeBarButtonsToAdd.0.click"],"jsHooks":[]}</script>

---

![](https://raw.githubusercontent.com/LucyMcGowan/talks/master/2017-07_user/img/keynote/keynote.019.png)

---

# thank you

[https://jhubiostatistics.shinyapps.io/papr](https://jhubiostatistics.shinyapps.io/papr/)

[https://github.com/jhudsl/papr](https://github.com/jhudsl/papr)

[http://rpubs.com/lucymcgowan/papr](http://rpubs.com/lucymcgowan/papr)

[@LucyStats](https://twitter.com/LucyStats)