# DOIcreator-guide

    # Create a minimal Word document with toy references
    library(dplyr)

    ##
    ## Attaching package: 'dplyr'

    ## The following objects are masked from 'package:stats':
    ##
    ##     filter, lag

    ## The following objects are masked from 'package:base':
    ##
    ##     intersect, setdiff, setequal, union

    toy_doc <- officer::read_docx() %>%
      officer::body_add_par("Smith J. An example study. 2020.", style = "Normal") %>%
      officer::body_add_par("Doe A. Another example paper. 2019.", style = "Normal")

    # Save to a temporary file
    input_file <- tempfile(fileext = ".docx")
    print(toy_doc, target = input_file)

    # Output file path
    output_file <- tempfile(fileext = ".docx")

    # Run add_doi (internet required)
    if (interactive()) {
      add_doi(
        input_path = input_file,
        output_path = output_file,
        reference_lines = 2
      )

      # Read and inspect results
      output_doc <- officer::read_docx(output_file)
    }