需要创建值框输出的指南

Question

我正在使用从Dean Attali blog引用的本地持久性数据创建闪亮的应用程序，如节：1.本地文件系统（本地）。

我的查询是，可以通过此方法创建值框输出吗？

汇总来自输入的数据

formData <- reactive({
  data <- 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))

  data <- t(data)
  data
})

将数据保存到csv（每次提交时都会创建一个单独的文件）

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

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

加载数据（绑定包含响应的所有csv）

loadData <- function() {
  # 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
}

在表格中显示数据

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

我想知道是否可以创建valueBoxOutput来显示记录关联名称的次数，记录客户端名称的次数

例如：someClient-10，someAssociate-5

这是我的第一个闪亮的应用程序，请帮助我。预先感谢！

Answer 1

是的，您可以这样做。首先，您需要使使用loadData读取的数据具有反应性，而不是功能。然后在output$responses中而不是loadData中引用此电抗。

然后创建另一个反应式，例如associateClientText，它从您在上面创建的数据反应式中提取要显示在框中的信息。

最后，请参考值框的定义中的associateClientText。

在下面的评论中回答您的问题：这是一个简单的独立示例，显示了如何读取多个csv文件并将其绑定到单个数据帧/小标题中。

library(tidyverse)

# Create some dummy data and write to CSV files
data1 <- tibble(x=rnorm(5), y=rnorm(5))
data2 <- tibble(x=rnorm(5), y=rnorm(5))
write.csv(data1, "data1.csv", row.names=FALSE)
write.csv(data2, "data2.csv", row.names=FALSE)

# Read in test data and combine in a single tibble
allData <- bind_rows(lapply(c("data1.csv", "data2.csv"), function(fName) read.csv(fName) %>% add_column(sourceFile=fName)))
allData

提供

            x           y sourceFile
1   0.1663704 -1.53566430  data1.csv
2   1.2903028  0.92808401  data1.csv
3  -0.7523470 -0.54466037  data1.csv
4   0.1036518  0.31038474  data1.csv
5   1.7568151  0.24742720  data1.csv
6  -1.3975505 -0.04481848  data2.csv
7  -0.2800692 -0.67718383  data2.csv
8  -0.8773866  0.18190370  data2.csv
9  -0.9915960 -3.16427113  data2.csv
10  0.6501058 -0.79753204  data2.csv

我无法提供您更直接的帮助，因为您还没有提供自己简单，独立的示例。 This post可能会有所帮助。

您可以将我的bind_rows代码复制到反应堆中。就我个人而言，我将反应式重命名为loadData不再是对其作用的准确描述：它不是loading数据，而是is数据。