Question

如果我把一些元素作为反应函数，我需要它们进一步下载代码我怎么能记住它们，例如：

        library(shiny)
library(data.table)
library(formattable)
library(tables)
ui <- fluidPage(
      fileInput(inputId =  "File",label =  "Upload file...",accept=c("zip","text")),
      tableOutput("AEP")
)


server <- function(input, output){
  options(shiny.maxRequestSize=50*1024^2) 
  #output$AEP <- renderTable({
  data1 <- reactive({  
    infile=input$File

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

    report_list <- c("Park result.txt",
                     "Park result minus",
                     "Park result plus")
    temp_files <- unzip(infile$datapath)
    temp_files <- temp_files[grepl(paste(report_list, collapse = "|"), temp_files)]

    T=length(temp_files)
    t1=3*c(1:(T/3))

    t2=c(1:T)
    t2=t2[-t1]
    p=c();for(i in 1:T){p[[i]]=c()}
    for(i in 1:(length(t1))){p[[t1[i]]]=read.table(temp_files[t1[i]],skip=1,sep=";")}
    for(i in 1:(length(t2))){p[[t2[i]]]=read.table(temp_files[t2[i]],skip=2,sep=";")}
    Installed_Power=v=park=c();for(i in 1:T/3){park[[i]]=v[[i]]=c()}

    for(i in 1:(T/3)){
      park[[i]]=as.matrix(cbind(p[[1+(i-1)*3]],p[[2+(i-1)*3]],p[[3+(i-1)*3]]))
    }
    #Power output :
    y=c();for(i in 1:T/3){y[[i]]=c()}
    power=Ave.A=Ave.k=AD=c()
    for (i in 1:(T/3)){ 


        y[[i]]=park[[i]][,153][3:length(park[[i]][,153])]
        y[[i]]=gsub("\\,","",y[[i]])
        y[[i]]=as.numeric(y[[i]])
        power[i]=sum(y[[i]])/1000
        Ave.A[i]=mean(as.numeric(park[[i]][3:length(park[[i]][,162]),162]))
        Ave.k[i]=mean(as.numeric(park[[i]][3:length(park[[i]][,163]),163]))
        AD[i]=mean(as.numeric(park[[i]][3:length(park[[i]][,200]),200]))
    }
  })
  output$AEP <- renderTable({
    df <- data1()
    df <-as.data.frame(df)
    AEP=data.table(df$power,df$Ave.k,df$Ave.A,df$AD)
  })

}
shinyApp(ui=ui, server=server)

现在我有reac ()作为反应函数。如果在另一个反应或渲染函数中我只需要T值，该怎么办？我可以通过$ reac()$来访问它吗？上面提到的代码返回错误：

Warning: Error in data.table: column or argument 1 is NULL

代码正常工作如果我不使用无功功能而只是放置渲染功能！我这样做是因为我最终需要将结果下载为pdf文件。（AEP表）如果我想在R markdown中使用AEP表，我该怎么办？

Answer 1

这个可重复的示例显示了如何像Shiny应用程序中的任何其他数据框一样访问反应数据帧。如果无法重现这个问题，很难说出你的应用真正发生了什么。

library(shiny)

ui <- fluidPage(
  titlePanel("Test Reactive Dataframe"),
  mainPanel(textInput("test", "EnterTextHere"),
            tableOutput("test1"),
            tableOutput("test2")
  )
)

server <- function(input, output) {

  df1 <- reactive({
    data.frame(id = 1:length(input$test), input = input$test)
  })

  output$test1 <- renderTable({
    df1()$input
  })

  output$test2 <- renderTable({
    df1()[,1:2]
  })

}

shinyApp(ui = ui, server = server)

Answer 2

您始终可以将reac（）定义为另一个反应或渲染函数中的数据框。

尝试：

output$table <- renderTable({
  df <- reac()
  df <- as.data.frame(df)
  df$T
})

访问被动函数内的元素

2 个答案: