Resolved: Find missing arguments of a calling function

find_missing_args <- function(...) {
  args <- rlang::enquos(...)
  lapply(args, rlang::is_missing)
}

func <- function(x, y, z) {
  find_missing_args(x, y, z)
}

func(x = 1, y = 2)

[[1]]
[1] FALSE

[[2]]
[1] FALSE

[[3]]
[1] FALSE

[[1]]
[1] FALSE

[[2]]
[1] FALSE

[[3]]
[1] TRUE

find_missing_args <- function(...) {
  args <- rlang::enquos(...)
  lapply(args, rlang::is_missing)
}

func <- function(x, y, z, a, b, c) {
  find_missing_args(x, y, z)
}

[[1]]
[1] FALSE

[[2]]
[1] FALSE

[[3]]
[1] TRUE

find_missing_args <- function(args) {
  supplied <- rlang::call_args_names(rlang::caller_call(n = 1))
  setdiff(args, supplied)
}

func <- function(x, y, z, a, b, d) {  
  find_missing_args(c("x","y","z"))
}

func(x = 1, y = 2)

[1] "z"

find_missing_args <- function(args) {
  supplied <- rlang::call_args_names(rlang::caller_call(n = 1))
  setdiff(args, supplied)
}

func <- function(x, y, z, a, b, c) {  
  find_missing_args(c("x","y","z"))
}

func(x = 1, y = 2)

Error in c("x", "y", "z") : argument "c" is missing, with no default

find_missing_args <- function(...) {
  a1 <- rlang::call_args_names(rlang::caller_call(n = 1))
  a2 <- rlang::fn_fmls_names(rlang::caller_fn(n = 1))
  setdiff(a2,a1)
}

func <- function(x, y, z) {
  find_missing_args()
}

func(x = 1,y = 2)