无法发布闪亮的 R 数据 table

Question

这是我用 RStudio 和 Shiny 设计的第一个项目。因此，我相信还有一些我还不能理解的琐碎问题。

我正在尝试使用 shinyapps.io 将两个大表发布为在线 Shiny R 应用程序。该代码在本地运行良好，但表格在发布时不会在线显示。见下文

https://myrmeco-fox.shinyapps.io/Transcriptome_Table/

我的脚本如下：

require(shiny)
require(DT)
ui <- fluidPage(
  title = "Summary of de novo assembly annotations",
  mainPanel(
    tabsetPanel(
      id = 'dataset',
      tabPanel("Contigs", DT::dataTableOutput("mytable1")),
      tabPanel("Isotigs", DT::dataTableOutput("mytable2"))
    )
  )
)

server <- function(input, output) {
  Contigs<-reactiveValues(Contigs_Table=read.table("Data/annotations_expanded_CONTIGS.txt", header= TRUE, sep = "\t", fill = TRUE, na.strings = c("", "---NA---"), nrows=7467, colClasses="character", quote=""))
  class(Contigs_Table$Length)<-"numeric"
  class(Contigs_Table$Cys)<-"numeric"
  Isotigs<-reactiveValues(Isotigs_Table=read.table("Data/Annotation_summary_expanded_ISOTIGS", header= TRUE, sep = "\t", fill = TRUE, na.strings = c("", "---NA---"), nrows=12538, colClasses="character", quote=""))
  class(Isotigs_Table$Length)<-"numeric"
  class(Isotigs_Table$Cys)<-"numeric"
  output$mytable1 = renderDataTable(Contigs_Table, options = list(pageLength = 5))
  output$mytable2 = renderDataTable(Isotigs_Table, options = list(pageLength = 5))
}

shinyApp(ui, server)

UI

ui <- fluidPage(
  title = "Summary of de novo assembly annotations",
  mainPanel(
    tabsetPanel(
      id = 'dataset',
      tabPanel("Contigs", DT::dataTableOutput("mytable1")),
      tabPanel("Isotigs", DT::dataTableOutput("mytable2"))
    )
  )
)

服务器

server <- function(input, output) {
  source("Data.R")
  class(Contigs_Table$Length)<-"numeric"
  class(Contigs_Table$Cys)<-"numeric"
  class(Isotigs_Table$Length)<-"numeric"
  class(Isotigs_Table$Cys)<-"numeric"
  output$mytable1 = renderDataTable(Contigs_Table, options = list(pageLength = 5))
  output$mytable2 = renderDataTable(Isotigs_Table, options = list(pageLength = 5))
}

数据

Contigs<-reactiveValues(Contigs_Table=read.table("Data/annotations_expanded_CONTIGS.txt", header= TRUE, sep = "\t", fill = TRUE, na.strings = c("", "---NA---"), nrows=7467, colClasses="character", quote=""))
Isotigs<-reactiveValues(Isotigs_Table=read.table("Data/Annotation_summary_expanded_ISOTIGS", header= TRUE, sep = "\t", fill = TRUE, na.strings = c("", "---NA---"), nrows=12538, colClasses="character", quote=""))

我遵循了几次讨论中的说明，例如将文件添加到子文件夹（它们也已上传）和使用 reactiveValues。我稍微改变了语法（有和没有点等），但仍然没有任何效果。

Answer 1

:) 将“/”放在数据前面怎么样？我假设您的数据在此数据子文件夹中？

无法发布闪亮的 R 数据 table

Unable to publish Shiny R data table

publish

r

datatables

shiny

htmlwidgets