https://github.com/annakrystalli/n8cir-reprohacks

Paper List for the N8 CIR "Northern Tour" ReproHack series

https://github.com/annakrystalli/n8cir-reprohacks

Repository

Paper List for the N8 CIR "Northern Tour" ReproHack series

README.Rmd

---
output: github_document
params: 
  title: "N8 CIR 'Northern Tour' ReproHack series"
  room_location: "Multiple locations"
  address: "Newcastle, York, Leeds, Sheffield, Manchester"
  date: "21 Jan - 12 Mar 2020"
  time: "10:00am-17:00pm"
  bannerurl: "https://github.com/reprohack/reprohack-hq/raw/master/assets/reprohack-banner.png"
  latitude: 53.38119
  longitude: -1.48036
  registration_url: null
  hackpad_url: https://bit.ly/remote-reprohack-hackpad
  intro_slides_url: "https://annakrystalli.me/n8cir-reprohacks/slides/#1"
  submission_url: https://forms.gle/vMk25vCevMg2QiYQ9
  feedback_url: https://forms.gle/wvXfjNT7HbkqH2Rj7
  paper_shinyapp_url: https://sheffield-university.shinyapps.io/n8cir-reprohacks/
  reprohack_repo_url: https://github.com/annakrystalli/n8cir-reprohacks
---



```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```


![](`r params$bannerurl`)

# Welcome to the **`r params$title`**!




#### :date: **`r params$date`**
#### :alarm_clock: **`r params$time`**

##### :round_pushpin: **`r params$room_location`**
##### :earth_africa: **`r params$address`**
  



```{r out.width='60%', fig.height=3, eval=require('leaflet'), echo=FALSE, message=FALSE, warning=FALSE}
library(leaflet)
library(dplyr)

event_log <- readr::read_csv("data/event-log.csv") %>% 
    mutate(upcoming =  date >= Sys.Date()) %>%
    mutate(popup = glue::glue("

{date}"),
           date_f = format(date, format="%a %b %d %Y"))

plot_log <- event_log %>%
    mutate(color = case_when(upcoming == TRUE ~ "green",
                             upcoming == FALSE ~ "orange"))


#pal <- colorFactor(c("green", "orange"), c(FALSE, TRUE))

make_popup <- function(df){
    popup_row <- function(x){paste0(
      "
 ", x["title"],"
", " 
", 
      " Date: ", x["date_f"], "
",
      " Room: ", x["room"], "
",
      " Address: ", x["address"], "
")}
    apply(df, 1, popup_row)
}

icons <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = plot_log$color
)

plot_log %>%
    leaflet() %>%
    addProviderTiles("CartoDB.Positron") %>%
    addAwesomeMarkers(icon = icons, popup = make_popup(plot_log))
```

  
[![Slack](https://img.shields.io/badge/slack-join%20us-brightgreen)](https://reprohack-autoinvite.herokuapp.com/)

***





We are all excited by the progress made by many authors to **make their papers reproducible by publishing associated code and data**. 

We know how challenging it can be so we **want to showcase the value of the practice**, both for original authors and as a learning experience for those who attempt to reproduce the work.

It's imperative to note that  **ReproHacks are by no means an attempt to criticise or discredit work**. We see reproduction as **beneficial scientific activity in itself**, with useful outcomes for authors and valuable learning experiences for the participants and the research community as a whole.


***

## **Two ways to get involved:**

### **[Nominate a paper](`r params$submission_url`)**

We invite nominations for papers that have both associated **code** and **data** publicly available. We also encourage analyses based on open source tools as we cannot guarantee participants will have access to specialised licenced software.

[**Current list of proposed papers and projects**](`r params$paper_shinyapp_url`)





```{r, echo = F, results='asis'}
if(!is.null(params$registration_url)){
  cat(paste0("### [**REGISTER as a participant**](", params$registration_url, ")"))
}
```

Join us at the hack to **dig into exciting science**, learn more about **reproducibility**, working with **other people's code and data** and more!

***


## **On the day**

### Materials

- [**Intro Slides**](`r params$intro_slides_url`) Instructions and links
- [**Paper list**](`r params$paper_shinyapp_url`) List of submitted papers
- [**Hackpad**](`r params$hackpad_url`) Event collaborative notebook
- [**Feedback form**](`r params$feedback_url`) Record feedback for authors


This is the master repo of the hack. We'll collect information on the teams and projects, track discussions and collaborative notes on the event [**hackpad**](`r params$hackpad_url`)

As all ReproHack events, we strive to make this event open and inclusive to all. As such the event is governed by the [ReproHack Code of Conduct](https://github.com/reprohack/reprohack-hq/blob/master/CODE_OF_CONDUCT.md) and you should read it before participating. By participating, you are expected to uphold this code.



### **Authors**

We encourage authors that are keen, to be available for participants to reach out to for guidance or even just to say hello! You can do so by joining the **`review-chat`** channel in our [**slack**](https://reprohack-autoinvite.herokuapp.com/) group. We've also set up an **`authors`** channel in our [**slack**](https://reprohack-autoinvite.herokuapp.com/) group as a place where you can also reach the organisers prior to the hack. You can also start discussions or add comments through our collaborative [**hackpad**](`r params$hackpad_url`).

### **Participants**

#### **Introduction & Welcome** [slides](`r params$intro_slides_url`)

#### **1. Paper review and team formation**

We'll start with a brief review of the [**papers proposed**](`r params$paper_shinyapp_url`) and then form into teams. Feel free to work on your own if you prefer but we highly recommend you discuss your experiences with fellow participants as you work.


#### **2. Select and register a paper**

- Add your details in the **participants** section of the [**hackpad**](`r params$hackpad_url`) so we have a complete list of participants.
- In your teams **decide which paper** you wish to work on.
- **Register your team and paper** by logging the title of the selected paper and the name(s) of the reviewer(s) in the [**hackpad**](`r params$hackpad_url`). You can use the following template:
  ```
  ### **Paper:**