R閃亮的無功輸出不顯示

Question

我有以下數據幀

  df<-data.frame("A"<-c(1:5), 'B'<-c("a", 'b', 'c', 'd', 'e'))
  names(df)<-c('A', "B")

我在R閃亮UI中創建了一個選擇框，並且還為服務器編寫了如下代碼。

 ui<- fluidPage(
 selectInput(inputId = "input", label = "No of days elapsed", choices = 
 c(0:1000), selected = T, multiple =F  
 ),mainPanel(verbatimTextOutput("Output1")))

 server<-function(input, output){text<-reactive({number<-input$input
 number<-as.numeric(number)

  Y<-function(X){if(X<5){
  A<-df[!df$A==X,]} else {A<-df[df$A==(X-3),]}
  return (A)}
  out1<-Y(number)
  })
    renderPrint({text()$B})
    }
    shinyApp(ui, server)

代碼生成選擇框框。 但是，當我使用該框並選擇一個數字時，沒有輸出。 也沒有出現錯誤。 我不確定我的錯誤在哪里

Answer 1

您的代碼有一些問題：

• 您調用verbatimTextOutput("Output1") ，但未定義output$Output1 。
• 您使用verbatimTextOutput ，而您似乎想要輸出表，因此您應該使用dataTableOutput 。
• 另外，格式化;）

下面顯示了一個工作示例。 希望這可以幫助！

---

Y<-function(X){if(X<5){
  A<-df[!df$A==X,]} else {A<-df[df$A==(X-3),]}
  return (A)}

df<-data.frame("A"<-c(1:5), 'B'<-c("a", 'b', 'c', 'd', 'e'))
names(df)<-c('A', "B")

ui<- fluidPage(
  selectInput(inputId = "input", label = "No of days elapsed", choices = 
                c(0:1000), selected = T, multiple =F  ),
  mainPanel(dataTableOutput("Output1"))
)

server<-function(input, output){
  text<-reactive({
    number<-input$input
    number<-as.numeric(number)
    out1<-Y(number)
  })
  output$Output1 <- renderDataTable({text()})
}
shinyApp(ui, server)

Answer 2

這是我犯了錯誤的地方。

     ui<- fluidPage(
      selectInput(inputId = "input", label = "No of days elapsed", choices = 
      c(0:1000), selected = T, multiple =F  
    ),mainPanel(verbatimTextOutput("Output1")))


      server<-function(input, output){text<-reactive({number<-input$input
      number<-as.numeric(number)

       Y<-function(X){if(X<5){
       A<-df[!df$A==X,]} else {A<-df[df$A==(X-3),]}
        return (A)}
       out1<-Y(number)
        } )
       **output$Output1<-renderPrint({text()$B})**
        }
       shinyApp(ui, server)

這產生了輸出。 我沒有正確分配輸出