2

我正在创建一个应用程序，您可以在其中选择要查看/显示的列并对整个数据框进行对数或 sqrt。第一个选项（选择）正在运行pickerInput，第二个选项是checkboxInputs。

为了在数据框中显示您的选择或更改的表格，您必须单击actionButton. 列的选择工作完美，但如果您checkboxInput在选择后单击其中一个，则选择将被删除，您将再次看到所有列。

图 1

图 2

这就是您在选择后想要进行对数时的样子。列的选择消失。

图 3

这是代码：

library(shiny)
library(shinyWidgets)
library(dplyr)

ui <- fluidPage(
  
  # Application title
  titlePanel("Old Faithful Geyser Data"),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
     
      uiOutput("picker"),
      
      checkboxInput("play", strong("I want to play with my data"), value = FALSE),
      
      conditionalPanel(
        condition = "input.play == 1",
        checkboxInput("change_log2", "Log2 transformation", value = FALSE),
        checkboxInput("run_sqrt", "sqrt option", value = FALSE)),
    
    
      actionButton("view", "View Selection")
      
    ),
    
    # Show a plot of the generated distribution
    mainPanel(
      h2('Mydata'),
      DT::dataTableOutput("table"),
    )
  )
)

library(shiny)
library(DT)

server <- function(session, input, output) {
  
  data <- reactive({
    mtcars
  })
  
  data1 <- reactive({
    
    dat <- data()
    
    if(input$change_log2){
      dat <- log2(dat)
    }
    
    if(input$run_sqrt){
      dat <- sqrt(dat)
    }
    
    dat
  })
  
  observeEvent(input$play, {
    
    if(!input$play) {
      updateCheckboxInput(session, "change_log2", value = FALSE)
      updateCheckboxInput(session, "run_sqrt", value = FALSE)
    }
    
  })
  
  
  output$picker <- renderUI({
    pickerInput(inputId = 'pick', 
                label = 'Choose', 
                choices = colnames(data1()),
                options = list(`actions-box` = TRUE),
                multiple = T,
                selected = colnames(data1())
                )
  })
  
  datasetInput <- eventReactive(input$view,{
    
    datasetInput <- data1() %>% 
      select(input$pick)
    
    return(datasetInput)
    
  })
  
  output$table <- renderDT({
   
      datatable(
        datasetInput(),
        filter="top", 
        rownames = FALSE,
        extensions = 'Buttons',
        
        options = list(
          dom = 'Blfrtip',
          buttons =
            list('copy', 'print', list(
              extend = 'collection',
              buttons = list(
                list(extend = 'csv', filename = "File", title = NULL),
                list(extend = 'excel', filename = "File", title = NULL)),
              text = 'Download'
            ))
        ),
        class = "display"
      )
  })
}


# Run the application 
shinyApp(ui = ui, server = server)

有谁知道我应该怎么做才能解决这个问题？

首先十分感谢

问候

4

1 回答 1

1

那是因为您pickerInput是基于data1()，并且根据复选框选择而变化。事实上，它应该使用data(). 试试这个

  output$picker <- renderUI({
    pickerInput(inputId = 'pick', 
                label = 'Choose', 
                choices = colnames(data()),
                options = list(`actions-box` = TRUE),
                multiple = T,
                selected = colnames(data())
    )
  })
于 2021-08-09T12:29:12.687 回答