data-raw/fetch_data.R

In katrinleinweber/leinwebRRR: For FAIR Workshop

inflammation <- read.csv("https://raw.githubusercontent.com/TIBHannover/FAIR-R/gh-pages/_episodes_rmd/inflammation.csv",
                         header = FALSE)

library(dplyr)
library(tidyr)

#head(inflammation)

inflammation <- inflammation %>%
    tbl_df() %>%
    mutate(PatientID = 1:n()) %>%
    gather(Time, InflammationScore,
           -PatientID)

devtools::use_data(inflammation,
                   overwrite = TRUE)