我有一个文件,我生成闪亮用户点击一个按钮,文件应该下载.但没有任何反应
该函数export_report生成excel文件并将其保存到某个位置.然后,该函数将文件位置传递回下载处理程序,以便下载该文件.问题似乎是它没有正确返回.我已经在export_report光亮之外测试了函数()并且它完美地返回了所有内容,所以我从闪亮的角度来看显然做错了.
文件本身是在应该在服务器上的地方创建的,因为我可以在RStudio中下载它并在文件浏览器中查看它.谁能帮忙
# UI Section
downloadButton("downloadRpt", "Download Report")
# Server Section
output$downloadRpt <- downloadHandler(
filename = function() {
mydf <- report()
dateRange <- input$dates_report
selection <- input$selection
myfile <- export_report (mydf, selection, dateRange)
},
content = function(file) {
file.copy(myfile, file)
}
)
我见过其他例子R Shiny:下载现有文件,这是我的代码所基于的
编辑1:添加带有一些假数据的export_report函数来运行它
export_report <- function(mydf,selection,dateRange) {
# Template for where the template excel file is stored
myoutputTemplate <- '/home/shiny_tutorials/Save to Database/templates/output_template.xlsx'
start_date <- dateRange[1]
end_date <- dateRange[2]
date_range <- paste(start_date …我一直试图让下面的代码在插入符号中运行,但得到错误.谁能告诉我怎么麻烦拍它.
[.data.frame(data,,lvls [1])出错:选择了未定义的列
library(tidyverse)
library(caret)
mydf <- iris
mydf <- mydf %>%
mutate(tgt = as.factor(ifelse(Species == 'setosa','Y','N'))) %>%
select(everything(), -Species)
trainIndex <- createDataPartition(mydf$tgt, p = 0.75, times = 1, list = FALSE)
train <- mydf[trainIndex,]
test <- mydf[-trainIndex,]
fitControl <- trainControl(method = 'repeatedcv',
number = 10,
repeats = 10,
allowParallel = TRUE,
summaryFunction = twoClassSummary)
fit_log <- train(tgt~.,
data = train,
method = "glm",
trControl = fitControl,
family = "binomial")
目前，我们正在实施某种直接营销我们在某一天从欧洲某个国家/地区发送 SMS（时间戳），然后收到当地客户对产品感兴趣的回复
我有两个月的样本数据集，包括发送的短信和收到的回复（如果有的话）。最终目标是，我想计算发送时间与考虑时区和夏令时的响应时间之间的时差（以小时为单位）
我收到的文件有字符格式的时间戳。我希望将它们转换为当地时区的日期，将它们转换为标准时区并计算时差
我尝试了以下方法来创建转换，但它返回 NA。任何帮助将不胜感激
as.POSIXlt("12/02/2015 11:23", tz = "Europe/London")
strptime("12/02/2015 11:23", "%d/%m/%Y %h:%m")
as.Date("12/02/2015 11:23","%d/%m/%y %h:%m")
我希望从 teradata 中的日期获取周数我可以看到有使用 Sys Calendar Table 的解决方案，但我想使用代码来获取周数
例如，第 28 周是 7 月 6 日至 12 日（含）
我发现这段代码在你输入 DATE 而不是 cdate 时可以正常工作
SELECT
((cdate - ((EXTRACT(YEAR FROM cdate) - 1900) * 10000 + 0101 (DATE))) - ((cdate - DATE '0001-01-07') MOD 7) + 13) / 7
我的日期格式为 MM/DD/YY，当我运行它时，我收到错误消息
SELECT ((06/29/15 - ((EXTRACT(YEAR FROM 06/29/15) - 1900) * 10000 + 0101 (DATE))) - ((06/29/15 - DATE '0001-01-07') MOD 7) + 13) / 7
“用户无法在 DATE 执行该操作”
任何帮助将不胜感激
我有一个mynames单列的数据框，希望将其转换为字符串。目的是根据此字符串中的项目选择另一个数据集中的列名称。数据示例如下
X
A
B
C
我尝试使用下面的代码使用以下代码将其全部粘贴在一起
paste(mynames, sep="", collapse="")
但是，产生低于理想值的输出
“ c（\” A \“，\” B \“，\” C \“，..........
有人可以帮忙吗？
我正在学习如何在R中创建圆形图,类似于CIRCOS Im使用包circlize根据航班是OB,入站和返回来绘制起点和目的地对之间的链接.数据的逻辑并不重要,它只是一个玩具的例子
我已根据下面的代码获得了基于以下逻辑工作的情节
library(dplyr)
library(circlize)
# Create Fake Flight Information in a table
orig = c("IE","GB","US","ES","FI","US","IE","IE","GB")
dest = c("FI","FI","ES","ES","US","US","FI","US","IE")
direc = c("IB","OB","RETURN","DOM","OB","DOM","IB","RETURN","IB")
mydf = data.frame(orig, dest, direc)
# Add a column that combines the dest and direction together
mydf <- mydf %>%
mutate(key = paste(dest,direc)) %>%
select (orig, key)
# Create a Binary Matrix Based on mydf
mymat <- data.matrix(as.data.frame.matrix(table(mydf)))
# create the objects you want to link from to in your diagram
from <- rownames(mymat)
to …我正在使用 Python 尝试对 pandas 数据框中的所有字符/字符串列应用一些转换。这些转变是：
我有 R 背景，这可以通过类似的方法来实现
mydf <- mydf %>%
dplyr::mutate_if(is.character, toupper)
dplyr::mutate_if(is.character, trimws)
对于Python我很茫然。我尝试了下面的方法，它首先识别所有字符列，然后尝试修剪空格并使所有字符列大写（在本例中为 Species）
import numpy as np
import pandas as pd
from sklearn.datasets import load_iris
# Create a sample dataset
iris = load_iris()
df= pd.DataFrame(data= np.c_[iris['data'], iris['target']],
columns= iris['feature_names'] + ['target'])
df['species'] = pd.Categorical.from_codes(iris.target, iris.target_names)
# Make character columns upper case and then trim the white space
string_dtypes = df.convert_dtypes().select_dtypes("string")
df[string_dtypes.columns] = string_dtypes.apply(lambda x: x.str.upper())
df[string_dtypes.columns] = string_dtypes.apply(lambda x: x.str.strip())
df
我知道这可能是一个非常基本的问题，提前感谢任何花时间提供帮助的人