#' @importFrom rlang call2
try_catch_builder <- function(arg, fun, ...) {
a <- call2(
fun,
!!!(list(arg))
)
call2(
"try_catch",
!!!(list(expr = a, ...))
)
}
try_catch_df_builder <- function(arg, fun, ...) {
a <- call2(
fun,
!!!(list(arg))
)
call2(
"try_catch_df",
!!!(list(expr = a, ...))
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.