Question

我正在构建一个查询SQL数据库的闪亮应用程序，以便用户可以ggplot数据。我希望用户能够手动重命名因素，但我很难开始。这是我想要做的一个例子：

ui.R

library(markdown)

shinyUI(fluidPage(
  titlePanel("Reactive factor label"),
  sidebarLayout(
    sidebarPanel(

      numericInput("wafer", label = h3("Input wafer ID:"), value = NULL),

      actionButton("do", "Search wafer"),
      textInput("text", label = h3("Factor name to change"), value = ""),
      textInput("text", label = h3("New factor name"), value = ""),
      actionButton("do2", "Change name")

       ),

    mainPanel(
      verbatimTextOutput("waf"), 
      verbatimTextOutput("que"), 
      verbatimTextOutput("pos"),
      dataTableOutput(outputId="tstat")
    )
  )
)
)

server.R

# Create example data

Name <- factor(c("Happy", "New", "Year"))
Id <- 1:3

dd <- data.frame(Id, Name)

con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "dd", dd)
query <-  function(...) dbGetQuery(con, ...)

wq = data.frame()
sq = data.frame()


shinyServer(function(input, output){

  # create data frame to store reactive data set from query
  values <- reactiveValues()
  values$df <- data.frame()

  # Wait for user to search
  d <- eventReactive(input$do, { input$wafer })

  # Reactive SQL query
  a <- reactive({ paste0("Select * from dd where Id=",d()) })
  wq <- reactive({  query( a() ) })

  # Check outputs
  output$waf <- renderPrint(input$wafer)
  output$que <- renderPrint({ a() }) 
  output$pos <- renderPrint( wq()[1,1] )

  # observe d() so that data is not added until user presses action button  
  observe({
    if (!is.null(d())) {
      sq <- reactive({  query( a() ) })

      # add query to reactive data frame
      values$df <- rbind(isolate(values$df), sq())
    }
  })

  output$tstat <- renderDataTable({
    data <- values$df
  })

})

在静态R中，我通常会使用数据表来重命名因子，例如：

DT <- data.table(df)
DT[Name=="Happy", Name:="Sad"]

但我不确定如何使用反应值values$df来解决这个问题。

我已阅读此内容（R shiny: How to get an reactive data frame updated each time pressing an actionButton without creating a new reactive data frame?）。这导致我尝试这个，但它没有做任何事情（甚至没有错误）：

observeEvent(input$do2, {
    DT <- data.table(values$df) 
    DT[Name == input$text1, Name := input$text2]
    values$df <- data.frame(values$df)

  })

也许有一种解决方法..可能有一种方法可以使用一个动作按钮来锁定＆＃34;数据作为一个新的数据框，然后可以用来重命名？

抱歉这么长的问题。我真正的应用程序更长，更复杂。我试图将其剥离。

Answer 1

您的方法有效，但您的应用中存在一些问题。

在ui.R中，textInput都具有相同的id，它们需要不同，因此您可以在server.R中引用它们。在您发布的observeEvent中，您引用了input$text1和input$text2，因此您应该将id的{{1}}更改为textInputs和{{ 1}}。

在您发布的text1中，最后一行应为text2，否则不会改变任何内容。

闪亮 - 反应数据框中的重命名因子

1 个答案: