【发布时间】:2017-06-05 21:22:45
【问题描述】:
尝试获取数字输入并在输入上应用 2 个公式并使用它们绘制直方图。
UI端
library(shiny)
shinyUI(fluidPage(
actionButton (InputId = "USD", label = "US Bond Return"),
actionButton (InputId = "INR", label = "Indian Bond Return"),
numericInput(InputId = "num", label = "USD given by Investor", value = 0,
min = 1, max = 1000, step = NA, width = NULL), plotOutput("hist")))
服务器端
library(shiny)
shinyServer(function(input, output) {
rv = reactiveValues(data = input$num)
observeEvent(input$USD, { rv$data <- (input$num * 0.0225) })
observeEvent(input$INR, { rv$data <- (input$num*0.1) })
output$curve <- renderPlot({
hist(rv$data)
})
}
)
【问题讨论】:
标签: r shiny shiny-server