快速制作一个闪亮的R宾果应用程序

2020年5月17日
通过

这篇文章最初发表于Mark H. White II博士,并热心捐助188bet app]。(您可以报告关于本页内容的问题金宝搏网址这里)
要共享R-博客内容?188bet app188bet app 如果你有一个博客,或这里如果你不这样做。

在城市的锁定,游戏之夜是在变焦发生了很多。有人问我,如果我能比赛时间之前编写了宾果游戏,约一个小时半。金宝搏网址我敢肯定,有可能是某种类型的编程已经闪亮的宾果游戏,但我想看看我能在危机做些什么从头开始。下面是我得到了什么。

使用维基百科的规则在美国,我制作了两个应用程序:一个是为宾果大师(分享屏幕的人)设计的,另一个是为每个玩宾果的人设计的。所有代码都在下面和下面我的GitHub

宾果主应用程序是用于绘制新的字母数字组合,保持什么被称为一个记录,然后开始在必要的时候一个新的游戏。

宾果播放器应用程序是复选框,有人可以检查每当该字母数字组合被称为网格。At a previous job, I remember getting creative with using tagList and lapply statements, which would be handy for generating a grid of checkboxes in less code, but I can’t remember how to do that at the moment, so you’ll see some copy-pasted stanza code in the player script. I know this would offend my statistical programming professor from grad school, but ¯\_(ツ)_/¯

宾果法师

ui库(亮)库(dplyr) < - fluidPage (sidebarLayout (sidebarPanel (actionButton(“画”、“画”),br (), br (), actionButton (“new_game”、“新游戏”),),mainPanel (uiOutput("显示"))))服务器< -功能(输入、输出){v < reactiveValues(当前=零,以前= NULL, counter = 0,主=列表(b = paste0 (“b -”,示例(1:15)),i = paste0(“我——”,示例(下午),n = paste0 (n -》样本(31:45)),g = paste0 (“g -”,示例(46:60)),o = paste0(“啊——”,示例(61:75)))% > % unlist() % > %’['(样本(1:75)))observeEvent(输入new_game美元,{v $ current < -零美元之前< -零v $ counter < 0}) observeEvent(输入美元画,{如果(v $计数器> 74)其他{零}{v $ counter < - $ counter + 1 v $ current < - v主[v $计数器]美元之前< - c (v当前美元,此前美元)}})输出美元显示< - renderUI({标记(p (v $ current,风格=“字体大小:50 px”), br ()、p(粘贴(v之前,美元崩溃= ",")))})}shinyApp (ui = ui, server =服务器)

宾果播放器

库(亮)make_card < -函数(){<——data.frame (B =样本(1:15,5),I =样本(下午,5),N =样本(31:45 5),G =样本(46:60 5),O =样本(61:75 5))$ N [3] < - NA返回ui ()} < - fluidPage (sidebarLayout (sidebarPanel (actionButton(“卡”、“创建一个新卡”)),mainPanel(列(2,uiOutput (B)),列(2,uiOutput(“我”),列(2,uiOutput (“N”)),列(2,uiOutput (“G”)),列(2,uiOutput (" O ")))))服务器< -功能(输入、输出){v < reactiveValues (B =零,i = NULL, n = NULL, g = NULL, o = NULL) observeEvent(输入美元卡、{卡< - make_card () v b < -卡b美元我< -卡我美元v $ n < -卡$ n v $ g < -卡g v o < -美元卡o})输出b < -美元renderUI({标记(p (“b”,风格=“字体大小:25 px”), checkboxInput (b1, v $ b [1]), checkboxInput (b2, v $ b [2]), checkboxInput (b3, v $ b [3]), checkboxInput (b4, v $ b [4]), checkboxInput (b5, v $ b[5]))})输出$ i < - renderUI({标记(p(“我”,风格=“字体大小:25 px”), checkboxInput (i1, v $我[1]),checkboxInput (i2, v $我[2]),checkboxInput (“i3 v $我[3]),checkboxInput(“预告”,v $我[4]),checkboxInput (“i5 v $我[5]))})输出$ n < - renderUI({标记(p (“n”,风格=“字体大小:25 px”), checkboxInput (n1, v $ n [1]), checkboxInput (n2, v $ n [2]), checkboxInput (“n3”、“自由”,真的),checkboxInput(“陶瓷”,v $ n [4]), checkboxInput(“它们”,v $ n[5]))})输出$ g < - renderUI({标记(p (“g”,风格=“字体大小:25 px”), checkboxInput (g1, v $ g [1]), checkboxInput (g2, v $ g [2]), checkboxInput (g3, v $ g [3]), checkboxInput(“四国集团”,v $ g [4]),checkboxInput("o ", v$o[1]), checkboxInput("o2", v$o[2]), checkboxInput("o3", v$o[3]), checkboxInput("o4", v$o[4]), checkboxInput("o4", v$o[4]), checkboxInput("o4", v$o[4]), checkboxInput("o5", v$o[5]), checkboxInput("o5", v$o[5]))})

发表评论对于作者,请跟随链接并在他们的博客上发表评论:Mark H. White II博士

188bet appR-bloggers.com报价每天更新的电子邮件金宝搏网址 R新闻和教程金宝搏网址金宝搏网址 还有很多其他的话题。如果你想发布或者找到一份R/数据科学的工作,请点击这里
要共享R-博客内容?188bet app188bet app 如果你有一个博客,或这里如果你不这样做。



如果你走到这一步,为什么不呢订阅更新从网站?选择你的味道:电子邮件,推特,1188bet app,或脸谱网

评论都关门了。

搜索R-博客188bet app

赞助商

永远不要错过更新!
订阅R-博客188bet app接受
带有最新帖子的电子邮件。
(您将不会再看到这条消息。)

点击此处关闭(此弹出窗口将不会再次出现)