R/helpers.R

In mpru/karel: Learning programming with Karel the robot

# All the functions in this file are supposed to be internal, but two of them
# are useful for testing and for ploting different states of the world:
# plot_static_world() and get_pkg_env(). I prefer not to export them so they are
# not available for the general user, but I can use them with ::
# Since they are internal, they don-t have language wrappers.

#' Get Karel's environment
#'
#' This function returns the environment called pkg_env created by the package.
#' It's useful for debugging and checking. It's an internal function.
#'
#' @return An enviroment with objects that represent Karel's world.
#'
#' @details \code{pkg_env} is an environment created inside the package to store
#'   and share between functions all the objects related to Karel's world and
#'   its state. Since the functions that will be used by the students should be
#'   simple and without arguments (for example, \code{move()}), these functions
#'   modify internally \code{pkg_env}.
#'
#'   The components of this environment are:
#'   \enumerate{
#'     \item \code{nx}: size of Karel's world, number of cells in x-axis.
#'     \item \code{ny}: size of Karel's world, number of cells in y-axis.
#'     \item \code{hor_walls}: a data.frame with a row for each horizontal wall
#'     in Karel's world and 3 columns: x (coordinate of the start of the wall in
#'     the x axis), y (coordinate of the start of the wall in the y axis), lgth
#'     (length of the wall, in number of cells it covers). If it is NULL, there
#'     are no horizontal walls in the world.
#'     \item \code{ver_walls}: a data.frame with a row for each vertical wall in
#'     Karel's world and 3 columns: x (coordinate of the start of the wall in
#'     the x axis), y (coordinate of the start of the wall in the y axis), lgth
#'     (length of the wall, in number of cells it covers). If it takes the value
#'     NULL, there are no vertical walls in the world.
#'     \item \code{open_moves}: a nx x ny x 4 array of TRUE/FALSE values
#'     indicating if Karel can move to each direction from a given position. For
#'     example, if Karel is in the bottom left corner, which is cell [1, 1], it
#'     can't go south or left, so we have both open_moves[1, 1, 3] and
#'     open_moves[1, 1, 4] set to FALSE. Depending on the existing walls it
#'     could move south or north, so open_moves[1, 1, 1] and open_moves[1, 1, 2]
#'     could be TRUE or FALSE. Taking into account the size of the world and the
#'     walls, this array is created by the internal function
#'     \code{\link{generate_open_moves}}.
#'     \item \code{karel}: a data.frame with a row for each moment, in which
#'     each state of Karel is recorded throughout the execution of its actions.
#'     It has 4 columns: karel_x (Karel's x-axis coordinate), karel_y (Karel's
#'     y-axis coordinate), karel_dir (the direction Karel is facing, 1 east, 2
#'     north, 3 west, or 4 south), and moment (integer value indicating each
#'     moment).
#'     \item \code{dir_now}: current Karel's facing direction.
#'     \item \code{x_now}: x-axis coordinate of Karel's current position.
#'     \item \code{y_now}: y-axis coordinate of Karel's current position.
#'     \item \code{moment}: current moment (integer value).
#'     \item \code{beepers_any}: total amount of beepers present in the world at
#'     this moment.
#'     \item \code{beepers_bag}: number of beepers that Karel has available in
#'     its bag at the moment. Karel can put beepers if it has beepers in its
#'     bag. It can take the value Inf.
#'     \item \code{beepers_now}: a data.frame with as many rows as cells with
#'     beepers in the world and 5 columns: \code{x} and \code{y} for the
#'     coordinates of the cell, \code{cell} is the number of the cell counting
#'     as cell number 1 the cell in the bottom left corner and going upwards by
#'     row (meaning cell number 2 would be the cell in coordinates x=2 and y=1),
#'     \code{n} the number of beepers in this cell and \code{moment} the moment
#'     in which this state of the world corresponds to. It is created by the
#'     internal function  \code{\link{create_beepers}}.
#'     \item \code{beepers_all}: a data.frame with the same structure as
#'     \code{beepers_now}. While \code{beepers_now} only has current state of
#'     beepers, \code{beepers_all} acummulates all states for the animation,
#'     binding the rows of \code{beepers_now} and \code{beepers_all} after each
#'     action.
#'     \item \code{base_plot}: the initial plot of the world, with its size and
#'     all the walls if there are any. It doesn't show Karel or the beepers,
#'     since those things can change with time. This is the base plot that is
#'     used later to produce the animation. This plot is created by the internal
#'     function \code{\link{plot_base_world}}.
#'   }
#'
#' @keywords internal
#'
.get_pkg_env <- function() {
  return(pkg_env)
}

