R下载的数据已添加索引
在R中,数据框如下图所示,没有索引。 但是,下载数据后,索引列会自动添加到数据框中,请参见下面的说明。如何避免添加此索引?由于下载的模板将供用户填充数据,因此理想情况下,用户不需要不必要的字段。 下面列出了我的下载代码R下载的数据已添加索引,r,shiny,R,Shiny,在R中,数据框如下图所示,没有索引。 但是,下载数据后,索引列会自动添加到数据框中,请参见下面的说明。如何避免添加此索引?由于下载的模板将供用户填充数据,因此理想情况下,用户不需要不必要的字段。 下面列出了我的下载代码 # UI downloadButton("download1", "Download Template") # reactive data frame df1 which contains other input from UI, c
# UI
downloadButton("download1", "Download Template")
# reactive data frame df1 which contains other input from UI, can edit
# it to be a generic data frame for this to be reproducible
df1 = reactive({tibble(Year=strftime(seq(date_seq1(),
date_seq2(),
by = '1 week'), format = "%G"),
Week=strftime(seq(date_seq1(),
date_seq2(),
by = '1 week'), format = "%V"),
Date=seq(date_seq1(),
date_seq2(),
by = '1 week'),
!!input$urgency1 := "",
!!input$urgency2 := "",
!!input$urgency3 := "")})
# download the data frame
output$download1 <- downloadHandler(
filename = function(){"user_template.csv"},
content = function(file){
write.csv(df1(), file)
}
)
#用户界面
下载按钮(“下载1”、“下载模板”)
#反应式数据帧df1包含来自UI的其他输入,可以编辑
#这将是一个通用的数据框架,以使其可复制
df1=反应性({tibble(Year=strftime)(seq(date_seq1()),
日期顺序2(),
by='1 week'),format=“%G”),
周=标准时间(序号(日期),
日期顺序2(),
by='1 week'),format=“%V”),
日期=序号(日期\序号1(),
日期顺序2(),
by=‘1周’,
!!输入$urgency1:=“”,
!!输入$urgency2:=“”,
!!输入$urgency3:=“”)})
#下载数据帧
输出$download1您必须在write.csv
函数中设置选项row.names=FALSE
。您必须在write.csv
函数中设置选项row.names=FALSE