Nested function arguments not working in R

Question

Suppose I have the following function:

  library(tidyverse)
  library(lubridate)

  venta_status <- function(date1, date2, tipo) {
    data %>% 
      filte