tidySEM: Tidy Structural Equation Modeling

Documented in all_cov all_fixed all_fixed_edges all_fixed_nodes all_latent all_load all_neg all_neg_edges all_neg_nodes all_nonsig all_nonsig_edges all_nonsig_nodes all_obs all_pos all_pos_edges all_pos_nodes all_reg all_sig all_sig_edges all_sig_nodes all_var alpha_cov alpha_fixed alpha_fixed_edges alpha_fixed_nodes alpha_latent alpha_load alpha_neg alpha_neg_edges alpha_neg_nodes alpha_nonsig alpha_nonsig_edges alpha_nonsig_nodes alpha_obs alpha_pos alpha_pos_edges alpha_pos_nodes alpha_reg alpha_sig alpha_sig_edges alpha_sig_nodes alpha_var color_cov color_fixed color_fixed_edges color_fixed_nodes color_latent color_load color_neg color_neg_edges color_neg_nodes color_nonsig color_nonsig_edges color_nonsig_nodes color_obs color_pos color_pos_edges color_pos_nodes color_reg color_sig color_sig_edges color_sig_nodes color_var colour_cov colour_fixed colour_fixed_edges colour_fixed_nodes colour_latent colour_load colour_neg colour_neg_edges colour_neg_nodes colour_nonsig colour_nonsig_edges colour_nonsig_nodes colour_obs colour_pos colour_pos_edges colour_pos_nodes colour_reg colour_sig colour_sig_edges colour_sig_nodes colour_var fill_fixed fill_latent fill_neg fill_nonsig fill_obs fill_pos fill_sig hide_cov hide_fixed hide_fixed_edges hide_fixed_nodes hide_latent hide_load hide_neg hide_neg_edges hide_neg_nodes hide_nonsig hide_nonsig_edges hide_nonsig_nodes hide_obs hide_pos hide_pos_edges hide_pos_nodes hide_reg hide_sig hide_sig_edges hide_sig_nodes hide_var if_edges if_edit if_edit.sem_graph if_nodes label_alpha_cov label_alpha_fixed label_alpha_fixed_edges label_alpha_fixed_nodes label_alpha_latent label_alpha_load label_alpha_neg label_alpha_neg_edges label_alpha_neg_nodes label_alpha_nonsig label_alpha_nonsig_edges label_alpha_nonsig_nodes label_alpha_obs label_alpha_pos label_alpha_pos_edges label_alpha_pos_nodes label_alpha_reg label_alpha_sig label_alpha_sig_edges label_alpha_sig_nodes label_alpha_var label_color_cov label_color_fixed label_color_fixed_edges label_color_fixed_nodes label_color_latent label_color_load label_color_neg label_color_neg_edges label_color_neg_nodes label_color_nonsig label_color_nonsig_edges label_color_nonsig_nodes label_color_obs label_color_pos label_color_pos_edges label_color_pos_nodes label_color_reg label_color_sig label_color_sig_edges label_color_sig_nodes label_color_var label_colour_cov label_colour_fixed label_colour_fixed_edges label_colour_fixed_nodes label_colour_latent label_colour_load label_colour_neg label_colour_neg_edges label_colour_neg_nodes label_colour_nonsig label_colour_nonsig_edges label_colour_nonsig_nodes label_colour_obs label_colour_pos label_colour_pos_edges label_colour_pos_nodes label_colour_reg label_colour_sig label_colour_sig_edges label_colour_sig_nodes label_colour_var label_family_cov label_family_fixed label_family_fixed_edges label_family_fixed_nodes label_family_latent label_family_load label_family_neg label_family_neg_edges label_family_neg_nodes label_family_nonsig label_family_nonsig_edges label_family_nonsig_nodes label_family_obs label_family_pos label_family_pos_edges label_family_pos_nodes label_family_reg label_family_sig label_family_sig_edges label_family_sig_nodes label_family_var label_fill_cov label_fill_fixed label_fill_fixed_edges label_fill_fixed_nodes label_fill_latent label_fill_load label_fill_neg label_fill_neg_edges label_fill_neg_nodes label_fill_nonsig label_fill_nonsig_edges label_fill_nonsig_nodes label_fill_obs label_fill_pos label_fill_pos_edges label_fill_pos_nodes label_fill_reg label_fill_sig label_fill_sig_edges label_fill_sig_nodes label_fill_var label_fontface_cov label_fontface_fixed label_fontface_fixed_edges label_fontface_fixed_nodes label_fontface_latent label_fontface_load label_fontface_neg label_fontface_neg_edges label_fontface_neg_nodes label_fontface_nonsig label_fontface_nonsig_edges label_fontface_nonsig_nodes label_fontface_obs label_fontface_pos label_fontface_pos_edges label_fontface_pos_nodes label_fontface_reg label_fontface_sig label_fontface_sig_edges label_fontface_sig_nodes label_fontface_var label_hjust_cov label_hjust_fixed label_hjust_fixed_edges label_hjust_fixed_nodes label_hjust_latent label_hjust_load label_hjust_neg label_hjust_neg_edges label_hjust_neg_nodes label_hjust_nonsig label_hjust_nonsig_edges label_hjust_nonsig_nodes label_hjust_obs label_hjust_pos label_hjust_pos_edges label_hjust_pos_nodes label_hjust_reg label_hjust_sig label_hjust_sig_edges label_hjust_sig_nodes label_hjust_var label_lineheight_cov label_lineheight_fixed label_lineheight_fixed_edges label_lineheight_fixed_nodes label_lineheight_latent label_lineheight_load label_lineheight_neg label_lineheight_neg_edges label_lineheight_neg_nodes label_lineheight_nonsig label_lineheight_nonsig_edges label_lineheight_nonsig_nodes label_lineheight_obs label_lineheight_pos label_lineheight_pos_edges label_lineheight_pos_nodes label_lineheight_reg label_lineheight_sig label_lineheight_sig_edges label_lineheight_sig_nodes label_lineheight_var label_location_cov label_location_fixed label_location_load label_location_neg label_location_nonsig label_location_pos label_location_reg label_location_sig label_size_cov label_size_fixed label_size_fixed_edges label_size_fixed_nodes label_size_latent label_size_load label_size_neg label_size_neg_edges label_size_neg_nodes label_size_nonsig label_size_nonsig_edges label_size_nonsig_nodes label_size_obs label_size_pos label_size_pos_edges label_size_pos_nodes label_size_reg label_size_sig label_size_sig_edges label_size_sig_nodes label_size_var label_vjust_cov label_vjust_fixed label_vjust_fixed_edges label_vjust_fixed_nodes label_vjust_latent label_vjust_load label_vjust_neg label_vjust_neg_edges label_vjust_neg_nodes label_vjust_nonsig label_vjust_nonsig_edges label_vjust_nonsig_nodes label_vjust_obs label_vjust_pos label_vjust_pos_edges label_vjust_pos_nodes label_vjust_reg label_vjust_sig label_vjust_sig_edges label_vjust_sig_nodes label_vjust_var linetype_cov linetype_fixed linetype_fixed_edges linetype_fixed_nodes linetype_latent linetype_load linetype_neg linetype_neg_edges linetype_neg_nodes linetype_nonsig linetype_nonsig_edges linetype_nonsig_nodes linetype_obs linetype_pos linetype_pos_edges linetype_pos_nodes linetype_reg linetype_sig linetype_sig_edges linetype_sig_nodes linetype_var show_cov show_fixed show_fixed_edges show_fixed_nodes show_latent show_load show_neg show_neg_edges show_neg_nodes show_nonsig show_nonsig_edges show_nonsig_nodes show_obs show_pos show_pos_edges show_pos_nodes show_reg show_sig show_sig_edges show_sig_nodes show_var size_cov size_fixed size_fixed_edges size_fixed_nodes size_latent size_load size_neg size_neg_edges size_neg_nodes size_nonsig size_nonsig_edges size_nonsig_nodes size_obs size_pos size_pos_edges size_pos_nodes size_reg size_sig size_sig_edges size_sig_nodes size_var

