Wrong source reference for repo

[dgarijo]

By @tpronk

I found a case where values extracted for the invocation field were attributed to README.md, but on visual inspection, I found them in README.Rmd instead. It concerns this repo. Below is a snippet of the SOMEF output. Credits to Esteban for providing this dataset :)

    "invocation": [
        {
            "result": {
                "type": "Text_excerpt",
                "value": "\n```{r, echo=FALSE, results='asis', message = FALSE}\nmy_apc %>% select(institution, euro) %>% \n  group_by(institution) %>% \n  ezsummary::ezsummary(n = TRUE, digits= 0, median = TRUE,\n                       extra = c(\n                         sum = \"sum(., na.rm = TRUE)\",\n                         min = \"min(., na.rm = TRUE)\",\n                         max = \"max(., na.rm = TRUE)\"\n                         )) %>%\n  mutate_all(format, big.mark=',') %>%\n  ezsummary::ezmarkup('...[. (.)]..[. - .]') %>%\n#> get rid of blanks\n  mutate(`mean (sd)` = gsub(\"\\\\(  \", \"(\", .$`mean (sd)`)) %>% \n  select(institution, n, sum, `mean (sd)`, median, `min - max`) %>%\n  arrange(desc(n)) %>%\n  knitr::kable(col.names = c(\"Institution\", \"Articles\", \"Spending total (in \u20ac)\", \"Mean (SD)\", \"Median\", \"Minimum - Maximum\"), align = c(\"l\",\"r\", \"r\", \"r\", \"r\", \"r\"))\n``` \n",
                "original_header": "Fully Open Access Journals"
            },
            "confidence": 0.906763643352601,
            "technique": "supervised_classification",
            "source": "https://raw.githubusercontent.com/MPDL/unibiAPC/master/README.md"
        },
        {
            "result": {
                "type": "Text_excerpt",
                "value": "```{r, echo = FALSE, warning = TRUE}\n\nknitr::opts_knit$set(base.url = \"/\")\nknitr::opts_chunk$set(\n  comment = \"#>\",\n  collapse = TRUE,\n  warning = FALSE,\n  message = FALSE,\n  echo = FALSE,\n  fig.width = 9,\n  fig.height = 6\n)\noptions(scipen = 999, digits = 0, tibble.width = Inf, tibble.print_max = Inf)\n\nknitr::knit_hooks$set(inline = function(x) {\n  prettyNum(x, big.mark = \",\")\n})\n```\n```{r}\nrequire(dplyr)\nrequire(ggplot2)\nrequire(ezsummary)\nrequire(pander)\n```\n```{r, echo=FALSE, cache = FALSE}\nmy_apc <- readr::read_csv(\"data/apc_de.csv\")\n```\n \n"
            },
            "confidence": 0.9211067534061969,
            "technique": "supervised_classification",
            "source": "https://raw.githubusercontent.com/MPDL/unibiAPC/master/README.md"
        }
    ]