Shiny App to Discover Cocktails.
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
R fix dockerfile to build it Aug 19, 2018
data-raw
data data should have numeric votes Jul 14, 2018
docker
inst
m4
man-roxygen
man fix dockerfile to build it Aug 19, 2018
rpkg_make @ 3e410ca
tests
.Rbuildignore
.Rinstignore
.gitattributes first pass at the shiny object. Jun 16, 2018
.gitignore remove rude cocktails Jun 24, 2018
.gitmodules first pass at the shiny object. Jun 16, 2018
.travis.yml
ChangeLog
DESCRIPTION
LICENSE first pass at the shiny object. Jun 16, 2018
Makefile
NAMESPACE
README.Rmd
README.md
app.R
rebuildTags.sh

README.md

cocktailApp

Build Status codecov.io CRAN Downloads Total

A Shiny app to discover cocktails.

-- Steven E. Pav, shabbychef@gmail.com

Installation

This package can be installed from CRAN, via drat, or from github via devtools:

# via CRAN:
install.packages("cocktailApp")
# via drat:
if (require(drat)) {
    drat:::add("shabbychef")
    install.packages("cocktailApp")
}
# get snapshot from github (may be buggy)
if (require(devtools)) {
    # latest greatest
    install_github("shabbychef/cocktailApp", ref = "master")
}

Basic Usage

The app can be run in a few ways:

  1. You can download the github repo and run the app.R in the main directory, either via shiny::runApp() or by moving this directory to a location that Shiny Server serves.
  2. You can install the package and then use the cocktailApp() function.

Screenshots

Data

The underlying data to power the shiny app is also available from this package. It is called, simply, cocktails. This data frame has rows for each ingredient, with amounts, and units, and is joined to information about the cocktail, which is identified by name, an upstream ID, URL, rating, number of votes, and more.

library(cocktailApp)
library(dplyr)
library(knitr)
utils::data("cocktails", package = "cocktailApp")
cocktails %>% arrange(desc(rating)) %>% head(n = 10) %>% 
    select(cocktail, ingredient, amt, unit, rating) %>% 
    knitr::kable()
cocktail ingredient amt unit rating
Jersey Sour Berneroy Fine Calvados 2.00 fl oz 5
Jersey Sour Freshly squeezed lemon juice 1.00 fl oz 5
Jersey Sour Sugar syrup (2 sugar to 1 water) 0.50 fl oz 5
Jersey Sour Pasteurised egg white 0.50 fl oz 5
Jersey Sour Lemon zest twist 1.00 garnish 5
Julep (Generic Name) Mint leaves 12.00 fresh 5
Julep (Generic Name) Brandy, whisk(e)y, gin, rum etc. 2.50 fl oz 5
Julep (Generic Name) Sugar syrup (2 sugar to 1 water) 0.75 fl oz 5
Julep (Generic Name) Angostura Aromatic Bitters 3.00 dash 5
Julep (Generic Name) Mint sprig 1.00 garnish 5