Question

我有一个Shiny应用程序，该应用程序除其他功能外，还允许用户单击传单地图，捕获作为船舶坐标的纬度，输入航向和速度并将此信息传递给雷达模拟器。一个插座。考虑到船舶的航向和速度，我需要每秒将更新的坐标传递给雷达模拟器。大概，invalidateLater()是我阅读this之后需要的。但是不知何故，我无法绕开invalidateLater()的运作。到目前为止，这是我没有尝试过的事情：

#Reactive values to hold the lat lon of the map_click event
rvs <- reactiveValues()
observe({
  req(rvs$own_ship_lat)
  invalidateLater(1000) 

  #Data to be passed to the simulator
  df <- data.frame(Type='Platform',ID='Own_Ship',Lat = rvs$own_ship_lat,
                   Lon = rvs$own_ship_lon,
                   Alt=10.5, LandReflect = 10,
                   Course=input$own_course,
                   Speed=input$own_speed)

  #Convert the data to json format
  jdata <- jsonlite::toJSON(df)

  #Function to make a socket connection and pass on the json data to the simulator
  sendDRS(jdata)

  #Calculate next point to be passed on to the simulator
  next_pt <- geosphere::destPoint(c(rvs$own_ship_lon, rvs$own_ship_lat), 
                       input$own_course, input$own_speed)


    isolate(rvs$own_ship_lat <- next_pt[2])
    isolate(rvs$own_ship_lon <- next_pt[1])
    # print(next_pt)

})

rvs$own_ship_lat和rvs$own_ship_lon保留在传单地图上的鼠标单击的纬度值。如果我取消对print(next_pt)的注释，它将无限打印第一个正确计算的next_pt值。

Answer 1

对此进行一些修改，以便您可以使用最小的reprex：

ui <- fluidPage(
  sliderInput('own_course', 'Set Course', min = 0, max = 359, value = 60),
  sliderInput('own_speed', 'Set Speed', min = 0, max = 40, value = 12),
  leafletOutput('own_ship', height = 600, width = '100%')
)

server <- function(input, output, session) {

  #Own ship map
  output$own_ship <- renderLeaflet({
    leaflet() %>% addTiles() %>% 
      setView(72.8777,19.076,12) %>%
      addProviderTiles(providers$OpenSeaMap) %>%
      leafem::addMouseCoordinates()
  })

  rvs <- reactiveValues()
  observeEvent(input$own_ship_click, {
    rvs$own_ship_lat <- input$own_ship_click$lat
    rvs$own_ship_lon <- input$own_ship_click$lng
  })

  observe({
    req(rvs$own_ship_lat)
    invalidateLater(1000) 

    #Calculate next point to be passed on to the simulator
    next_pt <- geosphere::destPoint(c(rvs$own_ship_lon, rvs$own_ship_lat), 
                                    input$own_course, input$own_speed)

    print(next_pt)
    isolate(rvs$own_ship_lat <- next_pt[2])
    isolate(rvs$own_ship_lon <- next_pt[1])


  })
}

shinyApp(ui, server)

如果运行此命令，则会发现print语句会打印正确计算的值，但不会间隔一秒钟。就像我在问题中提到的那样，我需要将这些值传递给模拟器，但要间隔一秒钟。我该如何实现？

Answer 2

我仍然不确定如何操作，但最终还是通过从req()中删除了observe来使它起作用：

observe({
    invalidateLater(1000)
    tryCatch({
    isolate(next_pt <- geosphere::destPoint(c(rvs$own_ship_lon, rvs$own_ship_lat),
                                    input$own_course, input$own_speed))
    print(next_pt)
    isolate(rvs$own_ship_lat <- next_pt[2])
    isolate(rvs$own_ship_lon <- next_pt[1])
    },error = function(e){cat("ERROR :",conditionMessage(e), "\n")})

  })

添加了tryCatch()，以便在rvs$own_ship_lat或rvs$own_ship_lon不可用时应用程序不会停止。

invalidateLater用于递增值

2 个答案: