Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/matt-dray/emojiscape
:deciduous_tree::chipmunk: R package: print a little emoji scene to your console
https://github.com/matt-dray/emojiscape
emoji r-package rstats
Last synced: about 1 month ago
JSON representation
:deciduous_tree::chipmunk: R package: print a little emoji scene to your console
- Host: GitHub
- URL: https://github.com/matt-dray/emojiscape
- Owner: matt-dray
- License: other
- Created: 2021-06-23T18:44:01.000Z (over 3 years ago)
- Default Branch: main
- Last Pushed: 2021-06-26T13:10:54.000Z (over 3 years ago)
- Last Synced: 2024-12-13T13:45:38.340Z (about 1 month ago)
- Topics: emoji, r-package, rstats
- Language: R
- Homepage:
- Size: 33.2 KB
- Stars: 2
- Watchers: 2
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "",
fig.path = "man/figures/README-",
out.width = "100%"
)
library(emojiscape)
set.seed(1337)
```
# {emojiscape}
[](https://www.repostatus.org/#concept)
[](https://www.rostrum.blog/2021/06/26/emojiscape/)
{emojiscape} is a tiny R package that prints to the console a randomised emoji scene. Choose a terrain and three emoji of that theme will be sampled with different probabilities and rendered to a grid size of your choosing.
## Install
Install {emojiscape} from GitHub. It requires [the GitHub-hosted {emo} package](https://github.com/hadley/emo), which is built on [emojilib](https://github.com/muan/emojilib/).
```{r eval=FALSE}
remotes::install_github("matt-dray/emojiscape")
```
I made this for my own amusement, so no guarantees.
## Build a tiny world
You can `generate()` a scene by passing one of the recognised `terrain` options.
```{r}
emojiscape::generate("city")
```
You can see the emoji set for each terrain. I've categorised them into 'common', 'uncommon' and 'rare' emoji based on what their default sampling frequency.
```{r}
emojiscape::get_set("city")
```
You can adjust these frequencies with the `prob_*` arguments in `generate()`. You can also change the `grid_size()` of the output.
```{r}
emojiscape::generate(
terrain = "city",
grid_size = 7, # i.e. a 7x7 grid
prob_common = "0.2",
prob_uncommon = "0.2",
prob_rare = "0.6"
)
```
## All terrains
The full set of terrain options is:
```{r echo=FALSE}
terrain_options <- paste(as.list(args(generate))$terrain)[-1]
print(terrain_options)
```
Click for a preview of all terrains
```{r echo = FALSE}
print_scape <- function(terrain) {
cat(paste0('\nterrain = "', terrain, '"\n'))
emojiscape::generate(terrain)
}
purrr::walk(terrain_options, print_scape)
```
Click for all emoji sets
```{r echo=FALSE}
print_scape <- function(terrain) {
cat(paste0('\nterrain = "', terrain, '"\n'))
print(emojiscape::get_set(terrain))
}
purrr::walk(terrain_options, print_scape)
```
## Terrain expansion
You can raise [a new issue](https://github.com/matt-dray/emojiscape/issues) or pull request to add a terrain, which are specified in [/R/utils.R](https://github.com/matt-dray/emojiscape/blob/main/R/utils.R). Please note that the emojiscape project is released with a [Contributor Code of Conduct](https://contributor-covenant.org/version/2/0/CODE_OF_CONDUCT.html). By contributing to this project, you agree to abide by its terms.