#' Plot the world at a given time
#'
#' This function plots Karel'w wort at the requested time. Initially, time is 1
#' and with each action that Karel performs, time is incremented by one. Current
#' time is stored in \code{pkg_env$moment}. This function is useful for
#' debuggint and to get static images to be used in the examples in the handouts
#' for studentes.
#'
#' @param time The requested time
#' @param lang language code (such as "en" or "es") for printing messages
#'
#' @return Prints the plot.
#'
#' @keywords internal
#'
.plot_static_world <- function(time, lang) {

  if (time < 1) {
    cli::cli_abort(call = NULL, message = c(
      "x" = message_texts[[lang]]$time_less_than_one_x,
      ">" = message_texts[[lang]]$time_less_than_one_arrow)
    )
  }
  if (time > pkg_env$moment) {
    cli::cli_abort(call = NULL, message = c(
      "x" = message_texts[[lang]]$time_too_big_x,
      ">" = paste0(message_texts[[lang]]$time_too_big_arrow, " ",
                   pkg_env$moment, "."))
    )
  }

  # Filter to keep only this moment
  karel_for_drawing <- dplyr::filter(pkg_env$karel, moment == time)
  karel_for_drawing <- draw_karel_df(karel_for_drawing$x, karel_for_drawing$y,
                                     karel_for_drawing$direction, time)
  beepers_moment <- dplyr::filter(pkg_env$beepers_all, moment == time)
  if (nrow(beepers_moment) == 0) {
    # This means that in this moment there were no beepers in the world
    # In order the plot to work, I will create a dataset with NA values
    beepers_moment[1, ] <- list(NA, NA, NA, NA, time)
  }

  p <-
    pkg_env$base_plot +
    geom_tile(data = beepers_moment,
              aes(x = x - 0.5, y = y - 0.5, width = 0.4, height = 0.4),
              fill = "purple", color = "black", linewidth = 0.5) +
    geom_text(data = beepers_moment, aes(x = x - 0.5, y = y - 0.5, label = n),
              color = "white") +
    geom_rect(data = karel_for_drawing,
              aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
              alpha = karel_for_drawing$alpha,
              fill = karel_for_drawing$fill, color = "black")

  suppressWarnings(print(p))
}

#' Plot base world
#'
#' This functions produces the initial plot of the world, with its size and all
#' the walls if there are any. It doesn't plot Karel or the beepers, since those
#' things can change with time.
#'
#' @return A ggplot with the world
#'
#' @keywords internal
#'
plot_base_world <- function() {

  # Make this data handy
  nx <- pkg_env$nx
  ny <- pkg_env$ny

  pkg_env$base_plot <-
    ggplot(NULL) +
    geom_point(data = tidyr::expand_grid(x = (1:nx) - 0.5, y = (1:ny) - 0.5),
               aes(x = x, y = y), size = 2) +
    scale_x_continuous("", expand = c(0, 0), limits = c(0, nx),
                       breaks = 0.5:(nx - 0.5), labels = 1:nx) +
    scale_y_continuous("", expand = c(0, 0), limits = c(0, ny),
                       breaks = 0.5:(ny - 0.5), labels = 1:ny) +
    coord_fixed() +
    theme(
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      axis.ticks = element_blank(),
      axis.text = element_text(face = "bold"),
      panel.border = element_rect(color = "black", linewidth = 2, fill = NA)
    )

  # Add walls if there are any
  if (!is.null(pkg_env$ver_walls)) {
    pkg_env$base_plot <-
      pkg_env$base_plot +
      geom_segment(data = pkg_env$ver_walls,
                   aes(x = x, y = y, xend = x, yend = y + lgth), linewidth = 2)
  }
  if (!is.null(pkg_env$hor_walls)) {
    pkg_env$base_plot <-
      pkg_env$base_plot +
      geom_segment(data = pkg_env$hor_walls,
                   aes(x = x, y = y, xend = x + lgth, yend = y), linewidth = 2)
  }
}

