0
私は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)
1)あなたは間違いですが、私は同様の問題のコピーと貼り付けから始めました 2)right 3)素晴らしい!私は今それを勉強して、私のコードに適用しようとしている 4)ありがとう! – Stefano