你好,我在闪亮的仪表板上工作。下面的文章帮助我在shiny中为fileInput添加了一个图标。 Adding/removing icon in downloadButton() and fileInput() 我希望如果有一种方法可以将图标添加到selectInput以及闪亮。我想在我的侧边栏菜单中保持图标的一致性。 我试着使用下面的代码,但是它不能满足我的需要 sidebarItem(selectInput("vars", "Select a variable:",choices=c("Users",
"New_Users"
我有一个包含多个表的MySQL数据库。现在,我想在闪亮的仪表板中创建一个下拉菜单,它可以根据表中每一列的唯一值自动添加值。
我当前的代码如下所示
ui <- fluidPage(
numericInput("nrows", "Enter the number of rows to display:", 5),
tableOutput("tbl")
)
server <- function(input, output, session) {
output$tbl <- renderTable({
我正在尝试理解如何在闪亮的应用程序中使用R6类对象,并且我希望使用selectInput()选项在R6对象中呈现数据。select input选项包含R6对象的名称。 我有以下对象: library(R6)
Person <- R6Class("Person", list(
name = NULL,
age = NA,
sons = NA,
initialize = function(name, age = NA, sons = NA) {
self$name <- name
self$age <- age
self$
我试图在闪亮的仪表板中使用updateSelectInut,但没有效果。我尝试过多种方法,但无法获得selectInput的更新。数据有一个VG和AG列,每个列都有几个因素。我想做的是,当我选择一个VG时,它只更新该VG文件中存在的AG值:
VG AG
A 1
A 2
B 1
B 3
这样,如果选择VG,那么AG选项将为1,3。
守则如下:
UI<-...
column(3,selectInput("VG.ETD", label = h4("VG"),choices = levels(data$VG),selected =
在闪亮中,如何将selectInput部件的值传递给另一个小部件?这就是我想要达到的目标:
selectInput("dataset", "",
choices = c("A", "B", "C"), # A to C are datasets in memory
selected = "B")
conditionalPanel("input.tabs === 'tab'",
chec
我正试图在R Markdown中创建一个闪亮的柔性仪表板,它将根据用户的输入显示不同的表。有些表是可格式化的,另一些只是普通表。如果列表中的表都是Formattable,下面的代码将对表进行呈现。
num <- reactive(as.integer(input$qualityDataNum))
renderFormattable(qualityData[[num()]])
但是,由于有些不是可格式化的,所以我想在进行渲染之前进行检查。我没有将表放在列表中,而是创建了下面的代码,以便根据用户输入选择表。它不起作用,我收到一个警告:“如果错误:参数长度为零”。
num <- reac
我有一个闪亮的仪表板,可以输出一些图表。有没有办法添加“共享社交媒体”,让用户按下将这些图表上传到他的facebook或twitter上的帖子?
例如,我想有一个按钮一旦点击,它将分享phonePlot在推特上,而不是链接.
# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(datasets)
# Use a fluid Bootstrap layout
fluidPage(
# Give the