punnet | Example project demonstrating how to use packer

library(readr)
library(readxl)
library(tidyverse)
library(writexl)
library(purrr)

setwd("path")
file.list <- dir(pattern = "txt$")

Data_cleaner <- function(x) {
  lines <- read_lines(x)
  lower_lines <- tolower(lines)
  natures_df <-as.data.frame(do.call(rbind, strsplit(lower_lines, "(?<=\\dx) | for ", perl = TRUE)))
  
  natures_df_clean <-
    natures_df %>% 
    rename(
      Quantity_dirty = V1,
      Product = V2,
      price_each = V3
    )
  
  Quantity_chr <-
    gsub(
      x = natures_df_clean$Quantity_dirty,
      pattern = "x",
      replacement = ""
    )
  
  Quantity <- as.numeric(Quantity_chr)
  
  price_clean_df <- gsub("R", replacement = "", x = natures_df_clean$price_each)
  
  price_clean <- gsub("each", replacement = "", x = price_clean_df)
  
  Price <- as.numeric(price_clean)
  
  natures_final_df <-
    natures_df_clean %>%
    mutate(
      Price = Price,
      Quantity = Quantity,
      QuantityXPrice = Price * Quantity
    )
  
  Natures <- select(natures_final_df, Product, Quantity)
  Natures
}

df = data.frame()
frame_frame <- map(file.list, Data_cleaner)
Total <- rbindlist(frame_frame)