save.image保存表格形式的文件，Rstudio输出时不能出现首行名称，该如何解决？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我的文件（Three_datas_YN.txt）
图一：

gene_name	1	2	3
LDLR	YES	YES	YES
APOB	YES	YES	YES

1.首先，采用save.image，将文件作为RData格式。
three_datas<-read.table(file="Three_datas_YN.txt",sep="\t",header=TRUE,colClasses = "character",stringsAsFactors = FALSE)
save.image(file="H.RData")

2.编写UI.R和server.R，在server.R中load H.RData。
#server.R
library(shiny)
load("H.RData")
shinyServer(function(input, output) {
    output$Three_datas<-renderTable({
    a<-three_datas[grep(input$Symbol,three_datas[,1]),]
    colnames(a)<-three_datas[1,]
    rownames(a)<-NULL
    data.frame(a)
  })
}
#ui.R
shinyUI(fluidPage(
  sidebarPanel(
    textInput("Symbol", label = "",""),
    br(),
    submitButton("Submit"))
mainPanel(
    tabsetPanel(type = "tabs",
               tableOutput("Three_datas"),
                         ))
3.确认无误后运行程序。
图中显示的结果为：

	LDLR	YES	YES.1	YES.2
1	APOB	YES	YES	YES

未出现图一所示文件中的首行。

求解：该如何进行更改才能得到正确的输出图？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：RStudio Studio image 表格形式 Save Rstudio shiny