Как исправить ошибку «unique () относится только к векторам» в следующем коде в R-markdown? - PullRequest
Новая
       15

Как исправить ошибку «unique () относится только к векторам» в следующем коде в R-markdown?

0 голосов
/ 04 июля 2019

Я пытаюсь создать реактивную страницу, где пользователь загружает CSV-файл в виде набора данных и на основе выбранной пользователем пропорции загруженный набор данных делится на наборы данных обучения и проверки. После разделения есть возможность загрузить наборы данных.

Я новая скидка с R Я пробовал несколько способов разделения набора данных, но ни один из них не работает. 

library(shiny)

  inputPanel(
    fileInput("file","Upload the *.csv file with headers")
  )


mainPanel(
  verbatimTextOutput("AD")
)


AD <- renderPrint({
  file1=input$file
  if(is.null(file1)){return()}

  data = read.table(file = file1$datapath,sep = ",", header = TRUE)
  if(is.null(data())){return()}
  print(head(data))
})

sidebarPanel(
 inputPanel(
   sliderInput("slidebar", label = "Enter the proportion of training dataset:",
              min = 0, max = 1, value = 1),
   numericInput("seed","Enter seed number",value = 1)
)
)

data$spl=sample.split(data,SplitRatio=input$slidebar)
tdata=subset(data,data$spl==TRUE)
vdata=subset(data,data$spl==FALSE)

sidebarPanel(
  inputPanel(
    downloadButton("download dataset","Download Dataset"),
    downloadButton("download training dataset", "Download Training Dataset"),
    downloadButton("download validation dataset", "Download Validation Dataset")
  )
)

mainPanel(
  verbatimTextOutput("BC")
)
 BC<-renderPrint({
   cat(sprintf("\nThe size of the complete dataset is %f",))
 })

В настоящее время я получаю сообщение об ошибке «unique () относится только к векторам».

...