单击按钮时，在 Shiny Application 的新选项卡中显示数据框的选择

debugcn 发表于 Dev

亨克街

我有以下闪亮的应用程序

服务器端

library(dplyr)
library(rhandsontable)
options(shiny.maxRequestSize = 9*1024^2)

function(input, output) {

  values <- reactiveValues()

  Post <- c("", "")
  list2 <- c(12,13)
  df <- data.frame(Post, list2)


  output$contents <- renderRHandsontable({

    rhandsontable(df, width = 550, height = 300) %>%    
      hot_col(col = "Post", type = "dropdown")
  })

  saveData <- function(){
    finalDF <- hot_to_r(input$contents)
    newDF <- finalDF[complete.cases(finalDF),]
    return(newDF)
  }

  output$contentFinal <- renderRHandsontable(
    #finalDF <- hot_to_r(input$contents)
    return(newDF)
  )
  observeEvent(input$saveBtn, saveData())

}

用户界面

library(rhandsontable)
fluidPage(

  # App title ----
  titlePanel("Tabsets"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Tabset w/ plot, summary, and table ----
      tabsetPanel(type = "tabs",
                  tabPanel("Summary", rHandsontableOutput('contents'),
                           actionButton("saveBtn", "Save changes")
                  ),
                  tabPanel("Tab",
                           rHandsontableOutput('contentFinal'))



      )

    )
  )
)

我试图完成它 - 当我点击摘要选项卡中的保存按钮时，我会在选项卡视图中获得完整案例的概述。

因此，当我在数据库的第一行中选择一个值并点击保存更改时，它应该会在下一个选项卡中弹出数据框的选择。

但是，在选项卡中找不到保存中创建的 newDF 文件。关于如何确保过滤器弹出的任何想法？

贝蒂尔男爵

嗨，更改您的服务器代码

server <- function(input, output) {

  values <- reactiveValues()

  Post <- c("", "")
  list2 <- c(12,13)
  df <- data.frame(Post, list2)


  output$contents <- renderRHandsontable({

    rhandsontable(df, width = 550, height = 300) %>%    
      hot_col(col = "Post", type = "dropdown")
  })

  saveData <- eventReactive({input$saveBtn},{
    finalDF <- hot_to_r(input$contents)
    finalDF <- as.data.frame(lapply(finalDF,function(Col){as.numeric(as.character(Col))}))
    newDF <- finalDF[complete.cases(finalDF),]
    return(newDF)
  })

  output$contentFinal <- renderRHandsontable(
    #finalDF <- hot_to_r(input$contents)
    rhandsontable(saveData())
  )
  # observeEvent(input$saveBtn, saveData())

}