如何将被读取为列表的shiny输出对象转换为数据框？

huangapple
go评论101阅读模式
英文:

How can I turn shiny output objects that are read as a list to data frame?

问题

  1. 我正在尝试在R Shiny应用程序之间进行一些交互。我从我的第一个应用程序中获得了第一个输出（[1]列表、[2]数据框和[3]数据框）。我想在新应用程序中使用它来应用新的功能，最终将其用作我的最终仪表板。问题是，现在这些对象在全局环境中是非反应性的，它们都是列表类型，尽管我使用了as.data.frame函数（如下所示）。我不知道这是否可能是原因，但我觉得不对劲，它在我的服务器函数中找不到。有什么想法为什么会这样？

full_data工作正常，但dtd出现警告：Error in crosstalk::is.SharedData: 找不到对象'dtd'。

英文:

I am trying to do some interplay between R shiny apps. I've got my first output ([1] list, [2] data.frame & [3] data.frame) from my first App. I want to use it for applying new funtions in a new app that will end up being my final dashboard. Thing is, now that objects are non reactive in the global enviroment, they are all type of list, even tho I use as.data.frame function (as you may see below). I don't know if that might be the reason, but I just find it wrong, and it isn't being found inside my server function. Any idea why?

  1. # --------------------------------------- Global --------------------------------------- #
  3. # Set working directory -> Ctrl+Shift+H & Open the app folder
  4. setwd("~/Programación en R/Shiny app/Client dashboard app")
  6. # --------------------- Initialize program --------------------- #
  8. # Print in console: global script is beginning to run
  9. print("global.R")
  11. # Allow specific errors to be displayed on screen, instead of displaying a generic error
  12. options(shiny.sanitize.errors = FALSE)
  14. # Load needed packages 
  15. source('additional_scripts/packages.R')
  17. # Load LDA model outcome, topic names & raw data
  18. model <- readRDS("LDA_output.2020-01-02.rds")
  19. as.data.frame(model[[1]][3])
  20. lda_model    <<- model[[1]][1]
  21. dtm          <<- as.data.frame(as.matrix(model[[1]][2]))
  22. doc_top_dist <<- as.data.frame(as.matrix(model[[1]][3]));doc_top_dist <- doc_top_dist[[1]][[1]]
  23. top10_lamda0 <<- as.data.frame(as.matrix(model[[2]]))
  24. full_data    <<- as.data.frame(as.matrix(model[[3]]))
  25. rm(model)
  26. #--------------------------------------- User Interface ---------------------------------------#
  27. ui <- fluidPage( 
  28.   theme = shinytheme("cerulean"), 
  29.   
  30.   navbarPage("Analysis",
  31.              
  32.              #--- Home Tab (Global View)
  33.              tabPanel("Global View",
  34.                       sidebarPanel(),
  35.                       DT::dataTableOutput("mela1"),
  36.                       DT::dataTableOutput("mela2")
  37.                       ), #tabPanel - Global View  
  38.              
  39.              tabPanel("",
  40.                       ) #tabPanel - 
  41.              
  42.   ) #navbarPage
  43. ) #fluidPage
  44. #--------------------------------------- Server ---------------------------------------#
  45. server <- function(input, output, session) {
  46.    
  47.   reactive({                                  #Gathering important variables in one only data set
  48.     dtd <- doc_top_dist
  49.     
  50.     print(dtd)
  51.     
  52.     highest <- apply(dtd, 1, which.max)                             #set highest prob topic  
  53.     
  54.     print(highest)
  55.     
  56.     swap <<- function(vec, from, to) {
  57.       tmp <- to[ match(vec, from) ]
  58.       tmp[is.na(tmp)] <- vec[is.na(tmp)]
  59.       return(tmp)
  60.     }
  61.     
  62.     topic_names <<- colnames(top10_lamda0)
  63.     
  64.     print(topic_names)
  65.     
  66.     topic <- swap(highest , 1:length(topic_names), topic_names)     
  67.                 
  68.     dtd <- cbind(topic,dtd)                                         #+ max topic
  69.     dtd$id <- as.character(1:nrow(dtd))                             #+ id column
  70.     vars <- cbind(data$year, data$Ultimate.Parent, data$id, data$IP.Cost, data$Publication.Country)
  71.     colnames(vars) <- c("year", "parent", "id", "cost", "country")  #+ important variables  
  72.     print(colnames)
  73.     dtd <- merge(vars, dtd,  by = "id")
  74.     dtd <<- as.data.frame(dtd)
  75.   })
  76.   
  77.   output$mela2 <- DT::renderDataTable({
  78.     DT::datatable(full_data, options = list(pageLength = 3, lengthMenu = c(3,30,60)))
  79.   })
  80.   output$mela1 <- DT::renderDataTable({
  81.     DT::datatable(dtd, options = list(pageLength = 3, lengthMenu = c(3,30,60)))
  82.   })
  83. }
  84. shinyApp(ui, server)

full_data is working alright but dtd is giving Warning: Error in crosstalk::is.SharedData: object 'dtd' not found
[No stack trace available]

答案1

得分: 1

dtd只在reactive表达式内部有效，因此对于renderDataTable不可见。在reactive之前添加dtd <- NULL以在server函数的范围内创建一个dtd变量。

英文:

dtd only has scope within the reactive expression so it is not visible to renderDataTable. Add dtd <- NULL before the reactive to create a dtd variable in the scope of the server function.

huangapple
  • 本文由 发表于 2020年1月3日 22:59:18
  • 转载请务必保留本文链接：https://go.coder-hub.com/59580768.html
  • r
  • reactive
  • reactive-programming
  • shiny
  • typeof
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定