小编Gun*_*oen的帖子

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

从输入：

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 = …

我renderPrint在 ShinyApp 中使用该函数来显示计算结果。结果[1],[2]前面有一个等。

有没有办法摆脱它？

另外，可以更改输出的字体吗？