R侧边栏面板的闪亮文本滚动

Question

我有以下侧栏面板在R闪亮的仪表板

dashboardSidebar(
tags$style(".fa-ship {color:#5DADE2}"),
tags$style(".fa-shopping-cart {color:#5DADE2}"),
tags$style(".fa-dollar {color:#5DADE2}"),
tags$style(".fa-keyboard-o {color:#5DADE2}"),
tags$style(".fa-line-chart {color:#5DADE2}"),

sidebarMenu(
  menuItem("Vessel Line-Up Coal Quantity", tabName = "coal_quantity",
           icon = icon("ship", lib="font-awesome")),

  menuItem("Coal Stocks at Port", tabName = "coal_stocks",
           icon = icon("fa fa-shopping-cart", lib="font-awesome")),

  menuItem("Coal Price", tabName = "coal_quan_price",
           icon = icon("dollar", lib="font-awesome")),

  menuItem("Forecasting Weeks", tabName = "man_input",
           icon = icon("keyboard-o", lib="font-awesome"),
           numericInput("forecast_days", "Week ahead forecast:",5, min = 1, max = 500)
  ),

  menuItem("Coal Price Forecasting", tabName = "coal_forecasting",
           icon = icon("line-chart", class = "fa-spin",lib="font-awesome"))

)
),

我想为侧边栏中的Coal Price forecasting文本添加文本滚动效果。如何添加？

Answer 1

这是你想要的吗？

rm(list = ls())
library(shiny)
library(shinydashboard)

ui <- fluidPage(
  dashboardPage(
    dashboardHeader(title = "Text Scrolling"),
    dashboardSidebar(
      tags$style(".fa-ship {color:#5DADE2}"),
      tags$style(".fa-shopping-cart {color:#5DADE2}"),
      tags$style(".fa-dollar {color:#5DADE2}"),
      tags$style(".fa-keyboard-o {color:#5DADE2}"),
      tags$style(".fa-line-chart {color:#5DADE2}"),

      sidebarMenu(
        menuItem("Vessel Line-Up Coal Quantity", tabName = "coal_quantity",
                 icon = icon("ship", lib="font-awesome")),

        menuItem("Coal Stocks at Port", tabName = "coal_stocks",
                 icon = icon("fa fa-shopping-cart", lib="font-awesome")),

        menuItem("Coal Price", tabName = "coal_quan_price",
                 icon = icon("dollar", lib="font-awesome")),

        menuItem("Forecasting Weeks", tabName = "man_input",
                 icon = icon("keyboard-o", lib="font-awesome"),
                 numericInput("forecast_days", "Week ahead forecast:",5, min = 1, max = 500)
        ),
        menuItem(
          HTML('<marquee behavior="scroll" direction="left">Coal Price Forecasting</marquee>'),
          "Coal Price Forecasting", tabName = "coal_forecasting",
                 icon = icon("line-chart", class = "fa-spin",lib="font-awesome"))
      )
    ),
    dashboardBody()
  )
)

server <- function(input, output, session){}

shinyApp(ui, server)

​

​