R闪亮csv或excel上传选项

我有一个要求用户选择以.csv/.txt或.xlsx格式上传文件。R闪亮csv或excel上传选项

我使用XLSX封装，提供了关于我的UI单选按钮，如

ui <- dashboardPage(
    dashboardHeader(title = "SKU Health Check App"), 
    dashboardSidebar(
    width = 350, 
    radioButtons(
     "fileType_Input", 
     label = h4("Choose File type"), 
     choices = list(".csv/txt" = 1, ".xlsx" = 2), 
     selected = 1, 
     inline = TRUE 
    ), 
    fileInput(
     'file1', 
     h4('Upload Items List'), 
     accept = c(
     'text/csv', 
     'text/comma-separated-values,text/plain', 
     '.csv', 
     '.xlsx' 
    ) 
    ),

和处理在服务器上的选项

server <- function(input, output, session) { 

    # Get the upload file 
    get_item_list <- reactive({ 
    inFile <- input$file1 

    if (is.null(inFile)) { 
     return(NULL) } 

    if (input$fileType_Input == 1) { 
     read.csv(inFile$datapath, 
       header = TRUE, 
       stringsAsFactors = FALSE) 
    } else { 
     read.xlsx(inFile$datapath, 
       header = TRUE,sheetIndex = 1, 
       stringsAsFactors = FALSE) 
    } 
    })

但我得到的错误为我的文件即使没有单选按钮和条件的早期工作的选项1也不会被读取。我无法调试，因为调试器一次运行代码块。

有人可以帮忙吗？

感谢，

马诺阿格拉瓦尔

来源

2016-10-18 Manoj Agrawal

... AARGH我只是失踪 “” 在if条件，所以应该是

if (input$fileType_Input == "1") { 
     read.csv(inFile$datapath,

来源

2016-10-18 19:23:25

R闪亮csv或excel上传选项

回答

相关问题