时间戳

首页 > 解决方案 > R Shiny CRUD 应用程序上的单选按钮问题

r - R Shiny CRUD 应用程序上的单选按钮问题

问题描述

我正在建立一个调查，我在 github 上引用了这个Shiny CRUD 应用程序，这工作正常，直到我对单选按钮有疑问。

在 UI 中有一个新的输入字段

radioButtons("Question1","Question1", choices = c("Y","N","NA"),inline=T),

我更改了 CRUD 功能如下，以适应上述输入字段

    # Cast from Inputs to a one-row data.frame
    CastData <- function(data) {
      datar <- data.frame(name = data["name"], 
                          used_shiny = as.logical(data["used_shiny"]), 
                          r_num_years = as.integer(data["r_num_years"]),
                          Question1 = data["Question1"],
                          stringsAsFactors = FALSE)

      rownames(datar) <- data["id"]
      return (datar)
    }

    # Return an empty, new record
    CreateDefaultRecord <- function() {
      mydefault <- CastData(list(id = "0", name = "", Question1 = "Y",used_shiny = FALSE, r_num_years = 2))
      return (mydefault)
    }

    # Fill the input fields with the values of the selected record in the table
    UpdateInputs <- function(data, session) {
      updateTextInput(session, "id", value = unname(rownames(data)))
      updateTextInput(session, "name", value = unname(data["name"]))
      updateCheckboxInput(session, "used_shiny", value = as.logical(data["used_shiny"]))
updateRadioButtons(session, "Question1",value = unname(data["Question1"]))
      updateSliderInput(session, "r_num_years", value = as.integer(data["r_num_years"]))
    }

当我运行时出现错误“警告：updateRadioButtons 中的错误：未使用的参数（值 = unname（数据 [“Question1”]）） ”无法解决此问题

标签： rshiny

解决方案

radioButtons没有任何value您可能想要使用的参数调用selected！

希望这可以帮助！

推荐阅读