nodedg <- function(template, txt = "nodes"){
  lapply(template, function(x){
    gsub('c("edges", "nodes")', paste0('"', txt, '"'), gsub(pattern = " <- function", replacement = paste0('_', txt, ' <- function'), x, fixed = TRUE), fixed = TRUE)})
}


create_all_select_rows <- function(filename = "R/select_rows.R"){
  txt <- readLines(filename)
  out <- txt[1:grep("^# Automatically generated functions below here$", txt)]
  # Prepare lists
  fun_list <- list(
    sig = 'as.numeric(pval) < .05',
    nonsig = 'as.numeric(pval) >= .05',
    fixed = 'is.na(pval)',
    pos = 'as.numeric(est) > 0',
    neg = 'as.numeric(est) < 0',
    var = 'lhs == rhs & op == "~~"',
    cov = 'lhs != rhs & op == "~~"',
    reg = 'op == "~"',
    load = 'op == "=~"',
    obs = 'shape == "rect"',
    latent = 'shape == "oval"'#,
    #fixed_load = 'op == "=~" & is.na(pval)'#,
    #mean = 'op == "~1"'
  )
  edges_cond <- c('var', 'cov', 'reg', 'load')
  nodes_cond <- c('obs', 'latent')
  aes_list <- list(
    colour = '"black"',
    color = '"black"',
    linetype = '1',
    size = '1',
    alpha = '1',
    fill = '"white"',
    label_colour = '"black"',
    label_color = '"black"',
    label_fill = '"white"',
    label_size = '4',
    label_alpha = '1',
    label_family = '"sans"',
    label_fontface = '"plain"',
    label_hjust = '"center"',
    label_vjust = '"middle"',
    label_lineheight = '1',
    label_location = '.5'
    )
  nodes_aes <- 'fill'
  edges_aes <- "label_location" #grep('^label_', names(aes_list), value = TRUE)

  # Get templates
  template <- txt[grepl("^#A?[XY]", txt)]
  template <- mapply(function(st, en){
    template[st:en]
  }, st = grep("@export", template), en = c((grep("@export", template)[-1]-1), length(template)))
  which_aes <- which(sapply(template, function(x){any(grepl(pattern = "#AY", x, fixed = TRUE))}))
  # Create aes templates
  aes_temp <- template[which_aes]
  # Remove from template
  template <- template[-which_aes]
  # Clean up
  aes_temp <- lapply(aes_temp, gsub, pattern = "^#A", replacement = "#")
  # All iterations
  add_aes <- vector("list")
  for(i in 1:length(aes_list)){
    add_aes <- c(add_aes,
                 lapply(aes_temp, function(x){ gsub("AES", names(aes_list)[i], gsub("AES_DEFAULT", aes_list[[i]], x))}))
  }
  # Append to template
  template <- c(template, add_aes)

  # Replace COND and NAME with different conditionals
  out <- list()
  for(i in 1:length(fun_list)){
    out <- c(out,
                  lapply(template, function(x){
                    gsub("COND", fun_list[[i]], gsub("NAME", names(fun_list)[i], x))}))
  }
  # Add node and edge specific templates
  template <- c(out,
                nodedg(out, "nodes"),
                nodedg(out, "edges")
                )

  # Filter functions
  edg_only <- c(paste0("_", edges_cond), paste0("#X ", edges_aes))
  nod_only <- c(paste0("_", nodes_cond), paste0("#X ", nodes_aes))
  not_allowed <- c(paste0(paste0("#X ", nodes_aes), edg_only), "label_location_latent", "label_location_obs", "label_location_var")
  out <- lapply(template, function(thisfun){
    if(any(sapply(not_allowed, grepl, x = thisfun))){
      return(NULL)
    }
    if(any(sapply(edg_only, grepl, x = thisfun))){
      if(any(grepl("_(nodes|edges) <-", thisfun))){
        return(NULL)
      } else {
        return(gsub('c("edges", "nodes")', '"edges"', thisfun, fixed = TRUE))
      }
    }
    if(any(sapply(nod_only, grepl, x = thisfun))){
      if(any(grepl("_(nodes|edges) <-", thisfun))){
        return(NULL)
      } else {
        return(gsub('c("edges", "nodes")', '"nodes"', thisfun, fixed = TRUE))
      }
    }
    return(thisfun)
  })
  template <- unlist(out)

  template <- gsub(pattern = "^#X ", replacement = "", template)
  template <- gsub(pattern = "^#Y ", replacement = "#' ", template)
  out <- c(txt[1:grep("^# Automatically generated functions below here$", txt)], template)
  writeLines(out, "R/select_rows.R")
}

