R을 사용하여 업로드 된 데이터 파일의 행 수 표시 Shiny

Question

업로드 된 데이터 파일의 행 수를 표시하려고합니다. 그래도 나는 '데이터 1'이라는 출력을 얻고 있습니다. 누군가가 데이터 파일의 행 수를 얻는 데 도움을 줄 수 있습니까?

ui.R

library(shiny) 

ui = fluidPage(
sidebarPanel(
fileInput('file1', 'Choose file to upload',accept = c('text/csv','text/comma-separated-values','text/tab-separated-values','text/plain','.csv','.tsv')), 
checkboxInput('header', 'Header', TRUE), 
radioButtons('sep', 'Separator',c(Comma=',',Semicolon=';',Tab='\t'),'Comma'), 
radioButtons('quote', 'Quote',c(None='','Double Quote'='"','Single Quote'="'"),'Double Quote'), 
actionButton("Load", "Load the File"),width = 3), 

mainPanel(verbatimTextOutput("my_output_data")) 
) 

server.R

server = function(input, output) { 

data1 <- reactive({ 
if(input$Load == 0){return()} 
inFile <- input$file1 
if (is.null(inFile)){return(NULL)} 

isolate({ 
    input$Load 
    my_data <- read.csv(inFile$datapath, header = input$header,sep = input$sep, quote = input$quote,stringsAsFactors =FALSE) 
    my_data_size <- nrow(my_data) 
}) 
my_data_size 
}) 

output$my_output_data <- renderPrint({data1}) 

} 

Answer 1

그래서 DATA1 실제로 반응성 기능입니다. 이 기능을 실행하고 출력을 얻고 괄호로

output$my_output_data <- renderPrint({data1()}) 

:에 따라서 renderPrint에서 ({})로 변경합니다. 괄호가 없으면 함수 객체 자체의 장을 얻는 것이지 출력하지는 않습니다.

희망이 도움이됩니다. 필자는 샘플 데이터 세트로이를 테스트했으며 작동합니다.