>

일부 값을 계산하고 값을 반짝이는 앱으로 반환하고 싶습니다 :

ui <- fluidPage(
sidebarLayout(
sidebarPanel(numericInput(inputId = "ME",
               label = "Maternal effect:",
               min = -1,
               max = 1,
               value = 0.5),
  numericInput(inputId = "CE",
               label = "Child effect:",
               min = -1,
               max = 1,
               value = 0.5)
),
mainPanel(h3(textOutput("Power"))
)
)
)

server <- function(input, output) {
bzc <- sqrt(abs(input$CE)) * sign(input$CE)     
bzm <- sqrt(abs(input$ME)) * sign(input$ME) 
results <- bzc * bzm
  output$Power <- renderPrint({results  
})
}
shinyApp(ui = ui, server = server)

이 작동하지 않는 것이 좋습니다. 반짝이는 앱에서 계산하는 방법에 대한 팁이 있습니까?

  • 답변 # 1

    input 가 있기 때문에 오류 메시지가 나타납니다. - render 외부의 물체 기능. 여러 플롯에서 재사용하려는 무언가를 계산하려면 reactive 를 사용하십시오.  또는 observe -기능.

    다른 모든 경우에는 bzc 에 대한 코드를 추가하면 충분합니다. bzm  그리고 result   render 내부 기능 :

    ui <- fluidPage(
      sidebarLayout(
        sidebarPanel(numericInput(inputId = "ME",
                                  label = "Maternal effect:",
                                  min = -1,
                                  max = 1,
                                  value = 0.5),
                     numericInput(inputId = "CE",
                                  label = "Child effect:",
                                  min = -1,
                                  max = 1,
                                  value = 0.5)
        ),
        mainPanel(h3(textOutput("Power"))
        )
      )
    )
    
    server <- function(input, output) {
      output$Power <- renderPrint({
        bzc <- sqrt(abs(input$CE)) * sign(input$CE)     
        bzm <- sqrt(abs(input$ME)) * sign(input$ME) 
        results <- bzc * bzm
        results  
      })
    }
    shinyApp(ui = ui, server = server)
    
    

  • 이전 python - 로봇 프레임 워크 - remoteswinglibrary를 가져올 수 없습니다
  • 다음 javascript - dialogflow v2의 사용자 입력에 관계없이 특정 의도를 강제로 감지하는 방법