/
README.Rmd
113 lines (90 loc) · 4.08 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
---
output: rmarkdown::github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "README-"
)
```
# phonenumber <img src="man/figures/logo.png" align="right" height="139" />
<!-- badges: start -->
[![R-CMD-check](https://github.com/scumdogsteev/phonenumber/workflows/R-CMD-check/badge.svg)](https://github.com/scumdogsteev/phonenumber/actions)[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/phonenumber)](https://cran.r-project.org/package=phonenumber) [![Coverage Status](https://coveralls.io/repos/scumdogsteev/phonenumber/badge.svg?branch=master&service=github)](https://coveralls.io/github/scumdogsteev/phonenumber?branch=master) [![RStudio CRAN mirror downloads](https://cranlogs.r-pkg.org/badges/grand-total/phonenumber)](https://cran.r-project.org/package=phonenumber)
<!-- badges: end -->
### Background
When I recently posted some of my [Turbo Pascal Stuff](https://stevemyles.site/blog/2015/06/19/turbo-pascal-stuff/), I found an incomplete
program that was supposed to do this. I was active on [BBSes](https://en.wikipedia.org/wiki/Bulletin_board_system) and, though I don't
recall the reason, I wanted a way to determine the possible words spelled by the
BBS phone numbers (and/or how to determine what phone numbers correspond to
words/phrases). I never got around to finishing the second part (numbers to
letters) in Turbo Pascal, though.
I decided to create this functionality in R for three reasons:
1. to see if I could write the functions
2. to learn to publish a package to CRAN
3. to serve as a possible pedagogical example for others as it involves working
with lists, splitting strings, and the [expand.grid](https://stat.ethz.ch/R-manual/R-devel/library/base/html/expand.grid.html) function.
#### Telephone keypad
For purposes of this package, the mapping of numbers to letters on a telephone's
keypad are as follows:
* *Default behavior* - if parameter `qz` is omitted (or has a value other than 0):
* 2 corresponds to A, B, C
* 3 corresponds to D, E, F
* 4 corresponds to G, H, I
* 5 corresponds to J, K, L
* 6 corresponds to M, N, O
* 7 corresponds to P, Q, R, S
* 8 corresponds to T, U, V
* 9 corresponds to W, X, Y, Z
* 0 and 1 have no corresponding letters
* *Alternate behavior* - if parameter `qz` = 0:
* 2 corresponds to A, B, C
* 3 corresponds to D, E, F
* 4 corresponds to G, H, I
* 5 corresponds to J, K, L
* 6 corresponds to M, N, O
* 7 corresponds to P, R, S
* 8 corresponds to T, U, V
* 9 corresponds to W, X, Y
* 0 corresponds to Q, Z
* 1 has no corresponding letters
### Installation
* `phonenumber` is available [on CRAN](https://cran.r-project.org/package=phonenumber) and can be
installed accordingly:
```r
install.packages("phonenumber")
library(phonenumber)
```
* You can also install `phonenumber` from GitHub using the `devtools` package:
```r
install.packages("devtools")
library(devtools)
install_github("scumdogsteev/phonenumber")
library(phonenumber)
```
### Usage
The package consists of two functions:
1. `letterToNumber` - converts letters in a string to numbers
2. `numberToLetter` - converts numbers in a string to letters
Both functions convert non-alphanumeric characters to dash (-) and perform no
conversion on their respective base character type (i.e., `letterToNumber`
leaves letters as is and `numberToLetter` leaves numbers as is).
### Examples
```{r library, echo=FALSE}
library(phonenumber)
```
**`letterToNumber`** converts a string containing letters into the corresponding
numbers on a telephone's keypad. For example, if the user wants to know what
telephone number corresponds to "Texas:"
```{r letterToNumber}
string <- "Texas"
letterToNumber(string)
```
**`numberToLetter`** converts a string containing numbers into the corresponding
letters on a telephone's keypad. For example, if the user wants to know what
possible character strings could be spelled by a sequence of numbers (e.g., 22):
```{r numberToLetter ex1}
string <- "22"
numberToLetter(string)
```