个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
26
4
我的 Shiny 仪表板上有五个标签。这五个选项卡中有四个有自己的表格。这些表中的每一个都彼此不同，并且具有不同的日期范围。我希望有一个选项，当用户在其中一个选项卡中输入日期输入时，它不会影响其他表及其输入范围。但是，对于我下面的代码，情况并非如此。如果我在第一个选项卡中选择日期范围，这将影响其他选项卡中显示的日期。下面是我的代码
#ui.R
#----
# Header -----------------------------------------------------------------------|
header<-dashboardHeader( title = "Marketing Dashboard"
)
# Sidebar ----------------------------------------------------------------------|
sidebar<-dashboardSidebar(
sidebarMenu(
menuItem("Overview", tabName ="overview", icon = icon("dashboard")),
menuItem("User", tabName ="user", icon = icon("user")),
menuItem("Behavior", tabName ="behavior", icon = icon("people-carry")),
menuItem("Finance", tabName ="finance", icon = icon("piggy-bank")),
menuItem("Weather", tabName ="weather", icon = icon("bolt"))
)
)
# Body -------------------------------------------------------------------------|
body<-dashboardBody(theme = "solar.css",
tabItems(
tabItem(tabName = "overview",
fluidRow(
dateRangeInput("date",
label = 'Date range input',
start = range(tib1$start_time)[2] - 7, end = range(tib1$start_time)[2],
min = range(tib1$start_time)[1], max = range(tib1$start_time)[2]
)
),
fluidRow(
DT::dataTableOutput("overviewtable")
)
),
tabItem(tabName = 'user',
fluidRow(
dateRangeInput("date",
label = 'Date range input',
start = range(tib2$end_time)[2] - 7, end = range(tib2$end_time)[2],
min = range(tib2$end_time)[1], max = range(tib2$end_time)[2]
)
),
fluidRow(
DT::dataTableOutput("usertable")
)
),
tabItem(tabName = 'behavior',
fluidRow(
dateRangeInput("date",
label = 'Date range input',
start = range(tib3$start_time)[2] - 7, end = range(tib3$start_time)[2],
min = range(tib3$start_time)[1], max = range(tib3$start_time)[2]
)
),
fluidRow(
DT::dataTableOutput("behaviortable")
)
),
tabItem(tabName = 'finance',
fluidRow(
dateRangeInput("date",
label = 'Date range input',
start = range(tib4$start_time)[2] - 7, end = range(tib4$start_time)[2],
min = range(tib4$start_time)[1], max = range(tib4$start_time)[2]
)
),
fluidRow(
DT::dataTableOutput("financetable")
)
),
tabItem(tabName = 'weather',
fluidRow(
tags$iframe(
seamless = "seamless",
src = "personal",
height = 800,
width = 1400
)
)
)
)
)
# UI ---------------------------------------------------------------------------|
ui = dashboardPage(
header,
sidebar,
body
)
# server.R
#---------
server <- function(input,output){
#Reactive for dateRangeInput in overview
overviewdata<- reactive({
filter(tib1, between(start_time, input$date[1], input$date[2]))
})
#Table for overview
output$overviewtable<- DT::renderDataTable({
DT::datatable(data =overviewdata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
#User Section -----------------------------------------------------------------|
userdata<- reactive({
filter(tib2, between(end_time, input$date[1], input$date[2]))
})
#Table for user
output$usertable<- DT::renderDataTable({
DT::datatable(data =userdata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
#Behavior section -------------------------------------------------------------|
behaviordata<- reactive({
filter(tib3, between(start_time, input$date[1], input$date[2]))
})
#Table for overview
output$behaviortable<- DT::renderDataTable({
DT::datatable(data = behaviordata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
#Finance section -------------------------------------------------------------|
financedata<- reactive({
filter(tib4, between(start_time, input$date[1], input$date[2]))
})
#Table for overview
output$financetable<- DT::renderDataTable({
DT::datatable(data = financedata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
}
reactive({})服务器端的函数会知道 dateinpute 范围来自 tab 1 、 2 等。
最佳答案
您的 dateRangeInput将 inputId 作为参数。您可以分配不同的 ID，例如date_user、date_finance 等，而不仅仅是“日期”。然后在该选项卡中过滤时引用每个特定的 date_id。或者，您可以构建一个 module您使用 ns 多次调用功能:
#ui.R
#----
# Header -----------------------------------------------------------------------|
header<-dashboardHeader( title = "Marketing Dashboard"
)
# Sidebar ----------------------------------------------------------------------|
sidebar<-dashboardSidebar(
sidebarMenu(
menuItem("Overview", tabName ="overview", icon = icon("dashboard")),
menuItem("User", tabName ="user", icon = icon("user")),
menuItem("Behavior", tabName ="behavior", icon = icon("people-carry")),
menuItem("Finance", tabName ="finance", icon = icon("piggy-bank")),
menuItem("Weather", tabName ="weather", icon = icon("bolt"))
)
)
# Body -------------------------------------------------------------------------|
body<-dashboardBody(theme = "solar.css",
tabItems(
tabItem(tabName = "overview",
fluidRow(
dateRangeInput("date_overview",
label = 'Date range input',
start = range(tib1$start_time)[2] - 7, end = range(tib1$start_time)[2],
min = range(tib1$start_time)[1], max = range(tib1$start_time)[2]
)
),
fluidRow(
DT::dataTableOutput("overviewtable")
)
),
tabItem(tabName = 'user',
fluidRow(
dateRangeInput("date_user",
label = 'Date range input',
start = range(tib2$end_time)[2] - 7, end = range(tib2$end_time)[2],
min = range(tib2$end_time)[1], max = range(tib2$end_time)[2]
)
),
fluidRow(
DT::dataTableOutput("usertable")
)
),
tabItem(tabName = 'behavior',
fluidRow(
dateRangeInput("date_behaviour",
label = 'Date range input',
start = range(tib3$start_time)[2] - 7, end = range(tib3$start_time)[2],
min = range(tib3$start_time)[1], max = range(tib3$start_time)[2]
)
),
fluidRow(
DT::dataTableOutput("behaviortable")
)
),
tabItem(tabName = 'finance',
fluidRow(
dateRangeInput("date_finance",
label = 'Date range input',
start = range(tib4$start_time)[2] - 7, end = range(tib4$start_time)[2],
min = range(tib4$start_time)[1], max = range(tib4$start_time)[2]
)
),
fluidRow(
DT::dataTableOutput("financetable")
)
),
tabItem(tabName = 'weather',
fluidRow(
tags$iframe(
seamless = "seamless",
src = "personal",
height = 800,
width = 1400
)
)
)
)
)
# UI ---------------------------------------------------------------------------|
ui = dashboardPage(
header,
sidebar,
body
)
# server.R
#---------
server <- function(input,output){
#Reactive for dateRangeInput in overview
overviewdata<- reactive({
filter(tib1, between(start_time, input$date_overview[1], input$date_overview[2]))
})
#Table for overview
output$overviewtable<- DT::renderDataTable({
DT::datatable(data =overviewdata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
#User Section -----------------------------------------------------------------|
userdata<- reactive({
filter(tib2, between(end_time, input$date_user[1], input$date_user[2]))
})
#Table for user
output$usertable<- DT::renderDataTable({
DT::datatable(data =userdata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
#Behavior section -------------------------------------------------------------|
behaviordata<- reactive({
filter(tib3, between(start_time, input$date_behaviour[1], input$date_behaviour[2]))
})
#Table for overview
output$behaviortable<- DT::renderDataTable({
DT::datatable(data = behaviordata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
#Finance section -------------------------------------------------------------|
financedata<- reactive({
filter(tib4, between(start_time, input$date_finance[1], input$date_finance[2]))
})
#Table for overview
output$financetable<- DT::renderDataTable({
DT::datatable(data = financedata(),
extensions = 'Buttons',
options = list(
dom = "Blfrtip",
buttons =
list("copy", list(
extend = "collection",
buttons = c("csv","excel","pdf"),
text ="Download"
))#End of button customization
))
})
}
关于r - 如何在 Shinydashboard 中创建每个选项卡都有自己的日期输入范围的选项，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/63632736/
26
4
0
我的数据库中有两张表，一张用于 field ，另一张用于预订。我需要的是一个查询来选择所有未预订的 field 。见下文: 餐 table 预订具有以下字段: bk_id venue_id 作为(预订
嗨，我是编码新手，我有一些培训项目，其中包括从 HTML 表单输入 MySQL 数据库。它就像你玩过的游戏的日志。第一个日期输入是您开始游戏的时间，第二个日期输入是您完成游戏的时间。但我需要检查器或类
我是这个 sql 编码的新手，我正在尝试学习新的东西。因此，我创建了一个交货表，其中包含一些属性，如商品代码、交货日期、交货数量。所以如何从同一张表中获取第一个交货日期(最小日期)和交货数量以及最晚交
我从支付网关返回了这个日期 2014-05-15T08:40:52+01:00 我得到 2014-05-15T08:40:52 但我无法识别时区 +01:00 的含义 我的位置时区是 UTC−06:0
我快要疯了，请帮忙。 我有一列包含日期时间值。 我需要找到每天的最小值和最大值。 数据看起来像这样 2012-11-23 05:49:26.000 2012-11-23 07:55:43.000
我从 json 数据中获取日期为 2015 年 4 月 15 日晚上 10:15我只想在 html 页面中显示 json 响应数据的时间，例如 10:15 PM这里我放了我的js函数和html代码 J
是否有 javascript 库或其他机制允许我将 .NET 日期/时间格式字符串(即 yyyy-MM-dd HH:mm:ss)传递给 javascript函数并让它相应地解析提供的日期时间值？我一直
我正在使用以下代码以正确的格式获取当前的 UTC 时间，但客户返回并要求时间戳现在使用 EST 而不是 UTC。我搜索了 Google 和 stackoverflow，但找不到适用于我现有代码的答案。
我有以下日期的平均温度数据。我想找到连续至少 5 天低于或高于 0 摄氏度的开始日期。 date_short mean.temp 1 2018-05-18 17.54 2 2018-05-19
它可以在其他网络浏览器中使用，但 IE11 返回无效日期。 为了调试我使用了下面的代码。 console.log('before - ' + date.value); date.value = new
我在 Excel 中有一个数据的 Web 提取，其中日期列带有/Date(1388624400000)/。我需要在 Excel 中将其转换为日期。 最佳答案 能够从 here 中推断出它. 假设字符串
嗨，我的 Schmema 有一个带有 ISO 日期的字段: ISODate("2015-04-30T14:47:46.501Z") Paypal 在成功付款后以该形式返回日期对象: Time/Date
我的 table : CREATE TABLE `tbdata` ( `ID` INT(10) NOT NULL AUTO_INCREMENT, `PatientID` INT(10) NOT
我正在 Ubuntu 服务器 12.04 中编写一个 shell 脚本，它应该比较日志文件中的一些数据。在日志文件中，日期以以下格式给出: [Mon Apr 08 15:02:54 2013] 如您所
我想使用 GROUP BY WITH ROLLUP 创建一个表并获取总行数而不是 null。 $sql ="SELECT IF(YEAR(transaktioner.datum
我正在创建博客文章，在成功迁移我的博客文件后，当我转到我网站的博客页面时返回一个错误(无法解析其余部分:':“Ymd”'来自'post.date|date: "Ymd"') 我似乎无法确定这是语法错误
我正在尝试获取要插入到 CAML 查询中的月份范围，即:2010-09-01 和 2010-09-30。 我使用以下代码生成这两个值: var month = "10/2010"; var month
如何将代码document.write("直到指定日期")更改为writeMessage(date)中的日期？此外，writeMessage(date) 中的日期未正确显示(仅显示年份)。感谢您帮助解
我在 Windows (XP) 和 Linux 上都尝试过 utime()。在 Windows 上我得到一个 EACCES 错误，在 Linux 上我没有得到任何错误(但时间没有改变)。我的 utim
我正在尝试计算发生在同一日期的值的总和(在 XYZmin 中)。 我的数据看起来像这样， bar <- structure(list(date = structure(c(15622, 15622,
我是一名优秀的程序员,十分优秀！