Início / coding / Perguntas / 78354517
Accepted
firmo23
Asked: 2024-04-19 22:45:37 +0800 CST

Altere a cor do ícone com base na entrada numérica em um aplicativo brilhante

  • 772

Eu tenho um aplicativo brilhante no qual quero que a seta fique vermelha quando o valor for negativo e verde quando o valor for positivo, se o valor for 0, será preto.

library(shiny)
library(shinydashboard)
library(fontawesome)
# Define UI 
ui <- fluidPage(
  
  # Application title
  titlePanel("Numeric Input App"),
  
  # Sidebar layout with input and output definitions
  sidebarLayout(
    
    # Sidebar panel for inputs
    sidebarPanel(
      numericInput("number", "Enter a number:", value = 0)  # Numeric input field
    ),
    
    # Main panel for displaying output
    mainPanel(
      box(
        width=8,title = "ABT",status="primary",solidHeader = T,
        fluidRow(
          column(12,textOutput("output"),
                 column(2,fa("arrow-trend-up", fill = "forestgreen"))
          )
          
        ))
    )
  )
)

# Define server logic
server <- function(input, output) {
  
  # Function to render the output based on user input
  output$output <- renderText({
    paste("You entered:", input$number)  # Display the entered number
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

1 respostas

  1. Best Answer

    Experimente isso

    library(shiny)
library(shinydashboard)
library(fontawesome)
# Define UI 
ui <- fluidPage(
  
  # Application title
  titlePanel("Numeric Input App"),
  
  # Sidebar layout with input and output definitions
  sidebarLayout(
    
    # Sidebar panel for inputs
    sidebarPanel(
      numericInput("number", "Enter a number:", value = 0)  # Numeric input field
    ),
    
    # Main panel for displaying output
    mainPanel(
      box(
        width=8,title = "ABT",status="primary",solidHeader = T,
        fluidRow(
          column(12,textOutput("output"),
                 column(2,uiOutput("myfa"))
          )
          
        ))
    )
  )
)

# Define server logic
server <- function(input, output) {
  
  # Function to render the output based on user input
  output$output <- renderText({
    paste("You entered:", input$number)  # Display the entered number
  })
  
  output$myfa <- renderUI({
    if (input$number >0) {
      mycolor = "forestgreen"
      arw = "arrow-trend-up"
    } else if(input$number == 0) {
      mycolor = "black"
      arw = "arrow-right"
    }else {
      mycolor = "red"
      arw = "arrow-trend-down"
    }
    fa(arw, fill = mycolor)
  })
  
}

# Run the application 
shinyApp(ui = ui, server = server)
    • 1

relate perguntas