Question

使用闪亮的R和传单进行R /闪亮

在我的ui.R我有一个看起来像这样的元素

radioButtons("startEnd",
    label = "Choose",
    choices = list("start" = 1,
    "end" = 2),
    selected = NA,
    inline = TRUE
)

然后，在我的server.R方面，我想在地图上存储点击的坐标，具体取决于radioButton处于哪个位置。

# create reactive matrix that stores lat/lng from startpoint
startPoint <- reactiveValues()

# create reactive matrix that stores lat/lng from endpoint
endPoint <- reactiveValues()

observeEvent(input$myMap_click, {
    coords <- input$myMap_click
    if (input$startEnd == 1) {
        startPoint[["lat"]] <- coords$lat
        startPoint[["lng"]] <- coords$lng
    } else if (input$startEnd == 2) {
        endPoint[["lat"]] <- coords$lat
        endPoint[["lng"]] <- coords$lng
    } else {
        print("No Start- nor Endpoint selected")
    }
})

然而，当我启动我的应用程序并单击somwhere而未选择任何radioButton时，应用程序崩溃并显示以下错误消息：

警告：观察者中未处理的错误：参数的长度为0 observeEvent（输入$ myMap_click）

当我选择radioButton然后点击地图时，应用程序不会崩溃，但是反应值不会更新... 我的输出看起来像这样

 observe({
      print("start")
      print(startPoint)
 })

[1]“开始”   $ IMPL        上市：       .allValuesDeps：环境       。家属：环境       .label：reactiveValues8099       .namesDeps：环境       .setLabel：功能       .values：环境       .valuesDeps：环境       克隆：功能       得到：功能       初始化：功能       mset：功能       名称：功能       自我：环境       设置：功能       toList：function

ATTR（ “类”）   [1]“反应值”   ATTR（ “只读”）   [1]错误

怎么回事？我不明白......

观察者崩溃/不更新Shiny / R.

0 个答案: