selectInput（）没有将任何内容传递给selected_data（）（R闪亮）

Question

我正在研发R闪亮的应用程序。请注意，我正在尝试从我的mysql服务器加载数据。所以我使用了RMySQL包的帮助。

在我的ui.R文件中，我有这个：

function setMapHeight() {
    var myAvailableHeight = availableHeight();
    $("#map").outerHeight(myAvailableHeight);
}

我有csv文件加载到'pitcher_names'并且它给出了名字列表。在下拉菜单中，我有可供选择的名单。

在我的server.R文件中，我有这个：

selectInput("pitchername","Pitcher Name:", choices = unique(pitcher_names$pitcher_name), selected = "Chan Ho Park"),

}）

在这半天的工作之后，我意识到唯一的问题是从selectInput（）中选择的投手名称没有被传递到server.R中的dbSendQuery函数。我能做些什么才能做到这一点？

Answer 1

我认为你有一个拼写错误：

filter(pitcher_name %in% input$pitcher_name)

不应该是：

filter(pitcher_name %in% input$pitchername)

实际上，我没有看到过滤结果查询的重点，因为您已将条件放入查询中。