在下面的例子中,numberInput
“Number C”被计算并更新为“Number A”除以“Number B”。当结果是无限小数时,这会产生一个带有大量数字的数字“Number C”。我想将无限小数舍入到第二或第三位数,使“C号”的外观更容易阅读。但是,在同一时间,我不想将round
函数应用于num_C
,因为在现实世界中,我想将“数字C”应用于其他计算,我想按原样使用该数字。换句话说,我想找到一种方法来格式化数字的外观而不是格式值,例如格式化Excel电子表格中的单元格以仅显示有限的数字但不更改实际值。这有可能在Shiny中完成吗?
library(shiny)
# Define UI
ui <- fluidPage(
numericInput(inputId = "A", "Number A", value = 2),
numericInput(inputId = "B", "Number B", value = 3),
numericInput(inputId = "C", "Number C [A/B]", value = 1)
)
# Server logic
server <- function(input, output, session){
observe({
req(input$A, input$B)
num_C <- input$A/input$B
updateNumericInput(
inputId = "C",
session = session,
value = num_C
)
})
}
# Complete app with UI and server components
shinyApp(ui, server)
你可以使用reactive
表达式来表达num_C
library(shiny)
# Define UI
ui <- fluidPage(
numericInput(inputId = "A", "Number A", value = 2),
numericInput(inputId = "B", "Number B", value = 3),
numericInput(inputId = "C", "Number C [A/B]", value = 1)
)
# Server logic
server <- function(input, output, session){
num_C <- reactive({
req(input$A, input$B)
input$A / input$B
})
observe(
updateNumericInput(
inputId = "C",
session = session,
value = format(num_C(), digits = 2))
)
}
# Complete app with UI and server components
shinyApp(ui, server)
然后num_C()
将返回“未舍入”值,而我们在format(num_C(), digits = 2)
中使用舍入值updateNumericInput
。
对于它的价值,这是一个不完整的更新
library(shiny)
# Define UI
ui <- fluidPage(
numericInput(inputId = "A", "Number A", value = 2),
numericInput(inputId = "B", "Number B", value = 3),
numericInput(inputId = "C", "Number C [A/B]", value = 1),
textOutput("value"),
textOutput("rounded_value")
)
# Server logic
server <- function(input, output, session){
num_C <- reactiveValues(
value = NULL,
rounded_value = NULL
)
observeEvent(input$A | input$B, {
num_C$value <- input$A / input$B
num_C$rounded_value <- round(num_C$value, 1)
})
observeEvent(input$C, {
num_C$value <- input$C
num_C$rounded_value <- input$C
})
output$value <- renderText(
sprintf("Number C = %f", num_C$value)
)
output$rounded_value <- renderText(
sprintf("Number C (rounded) = %f", num_C$rounded_value)
)
}
# Complete app with UI and server components
shinyApp(ui, server)
我们的想法是使用reactiveValues
来跟踪数字C的完整精度和舍入值。这样可以实现
numericInput
更改数字A,B将正确计算(并显示)textOutput
s中C的完整精度和舍入数字。numericInput
更改数字C也将正确显示textOutput
s中的完整精度数字(等于圆形)。但是,当数字A和B被更改时,我使用updateNumericInput
更新C的值并使用舍入数字是不成功的。
未完待续...
我只是通过为flag
添加一个observeEvent
和一个value <- reactiveValue()
来改变Maurits的代码,它保留了实际值。现在,“C”将始终显示舍入值,但value
将存储实际值。
我希望这很有用......
library(shiny)
# Define UI
ui <- fluidPage(
numericInput(inputId = "A", "Number A", value = 2),
numericInput(inputId = "B", "Number B", value = 2),
numericInput(inputId = "C", "Number C [A/B]", value = 1),
textOutput("value"),
textOutput("rounded_value")
)
# Server logic
server <- function(input, output, session){
value <- reactiveVal(1)
rounded_value <- reactiveVal()
flag <- reactiveVal(T)
observeEvent(input$A | input$B, {
value(input$A / input$B)
rounded_value(round(value(), 2))
})
observeEvent(input$C, {
if(flag()){
value(input$C)
rounded_value(round(input$C, 2))
}else{
flag(T)
}
})
observeEvent(value(),{
flag(F)
updateNumericInput(session, "C", value = rounded_value())
})
output$value <- renderText(
sprintf("Number C = %f", value())
)
output$rounded_value <- renderText(
sprintf("Number C (rounded) = %f", rounded_value())
)
}
# Complete app with UI and server components
shinyApp(ui, server)
最简单的事情是计算qazxsw poi的长度并应用舍入数字 - 同时将真值保存为虚拟变量:
input$C
感谢@Maurits Evers的大部分代码。