Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -14,3 +14,7 @@ Imports:
dplyr,
stringr,
synthesisr
Suggests:
knitr,
rmarkdown
VignetteBuilder: knitr
1 change: 1 addition & 0 deletions R/check_retracted.R
Original file line number Diff line number Diff line change
Expand Up @@ -54,6 +54,7 @@ check_retracted <- function(refs) {

# Return results
output <- list(
refs=refs,
n_retracted = n_retracted,
n_total = n_total
)
Expand Down
1 change: 1 addition & 0 deletions data/latest_update.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
Retraction Watch data last retrieved on 1737644383
5,299 changes: 5,299 additions & 0 deletions inst/extdata/example.ris

Large diffs are not rendered by default.

2 changes: 2 additions & 0 deletions vignettes/.gitignore
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
*.html
*.R
45 changes: 45 additions & 0 deletions vignettes/basic_workflow.Rmd
Original file line number Diff line number Diff line change
@@ -0,0 +1,45 @@
---
title: "basic_workflow"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{basic_workflow}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---

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

```{r setup, message=FALSE, warning=FALSE}
library(retractionfindr)
library(tidyverse)
```


Once you have your search (from Web of Science, PubMed, etc.), you can use `retractionfindr` functions to search for retractions. Export your search as a `.ris` file and use the `read_refs` function to read the file. Then use the `check_retracted` function to search for retractions.

This returns a list of the number of retractions and the total number of records in the file, as well as a dataframe with all the references and a column indicating whether the reference is retracted or not.

```{r load the data}
# First you need to upload a RIS file
# We use the read_refs function from synthesisr to read the RIS file
refs<-synthesisr::read_refs(system.file("extdata", "example.ris", package = "retractionfindr"))

out<-check_retracted(refs)

out$n_total
out$n_retracted

```

You may wish to separate the retracted and non-retracted articles. You can do this using the `separate_retracted` function.

```{r separate the retracted articles}
sep_refs<-separate_retracted(out$refs)
sep_refs[1] # retracted
#sep_refs[2] # non-retracted
```