R shiny上传.rda文件

Question

我不能上传和显示一个rda文件与库闪亮在R。有人知道怎么做吗？我使用的是R版本3.1.1。这是使用shiny的网站：http://shiny.rstudio.com

**

#ui.R
library(shiny)
shinyUI(navbarPage("MareyMap online",

                   tabPanel("Présentation",

h2("A web-service for estimating recombination rates along the genome",align="center"),

br()

),

tabPanel("Step 1 : Data Selection",


         fileInput("file", label = h3("or upload a data set")),
                         'Note: Upload the marey map data for your species using the following format: txt, rda,
Rda, rdata or Rdata.',

        "Optional -- Would you agree to include your dataset in our database after data curation",

         tableOutput("table")

         )
))
#server.R
library(shiny)
library(MareyMap)
shinyServer(function(input, output) {

  output$table <- renderPrint({
    input$file
  })  
})

**

Answer 1

它不工作，但最后我尝试了一个.txt文件：

"set“"map”"mkr“"phys”"gen“"vld”“拟南芥”“1号染色体”"SGCSNP131“184351 0真”“拟南芥”“1号染色体”"SGCSNP5“189722 2.61真”“拟南芥”“1号染色体”"SGCSNP247“”662031 2.54真“”拟南芥“”1号染色体“"GST1”“663291 3.99真”“拟南芥”“1号染色体”"SGCSNP151“”1148355 3.35真“”拟南芥“”1号染色体“”“"AtEAT1”1435872 3.87真“拟南芥”“1号染色体”"ve002“1521308 7.15真”拟南芥“”1号染色体“"SGCSNP388”1526933 7.66真“拟南芥”“1号染色体”"SGCSNP170“1642565 7.66真”拟南芥“”1号染色体“"ve003”2032443 7.76真“拟南芥”1号染色体“"SGCSNP308”26644350.89真“拟南芥”“1号染色体”"phyA“3097714 11.35真”拟南芥“拟南芥“”1号染色体“"SGCSNP107”3097951 11.86真“”拟南芥“”1号染色体“"SGCSNP138”3121108 14.69真“拟南芥”“1号染色体”"SGCSNP270“3190609 13.8真”拟南芥“”1号染色体“"ve005”3194953 11.48真“拟南芥”“1号染色体”"nga63“3224435 11.48真”“拟南芥”“1号染色体”"ARR4“”3443848 11.35真“”拟南芥“”1号染色体“"SGCSNP148”“365829211.99真“拟南芥”1号染色体"BFN1“3773426 11.98真”拟南芥“1号染色体"NCC1”4107626 12.6真“拟南芥”“1号染色体”"ve006“4459553 16.13真”拟南芥“1号染色体"SGCSNP132”4588103 14.04真...

server.R

库(闪亮)库(MareyMap)

shinyServer(函数(输入，输出){

输出$表格<- renderPrint({

#data(Arabidopsis_thalianan)
#Arabidopsis_thalianan@maps  

})

输出$table2 <- renderTable({

inFile <- input$file

if (is.null(inFile))
  return(NULL)

read.csv(inFile$datapath, header = TRUE,
         sep = ' ', quote ='"')

})

输出$table3 <- renderTable({

inFile <- input$file

if (is.null(inFile))
  return(NULL)

a<-read.csv(inFile$datapath, header = TRUE,
         sep = ' ', quote ='"')
a[,"map"]

})

})

ui.R

库(闪亮)

shinyUI(navbarPage("MareyMap online"，

               tabPanel("Présentation",
                        
                        h2("A web-service for estimating recombination rates along the genome",align="center"),
                        
                        
                        br(),
                        
                        helpText("MareyMap allows to estimate local recombination rates along the genome. MareyMap relies on
                                 comparing the genetic and the physical maps of a given chromosome to estimate local recombination
                                 rates (given by the slope of the curve describing the relationship between both variables), a graphical
                                 method called the Marey map method introduced by A. Chakravarti in 1991 . MareyMap accepts Marey
                                 map data as input (genetic and physical positions of markers for a set of chromosomes of a species) and
                                 will return local recombination rate estimates.")
                        ),
               
               
               
               tabPanel("Step 1 : Data Selection",
                        
                        selectInput("dataset", label = h3("Select a dataset in our database",align="center"),
                                    choices = c("Arabidopsis_thalianan", "Caenorhabditis_elegans" ,
                                                "Drosophila melanogaster","Homo sapiens")),
                        
                        fileInput("file", label = h3("or upload a data set")),
                        'Note: Upload the marey map data for your species using the following format: txt',
                        
                        br(),
                        br(),
                        
                        "Optional -- Would you agree to include your dataset in our database after data curation",
                        
                        textOutput("table"),
                        tableOutput("table2")
                        
                        
               ),
               tabPanel("Step 2 : Data curation",
                        "list of chromosomes:",
                        br(),
                        tableOutput("table3")
               ),
               tabPanel("Step 3 : Interpolation"),
               tabPanel("Step 4 : Rec Rates export")
                        ))

但我不能只显示地图列。