0

セクションのように、 Dean Attali ブログから参照されているローカル永続データを使用して光沢のあるアプリを作成しています: 1. ローカル ファイル システム (ローカル)。

私の質問は、このメソッドから値ボックス出力を作成することは可能ですか?

入力からのデータを集計します

formData <- reactive({
  formdata <- c("Associate Name" = input$aname,"Associate Email"=input$aemail,"Client Name" = input$cname,
            "Client Email"=input$cemail,"Ask By Customer"=input$ask,"Remarks"=input$rem ,
            "Date" = as.character(input$date), "Followup Date" = as.character(input$fdate))

  formdata <- t(formdata)
  formdata
})

データをcsvに保存します（これにより、送信するたびに別のファイルが作成されます）

saveData <- function(formdata) {
   fileName <- sprintf("%s_%s.csv",
                       humanTime(),
                       digest::digest(formdata))

   write.csv(x = formdata, file = file.path(responsesDir, fileName),
             row.names = FALSE, quote = TRUE)
}

データをロードします(応答を含むすべての csv をバインドします)

Data <- reactive( {
  # Read all the files into a list
  files <- list.files(responsesDir, full.names = TRUE)
  data <- lapply(files, read.csv, stringsAsFactors = FALSE)
  # Concatenate all data together into one data.frame
  data <- do.call(rbind, data)
  data <- data.frame(data)
  data
}

表にデータを表示する

output$responses <- DT::renderDataTable({
input$submit
Data()
})

アソシエイト名が記録された回数、クライアント名が記録された回数を表示する valueBoxOutput を作成できるかどうか知りたいです

例: someClient - 10、someAssociate - 5

これは私の最初の光沢のあるアプリです。これを手伝ってください。前もって感謝します！！

4

2 に答える 2