R shiny csvまたはexcelアップロードオプション

Question

ユーザーに.csv/.txtまたは.xlsx形式でファイルをアップロードするオプションを与える必要があります。私はXLSXパッケージを使用していますし、そのよう

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' 
    ) 
    ), 

としての私のUI上のラジオボタンを提供してきたし、サーバーのオプションを処理するために

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であっても読み上げられません。デバッガがコードブロックを一度に実行するため、デバッグできません。

誰か助けてもらえますか？

おかげで、もし条件にそれがあるべきよう...私はちょうど "" 行方不明になった

Manojさんアグラワル

Answer 1

Aargh

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