如何仅在单击提交按钮时才更新闪亮的应用程序？ [英] How to update a Shiny application only when the submit button is clicked?

问题描述

我想创建一个仅在单击提交按钮时更新的shiny-app。我在网上找了很久才找到我的问题的答案，发现了这个非常有用的网页：(https://shiny.rstudio.com/articles/action-buttons.html)。我理解代码并且能够重现它，但是当我对我自己的代码使用相同的逻辑时，更新按钮毫无用处，什么也做不了。

以下是我的代码：

library(shiny)
library(leaflet)


ui <- fluidPage(

  checkboxGroupInput(
    inputId = "selected_dates",
    label = "Choose the year",
    choices = c("20","19","18","17","16","15"),
    selected = c("20","19","18","17","16","15")
  ),

  actionButton("go", "Update"),
  leafletOutput("map")

)

server <- function(input, output) {

  dates <- eventReactive(input$go, {
    input$years
  })

  output$map <- renderLeaflet({


    m <- addTiles(setView(leaflet(), lng = -73.731368, lat = 45.531368, zoom = 10))
    addCircles(m, data = vol_voiture[vol_voiture$Year %in% input$years,], lat = ~ LATITUDE, lng = ~ LONGITUDE, popup = ~ DATE, opacity = 0.5, weight = 0.1)

  })
}

shinyApp(ui, server)

只是澄清一下，vol_voiture是我的dataframe。我知道这可能只是一个简单的错误或我的部分的误解，但我已经为此工作了很多小时，似乎找不到解决方案。非常感谢您的帮助！

推荐答案

您没有在任何地方使用eventReactive函数。我会尝试将renderLeaflet调用中的input$years替换为dates()

library(shiny)
library(leaflet)


ui <- fluidPage(

  checkboxGroupInput(
    inputId = "selected_dates",
    label = "Choose the year",
    choices = c("20","19","18","17","16","15"),
    selected = c("20","19","18","17","16","15")
  ),

  actionButton("go", "Update"),
  leafletOutput("map")

)

server <- function(input, output) {

  dates <- eventReactive(input$go, {
    input$years
  })

  output$map <- renderLeaflet({

    m <- addTiles(setView(leaflet(), lng = -73.731368, lat = 45.531368, zoom = 10))
    addCircles(m, data = vol_voiture[vol_voiture$Year %in% dates(),], lat = ~ LATITUDE, lng = ~ LONGITUDE, popup = ~ DATE, opacity = 0.5, weight = 0.1)

  })
}

shinyApp(ui, server)

希望这能有所帮助！！

这篇关于如何仅在单击提交按钮时才更新闪亮的应用程序？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！