Question

我想创建一个闪亮的复选框，允许我将输入变量之一的符号从正更改为负

根据输入：

sidebarLayout(
sidebarPanel(
  numericInput(inputId = "CE",
               label = "...:",
               min = 0,
               max = 1,
               value = 0.001),
  checkboxInput("CHECKBOX","Checkbox", FALSE),

....

server <- function(input, output) 
output$Power_dropM <- renderText({
if(input$CHECKBOX=TRUE) {
  bzc <- -(sqrt(abs(input$CE)) * sign(input$CE))    
  bzm <- sqrt(abs(input$ME)) * sign(input$ME)   
}else{
bzc <- sqrt(abs(input$CE)) * sign(input$CE)     
bzm <- sqrt(abs(input$ME)) * sign(input$ME)     
}

生成的这些数字将在以后使用，因此我希望命名保持不变，只是通过选中复选框来更改符号。

但是，此代码给我一个错误：

Error in parse(file, keep.source = FALSE, srcfile = src, encoding = enc) : 
  C:/Users/ghmoen/Documents/SEM/ShinyApp210618.R:76:22: unexpected '='
75:     
76:     if(input$CHECKBOX=
                     ^
Error in sourceUTF8(fullpath, envir = new.env(parent = globalenv())) : 
  Error sourcing C:\Users\ghmoen\AppData\Local\Temp\Rtmp2T3R18\file57b0565138b6

Answer 1

在这种情况下，您的错误是由if(input$CHECKBOX=TRUE)引起的。要检查是否相等，您需要使用双=，因此if(input$CHECKBOX==TRUE)。在这种情况下，由于您的变量是布尔值，甚至可以简化为if(input$CHECKBOX)。

顺便说一句，一种稍微简单的更改符号的方法可能是向变量添加+1或-1的乘数。例如，仅更改符号，您可以执行以下操作：

library(shiny)

# Create ui
ui <- fluidPage(
  numericInput('bzc','bzc',value=2),
  numericInput('bzm','bzm',value=2),
  checkboxInput('change_sign','Change sign'),
  textOutput('text')
)

server <- function(input, output) {

  output$text <- renderText({
    bzc = ifelse(input$change_sign,-1,1) * input$bzc
    bzm = input$bzm
    paste0('bzc: ', bzc, ', bzm: ', bzm)
  })

}

shinyApp(ui = ui, server = server)

闪亮的复选框

1 个答案: