R/pick_menu_item.R

In patelm9/typewriteR: Console messages for process control

#' Interactively pick and return a row in a dataframe
#' @importFrom dplyr filter
#' @importFrom dplyr row_number
#' @export

pick_menu_item <-
        function(dataframe) {

                print(dataframe)

                ans <- readline("Please select a row by number. ")
                ans <- as.integer(ans)

                response <- dataframe %>%
                                dplyr::filter(dplyr::row_number() == ans)

                return(response)
        }