编写你自己的R应用！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

首先给大家拜年，祝大家马年阖家欢乐，健康平安！同时也感谢大家对于我们的云计算系统的支持！（您可以访问我们的网站来使用云数据挖掘系统：www.foam-buffalo.com，也查看下面的帖子来了解我们系统的详细情况：免费云数据挖掘系统指南！
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=2855736&from^^uid=79252）

我们的系统从计算引擎到操作界面都是由R编写的，然后放置在Amazon EC2弹性云计算系统上面。 不少朋友写信或者回帖咨询如何编写自己的R应用，为了感谢大家的支持，我们决定逐步开源，供大家学习参考。

我们的APP 是 利用R的SHINY 包写的，这个包是由著名的Rstudio开发的。Rstudio开发的IDE(也就是给赋予R操作界面)目前是主流的R操作界面，在这里也强烈推荐一下。

首先，大家请先下载R和Rstudio， 然后再下载SHINY包和各种关联包。然后调入shiny包:

library(shiny)

然后设置您的工作文件夹，例如：setwd("/c:/mydocument/firstapp") , 在这个例子里面，您的app的名字就是firstapp拉！
然后建立两个文件，第一个称为ui.R (即操作界面)，第二个称为server.R (即计算引擎)，并把它们置入文件夹firstapp里面。

首先是server.R的内容：
shinyServer(function(input, output) {  output$main_plot <- renderPlot({    hist(faithful$eruptions,      probability = TRUE,      breaks = as.numeric(input$n_breaks),      xlab = "Duration (minutes)",      main = "Geyser eruption duration")    if (input$individual_obs) {      rug(faithful$eruptions)    }    if (input$density) {      dens <- density(faithful$eruptions,          adjust = input$bw_adjust)      lines(dens, col = "blue")    }  })})
下面是 ui.R的内容：
shinyUI(bootstrapPage(  selectInput(inputId = "n_breaks",      label = "Number of bins in histogram (approximate):",      choices = c(10, 20, 35, 50),      selected = 20),  checkboxInput(inputId = "individual_obs",      label = strong("Show individual observations"),      value = FALSE),  checkboxInput(inputId = "density",      label = strong("Show density estimate"),      value = FALSE),  plotOutput(outputId = "main_plot", height = "300px"),  # Display this only if the density is shown  conditionalPanel(condition = "input.density == true",    sliderInput(inputId = "bw_adjust",        label = "Bandwidth adjustment:",        min = 0.2, max = 2, value = 1, step = 0.2)  )))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏2 回帖

关键词：function Document RStudio Library Buffalo 云计算 平安 朋友 健康 如何

棒啊

保存后，最后在Rstudio直接执行下列的语句：

runApp()

您就可以看见你自己的第一个R应用了：



大家可以自己先试一下安装Rstudio和运行一下这个APP,并尝试理解编码，如果有什么问题请提出来，我们将尽力解答！也希望大家在新的一年继续支持我们的云数据挖掘系统！OH YEA!

有兴趣的朋友也可以参阅英文原版的指南：http://www.rstudio.com/shiny/

zhangqiping428 发表于 2014-1-30 17:57
棒啊

大家会才是真的会

支持支持！热烈支持！

floydgyf 发表于 2014-1-31 23:51
支持支持！热烈支持！

希望大家能够动手试一下哈，learning by doing

支持支持

我想请教一下，现在shinyapps.io开始收费了，用shiny还能免费发布网络应用吗？使用shiny server可以吗？