InputPath <- system.file("extdata", package = "ORscraper")
files <- read_pdf_files(InputPath)
lines <- read_pdf_content(files[1]) # Example with the first file
NB_values <- c()
NB_values <- extract_intermediate_values(NB_values, lines, "biopsia:")
biopsies_identifiers <- classify_biopsy(NB_values)
Run the code above in your browser using DataLab