UseMethod出错（＆＃34; doResolveFormula＆＃34;）

Question

我使用以下代码为分类变量RSPM的每个级别放置三种不同类型的标记。

mysql_query

以下是错误消息：

leaflet(df) %>% addTiles() %>%
addCircleMarkers(~Long, ~Lat, popup = ~as.character(RSPM),
radius = ~if(RSPM=="Critical"){
  10
}else if (RSPM=="High"){
  6
} else if (RSPM=="Moderate")
  2,
color = ~pal(type),
stroke = FALSE, fillOpacity =  0.5
)

不知道此错误消息所指的是什么，以及如何解决它。这是使用Error in UseMethod("doResolveFormula") : no applicable method for 'doResolveFormula' applied to an object of class "function" 。