R блестящий загрузить файл.rda

Question

Я не могу загрузить и отобразить файл rda с блестящей библиотекой R. Кто-то знает, как это сделать? Я использую версию R 3.1.1. Вот сайт для использования блеска: 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" "Arabidopsis thaliana" "Хромосома 1" "SGCSNP131" 184351 0 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "SGCSNP5" 189722 2.61 ИСТИНА "Arabidopsis thaliana" "Хромосома 1", "SGCSNP247" 662031 2.54 ИСТИНА "Arabidopsis thaliana", "Хромосома 1", "GST1" 663291 3.99 ИСТИНА, "Arabidopsis thaliana" "Хромосома 1", "SGCSNP151" 1148355 3.35 ИСТИНА, "Arabidopsis thaliana", "Атомная область 1" 1, хромосома 1, "Аромат 1", "Атом 1" 3.87 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "ve002" 1521308 7.15 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "SGCSNP388" 1526933 7.66 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "SGCSNP170 Arabisopis thaliana" 16425656 6,62565 7,6 1" "ve003" 2032443 7.76 ИСТИНА" Arabidopsis thaliana "" Хромосома 1" "SGCSNP308" 2664435 0,89 ИСТИНА" Arabidopsis thaliana "" Хромосома 1" "phyA" 3097714 11.35 ИСТИНА" Arabidopsis thaliana "" Хромосома 19795 7 "7676" SG6 "Arabidopsis thaliana" "Хромосома 1" "SGCSNP138" 3121108 14.69 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "SGCSNP270" 3190609 13.8 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "ve005" 3194953 11.48 ИСТИНА "Arabidopsis thaliana" "Хромосома 1" "nga63" 3224435 11.48 ИСТИНА "Arabidopsis thaliana" "Хромосома 1 34" ARID4 344 "ARID4 thaliana "" Хромосома 1 "" SGCSNP148 "3658292 11.99 ИСТИНА" Arabidopsis thaliana "" Хромосома 1" "BFN1" 3773426 11.98 ИСТИНА" Arabidopsis thaliana "" Хромосома 1" "NCC1" 4107626 12.6 ИСТИНА" Arabidopsis thalian 1 "" "4459553 16.13 ИСТИНА" Arabidopsis thaliana "" Хромосома 1" "SGCSNP132" 4588103 14.04 ИСТИНА...

server.R

библиотека (блестящая) библиотека (MareyMap)

блестящий сервер (функция (вход, выход) {

вывод $ table <- 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

библиотека (блестящие)

Блестящий пользовательский интерфейс (navbarPage("МарейМап онлайн",

               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")
                        ))

Но я не могу отобразить только столбец карты.