# NOT RUN {
df <- get_growth_fishbase("Scyliorhinus canicula")
df$data_ref[df$data_ref == df$main_ref] <- NA
df <- tidyr::gather_(data = df,
key_col = "ref_type",
value_col = "ref_id",
gather_cols = c("main_ref", "data_ref"), na.rm = TRUE)
ref_id <- unique(df$ref_id)
get_ref_fishbase(ref_id)
# }
Run the code above in your browser using DataLab