## [1] 1 2 3 4 5 6 7 8 9 10 11
## [12] 12 13 14 15 16 17 18 19 20 21 22
## [23] 23 24 25 26 27 28 29 30 31 32 33
## [34] 34 35 36 37 38 39 40 41 42 43 44
## [45] 45 46 47 48 49 50 51 52 53 54 55
## [56] 56 57 58 59 60 61 62 63 64 65 66
## [67] 67 68 69 70 71 72 73 74 75 76 77
## [78] 78 79 80 81 82 83 84 85 86 87 88
## [89] 89 90 91 92 93 94 95 96 97 98 99
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
face | suit | value | |
---|---|---|---|
king | spades | 13 | |
queen | spades | 12 | |
jack | spades | 11 | |
ten | spades | 10 | |
nine | spades | 9 | |
eight | spades | 8 | |
seven | spades | 7 | |
six | spades | 6 | |
five | spades | 5 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
library(quantmod) | |
library(VGAM) | |
# Define server logic for random distribution application | |
shinyServer(function(input, output) { | |
# acquiring data | |
dataInput <- reactive({ | |
if (input$get == 0) |
To add a recipe or fix a typo in the Tidyverse cookbook, use a pull request. Here's how:
- Visit the chapter of the Tidyverse cookbook that you wish to edit.
- Click the icon at the top of the page that looks like this .
- If prompted, click the green "Fork this repository and propose changes" button, which looks like this: This will open an editable copy of the chapter file.
- Make your changes to the file. If you are adding a recipe, try to match the R Markdown formatting that you see in the other recipes. Realize that your text may be edited later; this is not personal---in fact, it is a luxury.
Want to learn more about R administration at the enterprise level? I recommend these resources:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
shinyServer(function(input, output) { | |
data <- reactive({ | |
FUN <- switch(input$family, | |
"Normal" = rnorm, | |
"Uniform" = runif, | |
"Exponential" = rexp) | |
FUN(input$n) | |
}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
library(ggplot2) | |
authorized <- TRUE | |
shinyServer(function(input, output, session) { | |
if (authorized) { | |
data <- iris | |
p <- qplot(Sepal.Width, Sepal.Length, data = iris, color = Species) |