使用网络应用程序分配变量并对其执行操作

Question

我是 r shiny 的新手，我正在开发一个将输入作为文本和数字输入的网络应用程序。接下来，应将数值作为变量分配给声明的文本。

我试过了

library(shiny)

ui<-fluidPage(    


  titlePanel("test"),

  numericInput("num", label = h3("Numeric input"), value = 1),

  hr(),
  fluidRow(column(3, verbatimTextOutput("value"))),

  textInput("text", label = h3("Text input"), value = "Enter text..."),

  hr(),
  fluidRow(column(3, verbatimTextOutput("value")))




)




server<-  function(input, output) {

  output$value <- renderPrint({ input$num })
  output$value <- renderPrint({ input$text })

}
shinyApp(ui = ui, server = server)

现在赋值到哪里了？我怎样才能提取这个赋值的值？

Answer 1

您的错误：它被称为 renderText，而不是 renderPrint。您只能为一个输出分配一个值。但是，如果你想把它们一起输出，你可以这样做：

textoutput <- paste0(input$text, "," input$num)

在这里您可以找到您的应用程序的工作示例。下次，请将文本格式设置为代码:-)。

library(shiny)

ui<-fluidPage(

    titlePanel("test"),
    numericInput("num", label = h3("Numeric input"), value = 1),
    hr(), fluidRow(column(3, verbatimTextOutput("value"))),
    textInput("text", label = h3("Text input"), value = "Enter text..."),
    hr(), fluidRow(column(3, verbatimTextOutput("value1"),
                          verbatimTextOutput("value2")
                          ))

)

server<- function(input, output) {

    # value <- reactive({input$num})
    # valu2 <- reactive({input$text})

    output$value1 <- renderText({
        input$num
    })

    value <- reactive({input$num})

    output$value2 <- renderText({
        input$text
    })



} 

shinyApp(ui = ui, server = server)

使用网络应用程序分配变量并对其执行操作

Assignment of variable using web app and performing operations on it

r

shiny

shiny-server