#' Generate a dataset to plot Karel's figure in each time
#'
#' Karel is drawn with 6 squares (body, feet, eyes and mouth) using geom_rect(),
#' so we need arguments xmin, xmax, ymin and ymax for each of them. So this
#' function takes Karel's current position (x, y) and direction (1 east, 2
#' north, 3 west, 4 south) and generates the corresponding values of xmin, xmax,
#' ymin and ymax.
#'
#' This function is called repeatedly for each position of Karel through time.
#'
#' @return A 6x7 tibble. First row is for the body, 2nd for the left foot, then
#'   right foot, left eye, right eye and finally the mouth. Columns are xmin,
#'   xmax, ymin, ymax, moment (time), a color (for fill) and a transparency
#'   value (alpha)
#'
#' @keywords internal
#'
draw_karel_df <- function(x, y, direction, moment) {
  switch(direction,
         # In the tibbles, this is the order of the coordinates:
         # object = c("body", "left_foot", "right_foot", "left_eye",
         # "right_eye", "mouth")
         # Direction 1, going east
         tibble(
           xmin = x - c(.9, .2, .2, .75, .75, .45),
           xmax = x - c(.2, .1, .1, .65, .65, .35),
           ymin = y - c(.85, .75, .45, .65, .45, .65),
           ymax = y - c(.15, .55, .25, .55, .35, .35),
           moment = moment,
           fill = c("orange", "black", "black", "brown", "brown", "red"),
           alpha = c(0.25, rep(1, 5))
         ),
         # Direction 2, going north
         tibble(
           xmin = x - c(.85, .45, .75, .45, .65, .65),
           xmax = x - c(.15, .25, .55, .35, .55, .35),
           ymin = y - c(.9, .2, .2, .75, .75, .45),
           ymax = y - c(.2, .1, .1, .65, .65, .35),
           moment = moment,
           fill = c("orange", "black", "black", "brown", "brown", "red"),
           alpha = c(0.25, rep(1, 5))
         ),
         # Direction 3, going west
         tibble(
           xmin = x - c(.8, .9, .9, .35, .35, .65),
           xmax = x - c(.1, .8, .8, .25, .25, .55),
           ymin = y - c(.85, .45, .75, .45, .65, .65),
           ymax = y - c(.15, .25, .55, .35, .55, .35),
           moment = moment,
           fill = c("orange", "black", "black", "brown", "brown", "red"),
           alpha = c(0.25, rep(1, 5))
         ),
         # Direction 4, going south
         tibble(
           xmin = x - c(.85, .75, .45, .65, .45, .65),
           xmax = x - c(.15, .55, .25, .55, .35, .35),
           ymin = y - c(.8, .9, .9, .35, .35, .65),
           ymax = y - c(.1, .8, .8, .25, .25, .55),
           moment = moment,
           fill = c("orange", "black", "black", "brown", "brown", "red"),
           alpha = c(0.25, rep(1, 5))
         )
  )
}

#' Get row number in beepers dataset
#'
#' Given current position of Karel, it calculates the cell id (\code{cell}) and
#' returns the row number of the respective cell in the beepers_now dataset.
#' It's used to add or remove beepers in this row when Karel picks or puts
#' beepers.
#'
#' @return row number or numeric of length 0
#' @keywords internal
#'
get_beepers_df_row <- function() {
  cell <- pkg_env$x_now + pkg_env$nx * pkg_env$y_now - pkg_env$nx
  cell_present <- which(pkg_env$beepers_now$cell == cell)
  return(cell_present)
}

