R/Shiny - 将复选框标签转移到功能字段

Question

我需要选中的复选框标签来填充“[c("checkbox1","checkbox2")]”字段（其中写入了“checkbox1”和“checkbox2”）。谢谢。

这是我的代码。

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(readxl)
library(tidyverse)
library(readxl)
library(stringr)

ui <- fluidPage(
    
    br(),
    
    fileInput("archive", "Upload file", accept = c(
        ".xlsx")),

        # Itens Selection
    checkboxGroupInput("additem", "Select Items", choices = NULL)
        )
    box(
        width = 2000,
        verbatimTextOutput("calfa")
)

server <- function(input, output, session) {
    
        # Upload Data Sheet
    
    csv <- reactive({
        req(input$archive)
        inFile <- input$archive
        df <- read_xlsx(inFile$datapath)
        return(df)
    })
    
        #reactive value that will hold the name of the file
    reactive_my_path <- reactive({
        # Test if file is selected
        req(input$archive)
        return(sub(".xlsx$", "", basename(input$archive$name)))
    })
    
    observe({
        input$archive
        # update the choices in input$additem
        updateCheckboxGroupButtons(session,
                                   "additem",
                                   paste('Column names in:', reactive_my_path()),
                                   choices = names(csv()))
    })
    
        # Alpha
    output$calfa <-
        renderPrint({
            int<-csv()[,c("checkbox1","checkbox2")]
            int <- na.omit(int) 
            psych::alpha(int, check.keys = TRUE) 
        })
}

# App

shinyApp(ui, server)

Answer 1

您可以使用 input$additem 来包含所有选中的复选框。此外，仅当有多于一列时，我才在运行 psych::alpha 代码中包含另一个条件。

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(readxl)
library(tidyverse)
library(readxl)
library(stringr)

ui <- fluidPage(
  
  br(),
  
  fileInput("archive", "Upload file", accept = c(
    ".xlsx")),
  
  # Itens Selection
  checkboxGroupInput("additem", "Select Items", choices = NULL),
  box(
    width = 2000,
    verbatimTextOutput("calfa")
  )
)


server <- function(input, output, session) {
  
  # Upload Data Sheet
  
  csv <- reactive({
    req(input$archive)
    inFile <- input$archive
    df <- read_xlsx(inFile$datapath)
    return(df)
  })
  
  #reactive value that will hold the name of the file
  reactive_my_path <- reactive({
    # Test if file is selected
    req(input$archive)
    return(sub(".xlsx$", "", basename(input$archive$name)))
  })
  
  observe({
    input$archive
    # update the choices in input$additem
    updateCheckboxGroupButtons(session,
                               "additem",
                               paste('Column names in:', reactive_my_path()),
                               choices = names(csv()))
  })
  
  # Alpha
  output$calfa <-
    renderPrint({
      req(length(input$additem) > 1)
      int<-csv()[,input$additem]
      int <- na.omit(int) 
      psych::alpha(int, check.keys = TRUE) 
    })
}

# App

shinyApp(ui, server)

R/Shiny - 将复选框标签转移到功能字段

R/Shiny - Transfer checkbox labels to function field

checkbox

r

shiny