diff --git a/R/create_consort_data.R b/R/create_consort_data.R index 17a72bd..a7ba502 100644 --- a/R/create_consort_data.R +++ b/R/create_consort_data.R @@ -21,9 +21,9 @@ create_consort_data <- function(.data, ...) { ) # if no arrows are set up, allow the joins so the box prints if (nrow(consort_arrows) == 0) { - consort_arrows <- bind_rows( + consort_arrows <- dplyr::bind_rows( consort_arrows, - tibble( + dplyr::tibble( start = NA, start_side = NA, end = NA, end_side = NA, start_x = NA, start_y = NA, end_x = NA, end_y = NA ) @@ -38,9 +38,9 @@ create_consort_data <- function(.data, ...) { ) # if no lines are set up, allow the joins so the box prints if (nrow(consort_lines) == 0) { - consort_lines <- bind_rows( + consort_lines <- dplyr::bind_rows( consort_lines, - tibble( + dplyr::tibble( start = NA, start_side = NA, end = NA, end_side = NA, start_x = NA, start_y = NA, end_x = NA, end_y = NA ) @@ -113,7 +113,7 @@ create_consort_data <- function(.data, ...) { dplyr::full_join( boxes, - bind_rows(arrows, lines), + dplyr::bind_rows(arrows, lines), by = "type" ) %>% dplyr::filter(