#' @title Conditionally edit a sem_graph object
#' @description This function allows users to conditionally manipulate the edges
#' and nodes of a \code{sem_graph} object. The generic function \code{if_edit}
#' applies the expression \code{expr} to all rows of the \code{nodes} and
#' \code{edges} data.frames for which \code{condition} is \code{TRUE}.
#'
#' The wrapper functions documented in the Usage section have a hard-coded
#' \code{expr} and \code{condition}; for example,
#' \code{color_sig(color = "green")} colors all nodes and edges with
#' \code{pval < .05} green. If no column exists for the assigned aesthetic
#' (e.g., \code{color}), the wrappers assign the default argument
#' (in this case, \code{color = "black"}) to all other nodes and edges.
#' @param data Object to manipulate.
#' @param condition Expression that returns a logical vector when evaluated in
#' the environment of \code{data}.
#' @param expr Expression to perform on elements of \code{data} for which
#' \code{condition == TRUE}.
#' @param ... Additional arguments passed to and from functions.
#' @return Object of the same class as \code{data}.
#' @examples
#' library(lavaan)
#' res <- sem("dist ~ speed", cars, meanstructure = TRUE)
#' p <- prepare_graph(res)
#' out <- if_edit(p, condition = {pval < .05}, expr = {label = "sig"})
#' @rdname if_edit
#' @export
if_edit <- function(data, condition, expr, ...){
  UseMethod("if_edit", data)
}


# @method if_edit default
# @export
# if_edit.default <- function(data = environment(), expr, condition, ...){
#   browser()
#   cl <- match.call()
#   cl <- cl[c(1, match(c("data", "condition"), names(cl)))]
#   names(cl)[which(names(cl) == "condition")] <- "expr"
#   cl[[1L]] <- quote(with)
#   condition_met <- which(eval.parent(cl))
#   if(length(condition_met) > 0){
#     cl <- match.call()
#     cl <- cl[c(1, match(c("data", "expr"), names(cl)))]
#     cl[["data"]] <- data[condition_met, , FALSE]
#     cl[[1L]] <- quote(within)
#     tryCatch({
#       data[condition_met, ] <- eval.parent(cl)
#     }, warning = function(w){
#       message("Tried to assign to a non-existent variable.")
#     })
#
#   }
#   return(data)
# }

#' @method if_edit data.frame
#' @export
if_edit.data.frame <- function(data, condition, expr, ...){
  cl <- match.call()
  cl <- cl[c(1, match(c("data", "condition"), names(cl)))]
  names(cl)[which(names(cl) == "condition")] <- "expr"
  cl[[1L]] <- quote(with)
  condition_met <- tryCatch({which(eval.parent(cl))}, error = function(e){NULL})
  if(length(condition_met) > 0){
    cl <- match.call()
    cl <- cl[c(1, match(c("data", "expr"), names(cl)))]
    cl[["data"]] <- data[condition_met, , FALSE]
    cl[[1L]] <- quote(within)
    data[condition_met, ] <- eval.parent(cl)
  }
  return(data)
}

#' @rdname if_edit
#' @export
#' @examples
#' out <- if_edges(p, condition = {pval < .05}, expr = {label = "sig"})
if_edges <- function(data, condition, expr, ...){
  cl <- match.call()
  out <- data
  cl[[1L]] <- str2lang("tidySEM:::if_edit.data.frame")
  if("edges" %in% names(data)){
    cl[["data"]] <- data$edges
    out[["edges"]] <- eval.parent(cl)
  }
  out
}

#' @rdname if_edit
#' @export
#' @examples
#' out <- if_nodes(p, condition = {pval < .05}, expr = {label = "sig"})
if_nodes <- function(data, condition, expr, ...){
  cl <- match.call()
  out <- data
  cl[[1L]] <- str2lang("tidySEM:::if_edit.data.frame")
  if("nodes" %in% names(data)){
    cl[["data"]] <- data$nodes
    out[["nodes"]] <- eval.parent(cl)
  }
  out
}

#' @method if_edit sem_graph
#' @param element Character vector. The elements of the \code{sem_graph} to
#' edit, defaults to \code{c("edges", "nodes")}.
#' @rdname if_edit
#' @export
if_edit.sem_graph <- function(data, condition, expr,
                              element = c("edges", "nodes"), ...){
  cl <- match.call()
  out <- data
  cl[[1L]] <- str2lang("tidySEM:::if_edit.data.frame")
  if("edges" %in% element & "edges" %in% names(data)){
    cl[["data"]] <- data$edges
    out[["edges"]] <- eval.parent(cl)
  }
  if("nodes" %in% element & "nodes" %in% names(data)){
    cl[["data"]] <- data$nodes
    out[["nodes"]] <- eval.parent(cl)
  }
  out
}

# Template function
#Y @export
#Y @rdname if_edit
#Y @examples
#Y out <- all_NAME(p, expr = {label = "sig"})
#X all_NAME <- function(data, expr, ...){
#X   cl <- match.call()
#X   cl[["condition"]] <- substitute(COND)
#X   cl[["element"]] = c("edges", "nodes")
#X   cl[[1L]] <- quote(if_edit)
#X   eval.parent(cl)
#X }

#Y @export
#Y @rdname if_edit
#Y @examples
#Y out <- hide_NAME(p)
#X hide_NAME <- function(data, ...){
#X   cl <- match.call()
#X   cl[["condition"]] <- substitute(COND)
#X   cl[["expr"]] <- quote({ show = FALSE })
#X   cl[["element"]] = c("edges", "nodes")
#X   cl[[1L]] <- quote(if_edit)
#X   eval.parent(cl)
#X }

#Y @export
#Y @rdname if_edit
#Y @examples
#Y out <- show_NAME(p)
#X show_NAME <- function(data, ...){
#X   cl <- match.call()
#X   cl[["condition"]] <- substitute(COND)
#X   cl[["expr"]] <- quote({ show = TRUE })
#X   cl[["element"]] = c("edges", "nodes")
#X   cl[[1L]] <- quote(if_edit)
#X   eval.parent(cl)
#X }

