- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
在我的 R shiny 应用程序中,它有一个仪表和一个单选按钮,我想根据所选的单选按钮选项动态调整仪表标题。
我正在使用 ShinyDash 作为一个包来生成我的仪表。
可以使用以下命令下载并安装 ShinyDash 包:
devtools::install_github("ShinyDash", "trestletech")
下面是我的可重现示例,它只是对提供的 shiny dash example 稍作改编的版本.调整只是创建一个单选按钮选项,这是我希望仪表连接到的。我在 ui.R
文件中添加了我认为应该更改的注释,以及我认为应该大致更改为的内容。但是尝试它会导致错误。
第一部分是ui.R
文件
# ui.R
library(shiny)
library(ShinyDash)
shinyUI(bootstrapPage(
h1("ShinyDash Example"),
gridster(tile.width = 250, tile.height = 250,
gridsterItem(col = 1, row = 1, size.x = 1, size.y = 1,
sliderInput("rate", "Rate of growth:",
min = -0.25, max = .25, value = .02, step = .01),
sliderInput("volatility", "Volatility:",
min = 0, max = .5, value = .25, step = .01),
sliderInput("delay", "Delay (ms):",
min = 250, max = 5000, value = 3000, step = 250),
tags$p(
tags$br(),
tags$a(href = "https://github.com/trestletech/ShinyDash-Sample", "Source code")
)
),
gridsterItem(col = 2, row = 1, size.x = 2, size.y = 1,
lineGraphOutput("live_line_graph",
width=532, height=250, axisType="time", legend="topleft"
)
),
gridsterItem(col = 1, row = 2, size.x = 1, size.y = 1,
gaugeOutput("live_gauge", width=250, height=200, units="CPU", min=0, max=200, title="Cost per Unit") #THIS IS THE PART THAT NEEDS CHANGING...perhaps something like gaugeOutput("live_gauge", width=250, height=200, units="CPU", min=0, max=200, title=input$guage_title_options)
),
gridsterItem(col = 2, row = 2, size.x = 1, size.y = 1,
tags$div(class = 'grid_title', 'Status'),
htmlWidgetOutput('status',
tags$div(id="text", class = 'grid_bigtext'),
tags$p(id="subtext"),
tags$p(id="value",
`data-filter`="round 2 | prepend '$' | append ' cost per unit'",
`class`="numeric"))
),
gridsterItem(col = 3, row = 2, size.x = 1, size.y = 1,
radioButtons('guage_title_options',label='Guage title options',choices=c("Cost per Unit","Cost per year"),selected='Cost per unit')
)
)
))
下一位是server.R
文件
# server.R
library(shiny)
library(ShinyDash)
library(XML)
library(httr)
shinyServer(function(input, output, session) {
all_values <- 100 # Start with an initial value 100
max_length <- 80 # Keep a maximum of 80 values
# Collect new values at timed intervals and adds them to all_values
# Returns all_values (reactively)
values <- reactive({
# Set the delay to re-run this reactive expression
invalidateLater(input$delay, session)
# Generate a new number
isolate(new_value <- last(all_values) * (1 + input$rate + runif(1, min = -input$volatility, max = input$volatility)))
# Append to all_values
all_values <<- c(all_values, new_value)
# Trim all_values to max_length (dropping values from beginning)
all_values <<- last(all_values, n = max_length)
all_values
})
output$weatherWidget <- renderWeather(2487956, "f", session=session)
# Set the value for the gauge
# When this reactive expression is assigned to an output object, it is
# automatically wrapped into an observer (i.e., a reactive endpoint)
output$live_gauge <- renderGauge({
running_mean <- mean(last(values(), n = 10))
round(running_mean, 1)
})
# Output the status text ("OK" vs "Past limit")
# When this reactive expression is assigned to an output object, it is
# automatically wrapped into an observer (i.e., a reactive endpoint)
output$status <- reactive({
running_mean <- mean(last(values(), n = 10))
if (running_mean > 200)
list(text="Past limit", widgetState="alert", subtext="", value=running_mean)
else if (running_mean > 150)
list(text="Warn", subtext = "Mean of last 10 approaching threshold (200)",
widgetState="warning", value=running_mean)
else
list(text="OK", subtext="Mean of last 10 below threshold (200)", value=running_mean)
})
# Update the latest value on the graph
# Send custom message (as JSON) to a handler on the client
sendGraphData("live_line_graph", {
list(
# Most recent value
y0 = last(values()),
# Smoothed value (average of last 10)
y1 = mean(last(values(), n = 10))
)
})
})
# Return the last n elements in vector x
last <- function(x, n = 1) {
start <- length(x) - n + 1
if (start < 1)
start <- 1
x[start:length(x)]
}
最佳答案
您需要使用 renderUI 函数创建响应式 UI 输出:
你需要放入ui.R
.......
gridsterItem(col = 1, row = 2, size.x = 1, size.y = 1,
uiOutput("live_gauge_title")
),
.......
在server.R中
shinyServer(function(input, output, session) {
output$live_gauge_title = renderUI({
gaugeOutput("live_gauge", width=250, height=200, units="CPU", min=0, max=200, title=input$guage_title_options)
})
......
关于r - Shiny 的动态仪表标题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32747858/
在 JavaScript 中,我们可以动态创建 元素并附加到 部分,以便为大量元素应用 CSS 规则。 这种方法的优点或缺点是什么? 如果它确实提供了与元素上的 javascript 迭代相比的性
我有这个代码 import "./HTTPMethod.dart"; import '../../DataModel/DataModel.dart'; mixin RouterMixin { HT
哪些 OLAP 工具支持动态、动态地创建维度或层次结构? 例如,层次结构将成员定义为:“前 5 名”、“前 6-10 名”、“其他”... 计算成员是通常的答案,我正在寻找不同的东西。计算器的问题。成
我正在 CakePHP 中创建一个“表单编辑器”。 该界面允许用户选择要应用于字段的验证,例如数字、电子邮件等 因此,我需要根据用户输入为模型动态创建验证。为此,我可以使用验证对象:https://b
这是一个场景: 我有一个Web服务,我们将其称为部署在tomcat(轴)上的StockQuoteService。通过此 Web 服务公开了 getStockQuote() 方法。 现在,我想构建一个
我正在尝试从服务器获取 JSON 响应并将其输出到控制台。 Future login() async { var response = await http.get( Uri.
我从另一个问题中得到了这段代码(感谢 chunhunghan)。我需要创建一个登录屏幕,并尝试根据服务器发回给我的响应来验证用户凭据,但是每次我尝试运行代码时,它都会给我“未处理的异常:Interna
当我在“Dart”主程序中运行它时,一切正常,并且我得到了一个与会者列表。但是,当我在我的 Flutter 应用程序中调用它时,出现错误: flutter:“List”类型不是“List>”类型的子类
本文实例为大家分享了js实现验证码动态干扰的具体代码,供大家参考,具体内容如下 效果一 效果二 代码一 ?
目前我正在为我的网站使用 No-Ip,我想使用 cloudflare 来抵御 ddos 和机器人程序。我注意到您需要一个用于 cloudflare 的域。我还搜索了网络,发现了一个叫做 cloud
有没有办法在 Excel VBA 中构建动态 if 语句?基本上我正在尝试创建一个参数化计算,用户将能够输入不同的变量,即 变量 1 “变量 2” “变量 3” 在这种情况下 变量 1 是单元格引用
大家好, 请查看上面的图片,我有两张 table 。在下面代码的第一个表中,我得到了这种格式。 但我想像 Table2 那样格式化,每个合并单元格中的行数是动态的,而且不一样。 有没有办法像table
如何根据我添加的 View 修改标题部分的高度?heightForHeaderInSection在 viewForHeaderInSection 之前被调用我不知道 View 大小,直到我创建它。 最
是否存在在运行时生成 AST/解析树的解析器?有点像一个库,它会接受一串 EBNF 语法或类似的东西并吐出数据结构? 我知道 antlr、jlex 和他们的同类。他们生成可以做到这一点的源代码。 (喜
我在持有汽车制造商的表格上有一个 MultipleChoiceField。我想将我的汽车数据库过滤到已检查的品牌,但这会导致问题。如何动态获取所有 Q(make=...) 语句? 我如何开始:['va
$end = preg_replace($pattern, $replacement, $str); 如何使替换字符串 $replacement 随 $str 中的每次匹配而变化?例如,我想用关联的图
我正在编写一个 VBA 程序,用于过滤表中的值。我试图使其成为一个适用于您提供的所有表格的通用程序。在我的程序中,我必须设置它正在过滤的表的范围:Set rng = dataSheet.Range("
我正在循环一个元素数组,并且我想使用给定的模板递归地显示该元素 然后在该模板内使用带有切换功能的按钮来显示/隐藏给定元素的Child的更深级别模板(Child也是一个元素) 这是我的模板
从客户端(html)发送表单,服务器端通过选择选项之一决定运行哪个函数。 const decideWho = (form) => { const choice = form.choice; c
我有一个具有以下属性的按钮: circle_normal.xml(在 res/drawable 中) circle.xml(在 res/drawable 中)
我是一名优秀的程序员,十分优秀!