Rshiny：使用列表中的输入选择运行函数后显示数据帧列表

Question

我写了一个分析xml文件的函数。文件数量范围从1到ca. 80.该函数使用给定文件的名称。使用

创建给定文件夹中的文件列表（（class（list）= typeof（list）= character））

public class MetricSuppliersLoader implements ApplicationContextAware {

@Override
public void setApplicationContext(ApplicationContext applicationContext) throws BeansException {
    Map<String, Object> beans = applicationContext.getBeansWithAnnotation(SomeAnnotationClass.class);
    beans.entrySet().forEach(e -> System.out.println("Bean name: "+e.getKey()));

}
}

给出了

    files <- list.files(pattern = "\\.xml$")

该功能看起来像

"file1.xml"  "file2.xml"  "fileN.xml"

可以用

调用

myfunction < function (x){
 ....
 result_list <- list(result1, result2, result3)
 return(result_list)
}

或

myresults <- myfunction(files[[1]])

我需要一个简单的闪亮app，它有一个SelectInput框，A）显示文件夹中的文件列表，B）用户从中选择其中一个文件（例如＆＃34; file1.xml＆＃34 ）。需要将选定的文件名传递给运行该函数的输出，并显示三个结果数据帧，如

myresults <-  myfunction("file2.xml")

我到目前为止管理：

selectInput          result 1
 file1.xml             [dataframe result 1]
 file2.xml
 fileN.xml           result 2
                        [dataframe result 2]

                     result 3
                        [dataframe result 2]

}） }）

我无法管理的是交互性：A）用于显示文件列表的selectInput框，B）使用selectInput框中的选定文件在输出中运行该函数。

非常感谢任何帮助!!