Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/75.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R下载的数据已添加索引_R_Shiny - Fatal编程技术网

R下载的数据已添加索引

R下载的数据已添加索引,r,shiny,R,Shiny,在R中,数据框如下图所示,没有索引。 但是,下载数据后,索引列会自动添加到数据框中,请参见下面的说明。如何避免添加此索引?由于下载的模板将供用户填充数据,因此理想情况下,用户不需要不必要的字段。 下面列出了我的下载代码 # UI downloadButton("download1", "Download Template") # reactive data frame df1 which contains other input from UI, c

在R中,数据框如下图所示,没有索引。

但是,下载数据后,索引列会自动添加到数据框中,请参见下面的说明。如何避免添加此索引?由于下载的模板将供用户填充数据,因此理想情况下,用户不需要不必要的字段。

下面列出了我的下载代码

# 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