闪亮的选择框

时间:2018-04-20 18:17:24

标签: r shiny

我一直在努力创建一个闪亮的选择列表框,用于不同的选项,如轻度,中度,严重和终末期肾功能损害。我想编写与其中一个选项的值一起使用的代码,其余的应该是0.任何人都可以帮助我吗? 另一件事是输入数据将用于称为输入$ RI(肾脏损伤)的等式中。 这是我尝试使用的代码:

在用户界面中:

fluidPage(  

selectInput("RI",
            "Renal Impairment:",
            choices = list("Normal" = 1,
                           "Mild" = 2,
                           "Moderate + Severe" = 3,
                           "End Stage" = 4),
            selected = 1),

hr(),
fluidRow(column(4, verbatimTextOutput("0")))

)

在服务器文件中:

function(input, output) {

  output$RI <- renderPrint({ input$RI })


  if (RI == 1) {
    1 <- 0
    2 <- 0
    3 <- 0
    4 <- 0
  }


  if (RI == 2) {
    1 <- 0
    2 <- 1
    3 <- 0
    4 <- 0
  }


  if (RI == 3) {
    1 <- 0
    2 <- 0
    3 <- 1
    4 <- 0
  }


  if (RI == 4) {
    1 <- 0
    2 <- 0
    3 <- 0
    4 <- 1
  }

}

提前谢谢。

1 个答案:

答案 0 :(得分:1)

您需要适当地分配变量。您需要在反应空间中包含反应输出。如果您需要返回多个项目,则需要将这些项目包装到一个列表中。

from keras.utils import HDF5Matrix

x_data = HDF5Matrix('path/file', 'group/dataset')