Question

堆叠之友溢出，也许我只是组合了太多的变量。或者也许不是，我不知道。但是获得健全性检查真是太好了！

在flexdashboard中制作

我有以下输入内容：

func renderer(_ renderer: SCNSceneRenderer, nodeFor anchor: ARAnchor) -> SCNNode? {
    guard let anchor = anchor as? ARImageAnchor else { return nil }
    if anchor.name == "calculator" {
        print("tracking calculator image")
        return SCNNode.makeMySpecialCalculatorNode()
    }
    return nil
}

然后我创建两个输出：数据表和图：（如here所示）

dateRangeInput(“date”, “Choose a date range:”, 
start = min(mydata$Date),
end = max (mydata$Date),
startview = “year”

selectInput(“cntry”, “Choose a Country:”,
choices = c(“”, mydata$Country), multiple = TRUE)

selectInput (“city”, “Choose a City:”,
choices =c(“”, mydata$City),multiple = TRUE)

selectInput (“animal”, “Choose an animal:”,
choices = c(“”, mydata$Animal) multiple = TRUE)

这非常适合过滤数据表中的数据。但是，我无法正确绘制剧情：

第一个问题：情节会渲染，但是会给我整个日期范围，不是所选范围：

例如：，dateRangeInput =开始：2017-01-01，结束：2017-12-31，但是渲染图将显示过滤数据的所有日期（2015-2018）。

由于 other 输入更改后会更新绘图的事实，对此感到更加好奇。

例如，如果我更改input $ cntry =墨西哥和/或input $ animal =驴子，[input $ cntry =加拿大，input $ animal =熊]将绘制该所选数据的图并进行更新。

但是，年份输入将不会。有任何想法吗？渲染输出为：

renderDataTable({

    cntry_sel <- if (nchar(input$cntry)==0) unique(as.vector(mydata$Country)) else input$cntry

city_sel <- if (nchar(input$city)==0) unique(as.vector(mydata$City)) else input$city

animal_sel <- if (nchar(input$animal)==0) unique(as.vector(mydata$Animal)) else input$animal

filter(mydata, Country %in cntry_sel, City %in% city_sel, Animal %in% animal_sel)
})

RShiny：组合多个无功输入

0 个答案: