シャイニー -

Question

私はCSVは、このような

"var_A", "var_B", "var_C" 

として変数名のリスト内でファイルをロードし、GUIでのリストを作成したいファイルからロードされた変数名に基づいて、数値入力のリストを作成します各変数名の数値入力。私はuiOutput関数を渡す必要があると思うが、それをする考えはない。ここで私はあなたの例では）header=input$header,sep=input$sep, quote=input$quoteのための入力を（作業haventはない）

ui <- bootstrapPage(
    fileInput('file1', 'Choose CSV File', accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')) 

    # list of numeric inputs 
    #uiOutput("list_numeric_inputs") 
    ) 

server <- function(input,output) { 

    data_set <- reactive({ 
    inFile <- input$file1 

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

    data_set<-read.csv(inFile$datapath, header=F) 
    }) 

    # # list of numeric inputs 
    # output$list_numeric_inputs <- renderUI({ 
    # # If missing input, return to avoid error later in function 
    # if(is.null(input$data_set())) 
    #  return() 
    # 
    # # Get the data set value for variable name 
    # for (i in 1:nrow(data_set)) { 
    #  numericInput("...", paste0(data_set[i]), value = 0.) 
    # } 
    # }) 

} 

shinyApp(ui, server) 

Answer 1

1をやろうとしているかのちょっと草案は

2）あなたはinput$datasetのみdata_set <- reactive

3）だから、作業をhaventはです1：

library(shiny) 
ui <- bootstrapPage(
    fileInput('file1', 'Choose CSV File', accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')), 

    # list of numeric inputs 
    uiOutput("list_numeric_inputs") 
) 

server <- function(input,output) { 

    data_set <- reactive({ 
    inFile <- input$file1 

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

    data_set<-read.csv(inFile$datapath,header = F) 
    }) 

    # list of numeric inputs 
    output$list_numeric_inputs <- renderUI({ 
    # If missing input, return to avoid error later in function 
    if(is.null(data_set())) 
     return() 

    # Get the data set value for variable name 
    lapply(data_set(),function(i){ 
     numericInput(paste0(i,"_ID"), i, value = 0.) 
    } 
    ) 
    }) 

} 

shinyApp(ui, server)