Question

您好我想要获得几个滑块，我希望滑块的值在矩阵中。我试图获得要在页面中打印的值的第一步，但我得到一个错误“参数意味着不同的行数：2,0” 请你能帮帮我吗？

谢谢。代码：

UI.R 库（有光泽）

attributes <- unique(prof_test[,2])


shinyUI (pageWithSidebar (
        headerPanel("Attribute Model Selection"),
        sidebarPanel(
         lapply(1:2, function(i){


          sliderInput(paste("weight",i,sep="_"), 
                      paste("Select attribute levels :", attributes[i]), 
                      min = 0,
                      max = 1, 
                      value = 1)

          })
            )
     , mainPanel( h3("Analysis"),
                  tableOutput("values")
                  )
     )
 )

SERVER.R 库（有光泽）

shinyServer( function(input,output){



  sliderValues <- reactive({

data.frame(
  Name = c(as.character(attributes[1]),as.character(attributes[2])),

  MaxValue = c(input$weight1,
               input$weight2),

  stringsAsFactors=FALSE

  )})


            output$values <- renderTable ({

            sliderValues()
          })
})

Answer 1

我将评论中的答案拉到答案，以协助未来的访客。

在声明滑块ID时，sep="_"中有paste。使用input$weight_1

要在server.r中传递的多个幻灯片

1 个答案: