r - 需要指导来创造价值盒输出
问题描述
我正在创建一个闪亮的应用程序,其中包含来自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
这是我的第一个闪亮的应用程序,请帮助我完成这个。提前致谢!!
解决方案
是的,你可以这样做。首先,您需要使用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
我无法为您提供更直接的帮助,因为您没有提供自己的简单、独立的示例。 这篇文章可能会有所帮助。
您可以将我的代码复制bind_rows
到您的响应式中。就个人而言,我会重命名响应式,因为loadData
它不再是对它正在做什么的准确描述:它不是加载数据,而是数据。
推荐阅读
- flutter - Flutter 设置一周中的特定日期通知
- javascript - nginx反向代理后面的create-react-app代码更改未在浏览器中重新加载
- powershell - 从列表 Powershell 中获取距今天最近的日期
- java - 为什么这个 Java 程序不能编译?
- magnolia - 营销标签未在 Magnolia 页面中呈现内容
- javascript - 如何阻止此单击事件与前一个事件同时发生?Javascript纸牌游戏
- php - 错误问题:1215 无法添加外键约束
- c# - 对具有相同条件的数据表值求和
- docker - 使用 Google Cloud 代码在 vscode 中指定本地 docker 容器注册表
- excel - 让所有黄色单元格在范围内的快速方法