github/sql-server-samples
1
0
Fork 0
mirror of https://github.com/Microsoft/sql-server-samples.git synced 2025-12-08 14:58:54 +00:00
Code Issues Releases Wiki Activity

updated the code to handle error

Browse Source
This commit is contained in:
Bharath Sankaranarayan
2019-02-28 11:07:18 -08:00
committed by GitHub
parent 6fd2d7953b
commit 3395997b70
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/features/sql-big-data-cluster/app-deploy/RollDice/roll-dice.R
+11 -6
View File
@@ -9,15 +9,20 @@
#install.packages("TeachingDemos")
rollEm <- function(numDice = 2)
{
list.of.packages <- c("TeachingDemos")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
if (numDice < 11)
{
list.of.packages <- c("TeachingDemos")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(TeachingDemos)
r<-dice(ndice = numDice)
return(as.data.frame(r))
r<-dice(ndice = numDice)
return(as.data.frame(r))
}
else {"Oops we have not quite figued this out... number of dice need to be less than or equal to 10!"}
}
result<-rollEm(x)