[英]R shiny text scroll of sidebar panel
我在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
文本添加文本滚动效果。 如何添加?
这是你想要的吗?
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)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.