从今天开始我们开启R语言的交互图形设计征程,今天主要是初识shiny这个交互的R包。
首先我们看下其官网(http://shiny.rstudio.com/):
在R语言中shiny的安装就不多讲了其已在CRAN上发布。
我们今天主要介绍一下其最主要的两个函数:
1. fluidPage 创建页面,并添加对应的属性。
2. shinyApp 接受fluidPage的相关参数,并传递给服务器前端,并展示布局。其有一个很重的server用来实现图像与调节器的实时交互。
接下来我们从hello world 程序开始。
ui= fluidPage(‘hello world”)
server=function(input,output){}
shinyApp(ui=ui,server=server)
与此同时在R语言窗口会出现当前的监视端口:
当我们要再运行新的程序时需要再从新开启进程或者关闭当前的端口。接下来,我们看下server是如何和ui联合发挥作用的。示例代码如下:
ui <- fluidPage(
sliderInput("obs","Number of observations:",
min = 0, max = 1000, value= 500
),
plotOutput("distPlot")### distPlot就是绘图区域的ID。
)
# Server logic
server <- function(input, output) {
output$distPlot <-renderPlot({########output$distPlot指定绘制图形区域。
hist(rnorm(input$obs))###input$obs就是获取sliderInput中的值。
})
}
shinyApp(ui=ui,server=server)
以上就是shiny的入门基础,今天到此,后面会陆续加大难度。