R shiny csv 또는 엑셀 업로드 옵션

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

로하고

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) 
    } 
    }) 

으로 서버의 옵션을 처리하는하지만 내 UI에 라디오 버튼을 제공하고 있습니다 라디오 버튼이나 조건없이 일찍 작동했던 옵션 1에서도 읽히지 않습니다. 디버거가 한 번에 코드 블록을 실행하므로 디버깅 할 수 없습니다.

누군가 도와 줄 수 있습니까?

감사의 경우 상태가되어야합니다 ... 그래서 난 그냥 ""잃어버린

마노 아그라 왈

Answer 1

아악

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