#' Check user's own world
#'
#' This function analyzes if a world provided by the user satisfies all
#' requirements.
#'
#' @param world The world provided by the user. It's a list. See details in
#'   \code{\link{generar_mundo}}.
#'
#' @return If a misespecification is found, this function produces a stop and
#'   provides a descriptive error message.
#'
#' @keywords internal
#'
#' @details This function is called by \code{\link{.generate_world}}.
#'
check_user_world <- function(world, lang) {
  # I'm not using assertthat package because I want to
  # write bilingual error messages

  # Are all the elements present?
  elements <- c("nx", "ny", "hor_walls", "ver_walls", "karel_x", "karel_y",
                "karel_dir", "beepers_x", "beepers_y", "beepers_n",
                "beepers_bag")
  for (elem in elements) {
    if (!elem %in% names(world)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(elem,
                    message_texts[[lang]]$check_user_world_element_missing_x),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
  }

  # Check nx
  # I do these two separated because the second one could be a vector of T o F
  # if the length is greater than 1 and that gives a warning, so I first check
  # the length
  if (length(world$nx) != 1 | !is.numeric(world$nx)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_nx,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$nx %% 1 != 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_nx,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }

  # Check ny
  if (length(world$ny) != 1 | !is.numeric(world$ny)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_ny,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$ny %% 1 != 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_ny,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }

  # Check karel_x
  if (length(world$karel_x) != 1 | !is.numeric(world$karel_x)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_x,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$karel_x %% 1 != 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_x,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$karel_x < 1 | world$karel_x > world$nx) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_x,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }

  # Check karel_y
  if (length(world$karel_y) != 1 | !is.numeric(world$karel_y)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_y,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$karel_y %% 1 != 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_y,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$karel_y < 1 | world$karel_y > world$ny) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_y,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }

  # Check karel_dir
  if (length(world$karel_dir) != 1 | !is.numeric(world$karel_dir)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_dir,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$karel_dir %% 1 != 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_dir,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (!world$karel_dir %in% 1:4) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_karel_dir,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }

  # Check beepers_bag
  if (length(world$beepers_bag) != 1 | !is.numeric(world$beepers_bag)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_beepers_bag,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (!is.infinite(world$beepers_bag) & world$beepers_bag %% 1 != 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_beepers_bag,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (world$beepers_bag < 0) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = message_texts[[lang]]$check_user_world_wrong_beepers_bag,
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }

  # Check "beepers_x", "beepers_y", "beepers_n"
  if (any(is.null(world$beepers_x), is.null(world$beepers_y),
          is.null(world$beepers_n))) {
    # All NULL?
    if (!all(is.null(world$beepers_x), is.null(world$beepers_y),
             is.null(world$beepers_n))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_beepers_xyn,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
  } else {
    # All numeric?
    if (!all(is.numeric(world$beepers_x), is.numeric(world$beepers_y),
             is.numeric(world$beepers_n))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_beepers_xyn,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
    # All same length?
    if (!(length(world$beepers_x) == length(world$beepers_y) &
          length(world$beepers_x) == length(world$beepers_n))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_beepers_xyn,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
    # All integer?
    if (!all(world$beepers_x %% 1 == 0, world$beepers_y %% 1 == 0,
             world$beepers_n %% 1 == 0)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_beepers_xyn,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
    # All >= 1?
    if (any(world$beepers_x < 1, world$beepers_y < 1, world$beepers_n < 1)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_beepers_xyn,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
    # Coordinates ok?
    if (any(world$beepers_x > world$nx | world$beepers_y > world$ny)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_beepers_xyn,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
  }

  # Check ver_walls and hor_walls
  check_walls(world$ver_walls, "ver_walls", world$nx, world$ny, lang)
  check_walls(world$hor_walls, "hor_walls", world$nx, world$ny, lang)
}

#' Check the walls user's provided world
#'
#' This is a helper function to check ver_walls and hor_walls. It's called by
#' check_user_world twice.
#'
#' @param dataset Either hor_walls or ver_walls
#' @param name Character string: "hor_walls" or "ver_walls"
#' @param nx, ny Size of the world
#' @param lang language code (such as "en" or "es") for printing messages
#'
#' @return If a misespecification is found, this function produces a stop and
#'   provides a descriptive error message.
#'
#' @keywords internal
#'
check_walls <- function(dataset, name, nx, ny, lang) {
  if (!is.null(dataset) & !is.data.frame(dataset)) {
    cli::cli_abort(call = NULL, message = c(
      "!" = message_texts[[lang]]$check_user_world_general,
      "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls1),
      ">" = message_texts[[lang]]$check_user_world_try_again)
    )
  }
  if (is.data.frame(dataset)) {

    # Has rows?
    if (nrow(dataset) < 1) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls2),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    # Are all the columns present?
    for (elem in c("x", "y", "lgth")) {
      if (!elem %in% names(dataset)) {
        cli::cli_abort(call = NULL, message = c(
          "!" = message_texts[[lang]]$check_user_world_general,
          "x" = paste0(message_texts[[lang]]$check_user_world_wrong_walls3, " ",
                       elem, " ",
                       message_texts[[lang]]$check_user_world_wrong_walls4,
                       name, "."),
          ">" = message_texts[[lang]]$check_user_world_try_again)
        )
      }
    }

    # Any NA?
    if (any(is.na(dataset))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls5),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    # All columns are numeric?
    if (!all(apply(dataset, 2, is.numeric))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls6),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    # All integers?
    if (!all(apply(dataset, 2, function(x) x %% 1 == 0))) {
        cli::cli_abort(call = NULL, message = c(
          "!" = message_texts[[lang]]$check_user_world_general,
          "x" = paste(name,
                      message_texts[[lang]]$check_user_world_wrong_walls7),
          ">" = message_texts[[lang]]$check_user_world_try_again)
        )
    }

    # Range of values
    if (any(dataset$x < 0) | any(dataset$x >= nx)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls8),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    if (any(dataset$y < 0) | any(dataset$y >= ny)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls9),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    if (any(dataset$lgth < 0)) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls10),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    if (name == "hor_walls" & any(dataset$lgth > (nx - dataset$x))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = message_texts[[lang]]$check_user_world_wrong_walls11,
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }

    if (name == "ver_walls" & any(dataset$lgth > (ny - dataset$y))) {
      cli::cli_abort(call = NULL, message = c(
        "!" = message_texts[[lang]]$check_user_world_general,
        "x" = paste(name, message_texts[[lang]]$check_user_world_wrong_walls12),
        ">" = message_texts[[lang]]$check_user_world_try_again)
      )
    }
  }
}