作为Shiny平台构建与R包开发教程的第二小节,本节向读者介绍如何利用Shiny server处理用户输入的各种信息。这些信息既包括用户向Shiny上传的数据集,也包括用户对Shiny页面的各种控件(Widget)发出的行为信号(e.g. 用户选中下拉列表框中的一个值,该值传送到server中进行后续数据处理)。本节涉及的两个内容为数据文件上传和Shiny Widget设计。
数据上传
我们希望设计一个控件,单击“Browser…”按钮,弹出选择文件对话框,让用户选择需要上传的数据文件,上传的数据用于后续分析。实现代码如下:
library(data.table)
ui.data <- fluidPage(
fileInput("data_input1", "Experiment:", accept = ".csv"),
tableOutput('data_tbout1')
)
server <- function(input, output){