映射数值或字符串

Question

我正在尝试创建一个 ShinyApp，希望能得到一些指导。

我正在尝试获取摘要 table（“摘要分数”）来表示 i) 与单选按钮的用户输入关联的最小值（例如，Id037_crit1 & Id038_crit1) 或文本字符串“NA”（如果选中复选框）(Id039_crit1)。

我不确定如何更改代码，使摘要 table 显示单选按钮的最小值或选中复选框时的字符串。我假设有某种 if-else 语句，但我无法让它工作。

library(shinydashboard)
library(shinythemes)
library(shiny)
library(shinyWidgets)
library(DT)
library(tidyverse) 
ui <- fluidPage(
  theme = shinytheme("united"),

  # Application title
  titlePanel("TITLE"),
  sidebarLayout(
    sidebarPanel(
      selectInput("select",
        label = helpText("Select a critera"),
        choices = list("Criteria_1", "Criteria_2"),
        selected = c("NULL")
      )
    ),
    mainPanel(tabsetPanel(
      tabPanel(
        "Criteria", conditionalPanel(h3("Question 1", align = "left"),
          condition = "input.select == 'Criteria_1'",
          prettyRadioButtons(
            inputId = "Id037_crit1",
            label = "Predictions:",
            choices = c(
              "Option 1" = 1,
              "Option 2" = 2,
              "Option 3" = 3
            ),
            inline = TRUE,
            status = "danger",
            fill = TRUE
          ),
        ),
        conditionalPanel(h3("Question 2", align = "left"),
          condition = "input.select == 'Criteria_1'",
          prettyRadioButtons(
            inputId = "Id038_crit1",
            label = "Hypotheses:",
            choices = c(
              "Option 1" = 1,
              "Option 2" = 2,
              "Option 3" = 3
            ),
            inline = TRUE,
            status = "danger",
            fill = TRUE)
        ),
 
conditionalPanel(h3("Or", align = "left"),
                                     condition =  "input.select == 'Criteria_1'",
                                     awesomeCheckbox(
                                       inputId = "Id039_crit1",
                                       label = "NA",
                                       status = "danger")
        ),

        # User side-pannel selection - criteria 2


        conditionalPanel(h3("Question 1", align = "left"),
          condition = "input.select == 'Criteria_2'",
          prettyRadioButtons(
            inputId = "Id040_crit2",
            label = "Methods:",
            choices = c(
              "Option 1" = 1,
              "Option 2" = 2
            ),
            inline = TRUE,
            status = "danger",
            fill = TRUE)),


      # Second Tab --------------------------------------------------------------


      tabPanel(
        "Summary score",
        DTOutput("summary")
      ),
    ))
  )
)

# SERVER ------------------------------------------------------------------


server <- function(input, output) {
  
  calc_min_val <- function(contains) {
    radios_inputid <- str_subset(names(input), contains)
    map_dbl(radios_inputid, ~ as.numeric(input[[.x]])) %>%
      min()
  }
  
  
  summ <- reactive({
    min_values <- c("crit1$", "crit2$") %>%
      map(calc_min_val)
     
    
    
    tibble(
      Lowest_Criteria = c("Specific hypotheses and prediction are provided?", "Predictions regarding the electromagnetic area of 
interest are sufficient?"),
      value = map(min_values, ~.)
    )
  })
  
  
  output$summary <- DT::renderDT({
    datatable(summ())
  })
# Downloadable csv of selected dataset ----
  output$downloadData <- downloadHandler(
    filename = function() {
      paste("DATA", ".csv", sep = "")
    },
    content = function(file) {
      write.csv(datasettable(summ()), file, row.names = FALSE)
    }
  )
}
shinyApp(ui, server)

Answer 1

也许您正在寻找这个

summ <- reactive({
      min_values <- c("crit1$", "crit2$") %>%
        map(calc_min_val)
      if (input$Id039_crit1 & input$select == 'Criteria_1') value = "NA" else value = map(min_values, ~.)
      
      tibble(
        Lowest_Criteria = c("Specific hypotheses and prediction are provided?", "Predictions regarding the electromagnetic area of 
interest are sufficient?"),
        value = value
      )
    })

映射数值或字符串

Map either numerical values or a character string

r

shiny

tibble