#AY @export
#AY @param AES Atomic character vector,
#AY indicating which AES to assign to
#AY the selected elements.
#AY @rdname if_edit
#AY @examples
#AY out <- AES_NAME(p, { AES = AES_DEFAULT })
#AX AES_NAME <- function(data, AES = AES_DEFAULT, ...){
#AX   if(inherits(data, "sem_graph")){
#AX     these_elements <- c("edges", "nodes")
#AX     for(el in these_elements){
#AX       if(!"AES" %in% names(data[[el]])){
#AX         data[[el]]$AES <- AES_DEFAULT
#AX       }
#AX     }
#AX   }
#AX   if(inherits(data, "data.frame")){
#AX     if(!"AES" %in% names(data)){
#AX         data$AES <- AES_DEFAULT
#AX     }
#AX   }
#AX   cl <- match.call()
#AX   cl[["data"]] <- data
#AX   cl[["condition"]] <- substitute(COND)
#AX   cl[["expr"]] <- str2lang(paste0("AES = ", deparse(AES)))
#AX   cl[["element"]] <- c("edges", "nodes")
#AX   cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
#AX   cl[[1L]] <- quote(if_edit)
#AX   eval.parent(cl)
#AX }

# End template

# Automatically generated functions below here
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_sig(p, expr = {label = "sig"})
all_sig <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_sig(p)
hide_sig <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_sig(p)
show_sig <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_sig(p, { colour = "black" })
colour_sig <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_sig(p, { color = "black" })
color_sig <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_sig(p, { linetype = 1 })
linetype_sig <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_sig(p, { size = 1 })
size_sig <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_sig(p, { alpha = 1 })
alpha_sig <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_sig(p, { fill = "white" })
fill_sig <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_sig(p, { label_colour = "black" })
label_colour_sig <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_sig(p, { label_color = "black" })
label_color_sig <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_sig(p, { label_fill = "white" })
label_fill_sig <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_sig(p, { label_size = 4 })
label_size_sig <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_sig(p, { label_alpha = 1 })
label_alpha_sig <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_sig(p, { label_family = "sans" })
label_family_sig <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_sig(p, { label_fontface = "plain" })
label_fontface_sig <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_sig(p, { label_hjust = "center" })
label_hjust_sig <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_sig(p, { label_vjust = "middle" })
label_vjust_sig <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_sig(p, { label_lineheight = 1 })
label_lineheight_sig <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_sig(p, { label_location = .5 })
label_location_sig <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_nonsig(p, expr = {label = "sig"})
all_nonsig <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_nonsig(p)
hide_nonsig <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_nonsig(p)
show_nonsig <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_nonsig(p, { colour = "black" })
colour_nonsig <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_nonsig(p, { color = "black" })
color_nonsig <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_nonsig(p, { linetype = 1 })
linetype_nonsig <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_nonsig(p, { size = 1 })
size_nonsig <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_nonsig(p, { alpha = 1 })
alpha_nonsig <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_nonsig(p, { fill = "white" })
fill_nonsig <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_nonsig(p, { label_colour = "black" })
label_colour_nonsig <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_nonsig(p, { label_color = "black" })
label_color_nonsig <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_nonsig(p, { label_fill = "white" })
label_fill_nonsig <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_nonsig(p, { label_size = 4 })
label_size_nonsig <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_nonsig(p, { label_alpha = 1 })
label_alpha_nonsig <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_nonsig(p, { label_family = "sans" })
label_family_nonsig <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_nonsig(p, { label_fontface = "plain" })
label_fontface_nonsig <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_nonsig(p, { label_hjust = "center" })
label_hjust_nonsig <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_nonsig(p, { label_vjust = "middle" })
label_vjust_nonsig <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_nonsig(p, { label_lineheight = 1 })
label_lineheight_nonsig <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_nonsig(p, { label_location = .5 })
label_location_nonsig <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_fixed(p, expr = {label = "sig"})
all_fixed <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_fixed(p)
hide_fixed <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_fixed(p)
show_fixed <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_fixed(p, { colour = "black" })
colour_fixed <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_fixed(p, { color = "black" })
color_fixed <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_fixed(p, { linetype = 1 })
linetype_fixed <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_fixed(p, { size = 1 })
size_fixed <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_fixed(p, { alpha = 1 })
alpha_fixed <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_fixed(p, { fill = "white" })
fill_fixed <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_fixed(p, { label_colour = "black" })
label_colour_fixed <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_fixed(p, { label_color = "black" })
label_color_fixed <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_fixed(p, { label_fill = "white" })
label_fill_fixed <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_fixed(p, { label_size = 4 })
label_size_fixed <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_fixed(p, { label_alpha = 1 })
label_alpha_fixed <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_fixed(p, { label_family = "sans" })
label_family_fixed <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_fixed(p, { label_fontface = "plain" })
label_fontface_fixed <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_fixed(p, { label_hjust = "center" })
label_hjust_fixed <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_fixed(p, { label_vjust = "middle" })
label_vjust_fixed <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_fixed(p, { label_lineheight = 1 })
label_lineheight_fixed <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_fixed(p, { label_location = .5 })
label_location_fixed <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_pos(p, expr = {label = "sig"})
all_pos <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_pos(p)
hide_pos <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_pos(p)
show_pos <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_pos(p, { colour = "black" })
colour_pos <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_pos(p, { color = "black" })
color_pos <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_pos(p, { linetype = 1 })
linetype_pos <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_pos(p, { size = 1 })
size_pos <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_pos(p, { alpha = 1 })
alpha_pos <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_pos(p, { fill = "white" })
fill_pos <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_pos(p, { label_colour = "black" })
label_colour_pos <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_pos(p, { label_color = "black" })
label_color_pos <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_pos(p, { label_fill = "white" })
label_fill_pos <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_pos(p, { label_size = 4 })
label_size_pos <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_pos(p, { label_alpha = 1 })
label_alpha_pos <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_pos(p, { label_family = "sans" })
label_family_pos <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_pos(p, { label_fontface = "plain" })
label_fontface_pos <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_pos(p, { label_hjust = "center" })
label_hjust_pos <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_pos(p, { label_vjust = "middle" })
label_vjust_pos <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_pos(p, { label_lineheight = 1 })
label_lineheight_pos <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_pos(p, { label_location = .5 })
label_location_pos <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_neg(p, expr = {label = "sig"})
all_neg <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_neg(p)
hide_neg <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_neg(p)
show_neg <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = c("edges", "nodes")
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_neg(p, { colour = "black" })
colour_neg <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_neg(p, { color = "black" })
color_neg <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_neg(p, { linetype = 1 })
linetype_neg <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_neg(p, { size = 1 })
size_neg <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_neg(p, { alpha = 1 })
alpha_neg <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_neg(p, { fill = "white" })
fill_neg <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_neg(p, { label_colour = "black" })
label_colour_neg <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_neg(p, { label_color = "black" })
label_color_neg <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_neg(p, { label_fill = "white" })
label_fill_neg <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_neg(p, { label_size = 4 })
label_size_neg <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_neg(p, { label_alpha = 1 })
label_alpha_neg <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_neg(p, { label_family = "sans" })
label_family_neg <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_neg(p, { label_fontface = "plain" })
label_fontface_neg <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_neg(p, { label_hjust = "center" })
label_hjust_neg <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_neg(p, { label_vjust = "middle" })
label_vjust_neg <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_neg(p, { label_lineheight = 1 })
label_lineheight_neg <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- c("edges", "nodes")
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- c("edges", "nodes")
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_neg(p, { label_location = .5 })
label_location_neg <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_var(p, expr = {label = "sig"})
all_var <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_var(p)
hide_var <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_var(p)
show_var <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_var(p, { colour = "black" })
colour_var <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_var(p, { color = "black" })
color_var <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_var(p, { linetype = 1 })
linetype_var <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_var(p, { size = 1 })
size_var <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_var(p, { alpha = 1 })
alpha_var <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_var(p, { label_colour = "black" })
label_colour_var <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_var(p, { label_color = "black" })
label_color_var <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_var(p, { label_fill = "white" })
label_fill_var <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_var(p, { label_size = 4 })
label_size_var <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_var(p, { label_alpha = 1 })
label_alpha_var <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_var(p, { label_family = "sans" })
label_family_var <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_var(p, { label_fontface = "plain" })
label_fontface_var <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_var(p, { label_hjust = "center" })
label_hjust_var <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_var(p, { label_vjust = "middle" })
label_vjust_var <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_var(p, { label_lineheight = 1 })
label_lineheight_var <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs == rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_cov(p, expr = {label = "sig"})
all_cov <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_cov(p)
hide_cov <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_cov(p)
show_cov <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_cov(p, { colour = "black" })
colour_cov <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_cov(p, { color = "black" })
color_cov <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_cov(p, { linetype = 1 })
linetype_cov <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_cov(p, { size = 1 })
size_cov <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_cov(p, { alpha = 1 })
alpha_cov <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_cov(p, { label_colour = "black" })
label_colour_cov <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_cov(p, { label_color = "black" })
label_color_cov <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_cov(p, { label_fill = "white" })
label_fill_cov <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_cov(p, { label_size = 4 })
label_size_cov <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_cov(p, { label_alpha = 1 })
label_alpha_cov <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_cov(p, { label_family = "sans" })
label_family_cov <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_cov(p, { label_fontface = "plain" })
label_fontface_cov <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_cov(p, { label_hjust = "center" })
label_hjust_cov <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_cov(p, { label_vjust = "middle" })
label_vjust_cov <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_cov(p, { label_lineheight = 1 })
label_lineheight_cov <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_cov(p, { label_location = .5 })
label_location_cov <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(lhs != rhs & op == "~~")
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_reg(p, expr = {label = "sig"})
all_reg <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(op == "~")
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_reg(p)
hide_reg <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_reg(p)
show_reg <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_reg(p, { colour = "black" })
colour_reg <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_reg(p, { color = "black" })
color_reg <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_reg(p, { linetype = 1 })
linetype_reg <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_reg(p, { size = 1 })
size_reg <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_reg(p, { alpha = 1 })
alpha_reg <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_reg(p, { label_colour = "black" })
label_colour_reg <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_reg(p, { label_color = "black" })
label_color_reg <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_reg(p, { label_fill = "white" })
label_fill_reg <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_reg(p, { label_size = 4 })
label_size_reg <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_reg(p, { label_alpha = 1 })
label_alpha_reg <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_reg(p, { label_family = "sans" })
label_family_reg <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_reg(p, { label_fontface = "plain" })
label_fontface_reg <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_reg(p, { label_hjust = "center" })
label_hjust_reg <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_reg(p, { label_vjust = "middle" })
label_vjust_reg <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_reg(p, { label_lineheight = 1 })
label_lineheight_reg <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_reg(p, { label_location = .5 })
label_location_reg <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "~")
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_load(p, expr = {label = "sig"})
all_load <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(op == "=~")
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_load(p)
hide_load <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_load(p)
show_load <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_load(p, { colour = "black" })
colour_load <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_load(p, { color = "black" })
color_load <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_load(p, { linetype = 1 })
linetype_load <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_load(p, { size = 1 })
size_load <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_load(p, { alpha = 1 })
alpha_load <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_load(p, { label_colour = "black" })
label_colour_load <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_load(p, { label_color = "black" })
label_color_load <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_load(p, { label_fill = "white" })
label_fill_load <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_load(p, { label_size = 4 })
label_size_load <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_load(p, { label_alpha = 1 })
label_alpha_load <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_load(p, { label_family = "sans" })
label_family_load <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_load(p, { label_fontface = "plain" })
label_fontface_load <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_load(p, { label_hjust = "center" })
label_hjust_load <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_load(p, { label_vjust = "middle" })
label_vjust_load <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_load(p, { label_lineheight = 1 })
label_lineheight_load <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_location Atomic character vector,
#' indicating which label_location to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_location_load(p, { label_location = .5 })
label_location_load <- function(data, label_location = .5, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_location" %in% names(data[[el]])){
        data[[el]]$label_location <- .5
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_location" %in% names(data)){
        data$label_location <- .5
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(op == "=~")
  cl[["expr"]] <- str2lang(paste0("label_location = ", deparse(label_location)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_obs(p, expr = {label = "sig"})
all_obs <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_obs(p)
hide_obs <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_obs(p)
show_obs <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_obs(p, { colour = "black" })
colour_obs <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_obs(p, { color = "black" })
color_obs <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_obs(p, { linetype = 1 })
linetype_obs <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_obs(p, { size = 1 })
size_obs <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_obs(p, { alpha = 1 })
alpha_obs <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_obs(p, { fill = "white" })
fill_obs <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_obs(p, { label_colour = "black" })
label_colour_obs <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_obs(p, { label_color = "black" })
label_color_obs <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_obs(p, { label_fill = "white" })
label_fill_obs <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_obs(p, { label_size = 4 })
label_size_obs <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_obs(p, { label_alpha = 1 })
label_alpha_obs <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_obs(p, { label_family = "sans" })
label_family_obs <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_obs(p, { label_fontface = "plain" })
label_fontface_obs <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_obs(p, { label_hjust = "center" })
label_hjust_obs <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_obs(p, { label_vjust = "middle" })
label_vjust_obs <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_obs(p, { label_lineheight = 1 })
label_lineheight_obs <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "rect")
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_latent(p, expr = {label = "sig"})
all_latent <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_latent(p)
hide_latent <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_latent(p)
show_latent <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_latent(p, { colour = "black" })
colour_latent <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_latent(p, { color = "black" })
color_latent <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_latent(p, { linetype = 1 })
linetype_latent <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_latent(p, { size = 1 })
size_latent <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_latent(p, { alpha = 1 })
alpha_latent <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param fill Atomic character vector,
#' indicating which fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- fill_latent(p, { fill = "white" })
fill_latent <- function(data, fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"fill" %in% names(data[[el]])){
        data[[el]]$fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"fill" %in% names(data)){
        data$fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("fill = ", deparse(fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_latent(p, { label_colour = "black" })
label_colour_latent <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_latent(p, { label_color = "black" })
label_color_latent <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_latent(p, { label_fill = "white" })
label_fill_latent <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_latent(p, { label_size = 4 })
label_size_latent <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_latent(p, { label_alpha = 1 })
label_alpha_latent <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_latent(p, { label_family = "sans" })
label_family_latent <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_latent(p, { label_fontface = "plain" })
label_fontface_latent <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_latent(p, { label_hjust = "center" })
label_hjust_latent <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_latent(p, { label_vjust = "middle" })
label_vjust_latent <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_latent(p, { label_lineheight = 1 })
label_lineheight_latent <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(shape == "oval")
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_sig(p, expr = {label = "sig"})
all_sig_nodes <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_sig(p)
hide_sig_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_sig(p)
show_sig_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_sig(p, { colour = "black" })
colour_sig_nodes <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_sig(p, { color = "black" })
color_sig_nodes <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_sig(p, { linetype = 1 })
linetype_sig_nodes <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_sig(p, { size = 1 })
size_sig_nodes <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_sig(p, { alpha = 1 })
alpha_sig_nodes <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_sig(p, { label_colour = "black" })
label_colour_sig_nodes <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_sig(p, { label_color = "black" })
label_color_sig_nodes <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_sig(p, { label_fill = "white" })
label_fill_sig_nodes <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_sig(p, { label_size = 4 })
label_size_sig_nodes <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_sig(p, { label_alpha = 1 })
label_alpha_sig_nodes <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_sig(p, { label_family = "sans" })
label_family_sig_nodes <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_sig(p, { label_fontface = "plain" })
label_fontface_sig_nodes <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_sig(p, { label_hjust = "center" })
label_hjust_sig_nodes <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_sig(p, { label_vjust = "middle" })
label_vjust_sig_nodes <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_sig(p, { label_lineheight = 1 })
label_lineheight_sig_nodes <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_nonsig(p, expr = {label = "sig"})
all_nonsig_nodes <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_nonsig(p)
hide_nonsig_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_nonsig(p)
show_nonsig_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_nonsig(p, { colour = "black" })
colour_nonsig_nodes <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_nonsig(p, { color = "black" })
color_nonsig_nodes <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_nonsig(p, { linetype = 1 })
linetype_nonsig_nodes <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_nonsig(p, { size = 1 })
size_nonsig_nodes <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_nonsig(p, { alpha = 1 })
alpha_nonsig_nodes <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_nonsig(p, { label_colour = "black" })
label_colour_nonsig_nodes <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_nonsig(p, { label_color = "black" })
label_color_nonsig_nodes <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_nonsig(p, { label_fill = "white" })
label_fill_nonsig_nodes <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_nonsig(p, { label_size = 4 })
label_size_nonsig_nodes <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_nonsig(p, { label_alpha = 1 })
label_alpha_nonsig_nodes <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_nonsig(p, { label_family = "sans" })
label_family_nonsig_nodes <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_nonsig(p, { label_fontface = "plain" })
label_fontface_nonsig_nodes <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_nonsig(p, { label_hjust = "center" })
label_hjust_nonsig_nodes <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_nonsig(p, { label_vjust = "middle" })
label_vjust_nonsig_nodes <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_nonsig(p, { label_lineheight = 1 })
label_lineheight_nonsig_nodes <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_fixed(p, expr = {label = "sig"})
all_fixed_nodes <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_fixed(p)
hide_fixed_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_fixed(p)
show_fixed_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_fixed(p, { colour = "black" })
colour_fixed_nodes <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_fixed(p, { color = "black" })
color_fixed_nodes <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_fixed(p, { linetype = 1 })
linetype_fixed_nodes <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_fixed(p, { size = 1 })
size_fixed_nodes <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_fixed(p, { alpha = 1 })
alpha_fixed_nodes <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_fixed(p, { label_colour = "black" })
label_colour_fixed_nodes <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_fixed(p, { label_color = "black" })
label_color_fixed_nodes <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_fixed(p, { label_fill = "white" })
label_fill_fixed_nodes <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_fixed(p, { label_size = 4 })
label_size_fixed_nodes <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_fixed(p, { label_alpha = 1 })
label_alpha_fixed_nodes <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_fixed(p, { label_family = "sans" })
label_family_fixed_nodes <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_fixed(p, { label_fontface = "plain" })
label_fontface_fixed_nodes <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_fixed(p, { label_hjust = "center" })
label_hjust_fixed_nodes <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_fixed(p, { label_vjust = "middle" })
label_vjust_fixed_nodes <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_fixed(p, { label_lineheight = 1 })
label_lineheight_fixed_nodes <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_pos(p, expr = {label = "sig"})
all_pos_nodes <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_pos(p)
hide_pos_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_pos(p)
show_pos_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_pos(p, { colour = "black" })
colour_pos_nodes <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_pos(p, { color = "black" })
color_pos_nodes <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_pos(p, { linetype = 1 })
linetype_pos_nodes <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_pos(p, { size = 1 })
size_pos_nodes <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_pos(p, { alpha = 1 })
alpha_pos_nodes <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_pos(p, { label_colour = "black" })
label_colour_pos_nodes <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_pos(p, { label_color = "black" })
label_color_pos_nodes <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_pos(p, { label_fill = "white" })
label_fill_pos_nodes <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_pos(p, { label_size = 4 })
label_size_pos_nodes <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_pos(p, { label_alpha = 1 })
label_alpha_pos_nodes <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_pos(p, { label_family = "sans" })
label_family_pos_nodes <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_pos(p, { label_fontface = "plain" })
label_fontface_pos_nodes <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_pos(p, { label_hjust = "center" })
label_hjust_pos_nodes <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_pos(p, { label_vjust = "middle" })
label_vjust_pos_nodes <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_pos(p, { label_lineheight = 1 })
label_lineheight_pos_nodes <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_neg(p, expr = {label = "sig"})
all_neg_nodes <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_neg(p)
hide_neg_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_neg(p)
show_neg_nodes <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "nodes"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_neg(p, { colour = "black" })
colour_neg_nodes <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_neg(p, { color = "black" })
color_neg_nodes <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_neg(p, { linetype = 1 })
linetype_neg_nodes <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_neg(p, { size = 1 })
size_neg_nodes <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_neg(p, { alpha = 1 })
alpha_neg_nodes <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_neg(p, { label_colour = "black" })
label_colour_neg_nodes <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_neg(p, { label_color = "black" })
label_color_neg_nodes <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_neg(p, { label_fill = "white" })
label_fill_neg_nodes <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_neg(p, { label_size = 4 })
label_size_neg_nodes <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_neg(p, { label_alpha = 1 })
label_alpha_neg_nodes <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_neg(p, { label_family = "sans" })
label_family_neg_nodes <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_neg(p, { label_fontface = "plain" })
label_fontface_neg_nodes <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_neg(p, { label_hjust = "center" })
label_hjust_neg_nodes <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_neg(p, { label_vjust = "middle" })
label_vjust_neg_nodes <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_neg(p, { label_lineheight = 1 })
label_lineheight_neg_nodes <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "nodes"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "nodes"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_sig(p, expr = {label = "sig"})
all_sig_edges <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_sig(p)
hide_sig_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_sig(p)
show_sig_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_sig(p, { colour = "black" })
colour_sig_edges <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_sig(p, { color = "black" })
color_sig_edges <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_sig(p, { linetype = 1 })
linetype_sig_edges <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_sig(p, { size = 1 })
size_sig_edges <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_sig(p, { alpha = 1 })
alpha_sig_edges <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_sig(p, { label_colour = "black" })
label_colour_sig_edges <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_sig(p, { label_color = "black" })
label_color_sig_edges <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_sig(p, { label_fill = "white" })
label_fill_sig_edges <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_sig(p, { label_size = 4 })
label_size_sig_edges <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_sig(p, { label_alpha = 1 })
label_alpha_sig_edges <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_sig(p, { label_family = "sans" })
label_family_sig_edges <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_sig(p, { label_fontface = "plain" })
label_fontface_sig_edges <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_sig(p, { label_hjust = "center" })
label_hjust_sig_edges <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_sig(p, { label_vjust = "middle" })
label_vjust_sig_edges <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_sig(p, { label_lineheight = 1 })
label_lineheight_sig_edges <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) < .05)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_nonsig(p, expr = {label = "sig"})
all_nonsig_edges <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_nonsig(p)
hide_nonsig_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_nonsig(p)
show_nonsig_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_nonsig(p, { colour = "black" })
colour_nonsig_edges <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_nonsig(p, { color = "black" })
color_nonsig_edges <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_nonsig(p, { linetype = 1 })
linetype_nonsig_edges <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_nonsig(p, { size = 1 })
size_nonsig_edges <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_nonsig(p, { alpha = 1 })
alpha_nonsig_edges <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_nonsig(p, { label_colour = "black" })
label_colour_nonsig_edges <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_nonsig(p, { label_color = "black" })
label_color_nonsig_edges <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_nonsig(p, { label_fill = "white" })
label_fill_nonsig_edges <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_nonsig(p, { label_size = 4 })
label_size_nonsig_edges <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_nonsig(p, { label_alpha = 1 })
label_alpha_nonsig_edges <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_nonsig(p, { label_family = "sans" })
label_family_nonsig_edges <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_nonsig(p, { label_fontface = "plain" })
label_fontface_nonsig_edges <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_nonsig(p, { label_hjust = "center" })
label_hjust_nonsig_edges <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_nonsig(p, { label_vjust = "middle" })
label_vjust_nonsig_edges <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_nonsig(p, { label_lineheight = 1 })
label_lineheight_nonsig_edges <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(pval) >= .05)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_fixed(p, expr = {label = "sig"})
all_fixed_edges <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_fixed(p)
hide_fixed_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_fixed(p)
show_fixed_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_fixed(p, { colour = "black" })
colour_fixed_edges <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_fixed(p, { color = "black" })
color_fixed_edges <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_fixed(p, { linetype = 1 })
linetype_fixed_edges <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_fixed(p, { size = 1 })
size_fixed_edges <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_fixed(p, { alpha = 1 })
alpha_fixed_edges <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_fixed(p, { label_colour = "black" })
label_colour_fixed_edges <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_fixed(p, { label_color = "black" })
label_color_fixed_edges <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_fixed(p, { label_fill = "white" })
label_fill_fixed_edges <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_fixed(p, { label_size = 4 })
label_size_fixed_edges <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_fixed(p, { label_alpha = 1 })
label_alpha_fixed_edges <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_fixed(p, { label_family = "sans" })
label_family_fixed_edges <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_fixed(p, { label_fontface = "plain" })
label_fontface_fixed_edges <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_fixed(p, { label_hjust = "center" })
label_hjust_fixed_edges <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_fixed(p, { label_vjust = "middle" })
label_vjust_fixed_edges <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_fixed(p, { label_lineheight = 1 })
label_lineheight_fixed_edges <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(is.na(pval))
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_pos(p, expr = {label = "sig"})
all_pos_edges <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_pos(p)
hide_pos_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_pos(p)
show_pos_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_pos(p, { colour = "black" })
colour_pos_edges <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_pos(p, { color = "black" })
color_pos_edges <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_pos(p, { linetype = 1 })
linetype_pos_edges <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_pos(p, { size = 1 })
size_pos_edges <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_pos(p, { alpha = 1 })
alpha_pos_edges <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_pos(p, { label_colour = "black" })
label_colour_pos_edges <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_pos(p, { label_color = "black" })
label_color_pos_edges <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_pos(p, { label_fill = "white" })
label_fill_pos_edges <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_pos(p, { label_size = 4 })
label_size_pos_edges <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_pos(p, { label_alpha = 1 })
label_alpha_pos_edges <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_pos(p, { label_family = "sans" })
label_family_pos_edges <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_pos(p, { label_fontface = "plain" })
label_fontface_pos_edges <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_pos(p, { label_hjust = "center" })
label_hjust_pos_edges <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_pos(p, { label_vjust = "middle" })
label_vjust_pos_edges <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_pos(p, { label_lineheight = 1 })
label_lineheight_pos_edges <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) > 0)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- all_neg(p, expr = {label = "sig"})
all_neg_edges <- function(data, expr, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- hide_neg(p)
hide_neg_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- quote({ show = FALSE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @rdname if_edit
#' @examples
#' out <- show_neg(p)
show_neg_edges <- function(data, ...){
  cl <- match.call()
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- quote({ show = TRUE })
  cl[["element"]] = "edges"
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param colour Atomic character vector,
#' indicating which colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- colour_neg(p, { colour = "black" })
colour_neg_edges <- function(data, colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"colour" %in% names(data[[el]])){
        data[[el]]$colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"colour" %in% names(data)){
        data$colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("colour = ", deparse(colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param color Atomic character vector,
#' indicating which color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- color_neg(p, { color = "black" })
color_neg_edges <- function(data, color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"color" %in% names(data[[el]])){
        data[[el]]$color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"color" %in% names(data)){
        data$color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("color = ", deparse(color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param linetype Atomic character vector,
#' indicating which linetype to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- linetype_neg(p, { linetype = 1 })
linetype_neg_edges <- function(data, linetype = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"linetype" %in% names(data[[el]])){
        data[[el]]$linetype <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"linetype" %in% names(data)){
        data$linetype <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("linetype = ", deparse(linetype)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param size Atomic character vector,
#' indicating which size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- size_neg(p, { size = 1 })
size_neg_edges <- function(data, size = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"size" %in% names(data[[el]])){
        data[[el]]$size <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"size" %in% names(data)){
        data$size <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("size = ", deparse(size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param alpha Atomic character vector,
#' indicating which alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- alpha_neg(p, { alpha = 1 })
alpha_neg_edges <- function(data, alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"alpha" %in% names(data[[el]])){
        data[[el]]$alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"alpha" %in% names(data)){
        data$alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("alpha = ", deparse(alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_colour Atomic character vector,
#' indicating which label_colour to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_colour_neg(p, { label_colour = "black" })
label_colour_neg_edges <- function(data, label_colour = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_colour" %in% names(data[[el]])){
        data[[el]]$label_colour <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_colour" %in% names(data)){
        data$label_colour <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_colour = ", deparse(label_colour)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_color Atomic character vector,
#' indicating which label_color to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_color_neg(p, { label_color = "black" })
label_color_neg_edges <- function(data, label_color = "black", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_color" %in% names(data[[el]])){
        data[[el]]$label_color <- "black"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_color" %in% names(data)){
        data$label_color <- "black"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_color = ", deparse(label_color)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fill Atomic character vector,
#' indicating which label_fill to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fill_neg(p, { label_fill = "white" })
label_fill_neg_edges <- function(data, label_fill = "white", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fill" %in% names(data[[el]])){
        data[[el]]$label_fill <- "white"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fill" %in% names(data)){
        data$label_fill <- "white"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_fill = ", deparse(label_fill)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_size Atomic character vector,
#' indicating which label_size to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_size_neg(p, { label_size = 4 })
label_size_neg_edges <- function(data, label_size = 4, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_size" %in% names(data[[el]])){
        data[[el]]$label_size <- 4
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_size" %in% names(data)){
        data$label_size <- 4
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_size = ", deparse(label_size)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_alpha Atomic character vector,
#' indicating which label_alpha to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_alpha_neg(p, { label_alpha = 1 })
label_alpha_neg_edges <- function(data, label_alpha = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_alpha" %in% names(data[[el]])){
        data[[el]]$label_alpha <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_alpha" %in% names(data)){
        data$label_alpha <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_alpha = ", deparse(label_alpha)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_family Atomic character vector,
#' indicating which label_family to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_family_neg(p, { label_family = "sans" })
label_family_neg_edges <- function(data, label_family = "sans", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_family" %in% names(data[[el]])){
        data[[el]]$label_family <- "sans"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_family" %in% names(data)){
        data$label_family <- "sans"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_family = ", deparse(label_family)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_fontface Atomic character vector,
#' indicating which label_fontface to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_fontface_neg(p, { label_fontface = "plain" })
label_fontface_neg_edges <- function(data, label_fontface = "plain", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_fontface" %in% names(data[[el]])){
        data[[el]]$label_fontface <- "plain"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_fontface" %in% names(data)){
        data$label_fontface <- "plain"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_fontface = ", deparse(label_fontface)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_hjust Atomic character vector,
#' indicating which label_hjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_hjust_neg(p, { label_hjust = "center" })
label_hjust_neg_edges <- function(data, label_hjust = "center", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_hjust" %in% names(data[[el]])){
        data[[el]]$label_hjust <- "center"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_hjust" %in% names(data)){
        data$label_hjust <- "center"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_hjust = ", deparse(label_hjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_vjust Atomic character vector,
#' indicating which label_vjust to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_vjust_neg(p, { label_vjust = "middle" })
label_vjust_neg_edges <- function(data, label_vjust = "middle", ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_vjust" %in% names(data[[el]])){
        data[[el]]$label_vjust <- "middle"
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_vjust" %in% names(data)){
        data$label_vjust <- "middle"
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_vjust = ", deparse(label_vjust)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}
#' @export
#' @param label_lineheight Atomic character vector,
#' indicating which label_lineheight to assign to
#' the selected elements.
#' @rdname if_edit
#' @examples
#' out <- label_lineheight_neg(p, { label_lineheight = 1 })
label_lineheight_neg_edges <- function(data, label_lineheight = 1, ...){
  if(inherits(data, "sem_graph")){
    these_elements <- "edges"
    for(el in these_elements){
      if(!"label_lineheight" %in% names(data[[el]])){
        data[[el]]$label_lineheight <- 1
      }
    }
  }
  if(inherits(data, "data.frame")){
    if(!"label_lineheight" %in% names(data)){
        data$label_lineheight <- 1
    }
  }
  cl <- match.call()
  cl[["data"]] <- data
  cl[["condition"]] <- substitute(as.numeric(est) < 0)
  cl[["expr"]] <- str2lang(paste0("label_lineheight = ", deparse(label_lineheight)))
  cl[["element"]] <- "edges"
  cl <- cl[c(1, match(c("data", "condition", "expr", "element"), names(cl)))]
  cl[[1L]] <- quote(if_edit)
  eval.parent(cl)
}