闪亮的复选框

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)。要检查相等性，您需要使用 double =，因此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)