Shiny用法整理(一)

栏目: R语言 · 发布时间: 6年前

内容简介:以下是最近整理的Shiny小程序的一些笔记曾经在写Shiny小程序的时候,需要包括2个文件:如果是在写代码的时候测试的话,出了用

以下是最近整理的Shiny小程序的一些笔记

App formats and launching apps

曾经在写Shiny小程序的时候,需要包括2个文件: ui.Rserver.R ,里面分别包含了两个函数: shinyUI()shinyServer() ;但是现在的Shiny程序并不需要这样形式了,只需要一个 app.R ,格式跟我们平时在RStduio中写的shiny程序一样,由三部分组成,如下:

## app.R ##

ui <- fluidPage(
    ......
)

server <- function(input, output) {
    ......
}

shinyApp(ui = ui, server = server)

如果是在写代码的时候测试的话,出了用 shinyApp 外,还可以用

app <- shinyApp(ui, server)
runApp(app)

或者如果myapp文件夹下有shiny的小程序话,可以这样调用

runApp("myapp")

Custom Function

在写shiny的server部分时,不可避免会遇到一些自定义函数,这时可以选择如下:

func <- function(x){x + 1}
server <- function(input, output){
  res <- reactive({
    func(as.numeric(input$n))
  })
  output$text <- renderText({res()})
}

除了上述方式外,可以用将自定义函数直接写在 reactive({}) 中,然后再计算输出,如:

server <- function(input, output){
  res <- reactive({
    as.numeric(input$n) + 1
  })
  output$text <- renderText({res()})
}

Stop reactions with isolate()

最基本的shiny程序是立即将observer传递给reactive expression,但是有时我们希望其是可控的,比如跟 actionButton 搭配,当点击actionButton才让reactive执行,这时可以考虑用 isolate()

使用 isolate() 来隔离reactive expression使其在没有点击actionButton前无法接受observer值,如例子如下:

server <- function(input, output) {
  output$distPlot <- renderPlot({

    # Take a dependency on input$goButton
    input$goButton

    # Use isolate() to avoid dependency on input$obs
    dist <- isolate(rnorm(input$obs))
    hist(dist)
  })
}

如果你不想在页面一开始就输出表格/图片等信息,可以用 input$goButton == 0 的if语句来控制(这种方法很好用的),并且 isolate({}) 还可以用于控制reactive expressions,如下的 fib() 函数

output$nthValue <- renderText({
  if (input$goButton == 0)
    return()

  isolate({ fib(as.numeric(input$n)) })
})

Progress indicators

如果shiny程序将要执行一个优点耗时的计算过程时,可以考虑增加一个progress bar来告诉使用者shiny正在计算ing,蛮实用的一个工具

我之前是这样写的,如下:

server <- function(input, output){
  data <- reactive({
    data.frame(x=rnorm(10), y=rnorm(10))
  })

  output$table <- renderTable({
    input$goTable

    withProgress(message = "Try it:", value = 0, {
      n <- nrow(data())
      for (i in 1:n) {
        incProgress(1/n, detail = "Please wait...")
        Sys.sleep(0.25)
      }
    })
    data()
  })
}

这次看了其教程后发现还有一些功能更为好使的写法(更加简洁和便于理解):

server <- function(input, output){
  data <- reactive({
    data.frame(x=rnorm(10), y=rnorm(10))
  })

  output$table <- renderTable({
    input$goTable

    # Create a Progress object
    progress <- shiny::Progress$new()
    # Make sure it closes when we exit this reactive, even if there's an error
    on.exit(progress$close())

    progress$set(message = "Try it:", value = 0)
    n <- nrow(data())
    for (i in 1:n) {
      progress$inc(1/n, detail = "Please wait...")
      Sys.sleep(0.2)
    }

    data()
  })
}

Render images in a Shiny app

如果想展示一些经过R作图后产生的图片,那么在shiny中是要用 renderPlot() 即可,这也是很常见的用法;但是如果想直接将一张图片传到shiny网页上,则需要考虑用其他方法了

我之前用 renderPlot() 后发现有问题,这次才知道要用 renderImage 才行,如:

output$image <- renderImage({
  if (is.null(input$picture))
    return(NULL)

  if (input$picture == "face") {
    return(list(
      src = "images/face.png",
      contentType = "image/png",
      alt = "Face"
    ))
  }

}, deleteFile = FALSE)

未完待续。。还有一些继续整理下

本文出自于 http://www.bioinfo-scrounger.com 转载请注明出处


以上所述就是小编给大家介绍的《Shiny用法整理(一)》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

C++ 程序设计语言(特别版)(英文影印版)

C++ 程序设计语言(特别版)(英文影印版)

[美] Bjarne Stroustrup / 高等教育出版社 / 2001-8-1 / 55.00

《C++程序设计语言》(特别版)(影印版)作者是C++的发明人,对C++语言有着全面、深入的理解,因此他强调应将语言作为设计与编程的工具,而不仅仅是语言本身,强调只有对语言功能有了深入了解之后才能真正掌握它。《C++程序设计语言》编写的目的就是帮助读者了解C++是如何支持编程技术的,使读者能从中获得新的理解,从而成为一名优秀的编程人员和设计人员。一起来看看 《C++ 程序设计语言(特别版)(英文影印版)》 这本书的介绍吧!

JSON 在线解析
JSON 在线解析

在线 JSON 格式化工具

MD5 加密
MD5 加密

MD5 加密工具

RGB CMYK 转换工具
RGB CMYK 转换工具

RGB CMYK 互转工具