标签:shiny javascript r
您好,以下是我的Shiny应用中UI部分开头的代码:
shinyUI(navbarPage("Boston Food Inspections", id="nav",
tabPanel("Interactive map",
div(class="outer",
tags$head(
includeCSS("styles.css")
),
leafletOutput("map", width="100%", height = "100%"),
absolutePanel(id ="controls", class ="panel panel-default", fixed=TRUE,
draggable=TRUE, top=60, left='auto', right=20, bottom='auto',
width=300, height='auto',
checkboxGroupInput("status", h4("Business License Status"), bstatus,
selected = "Active"),
checkboxGroupInput("violations", h4("Violation"), violationType,
selected="Rodents"),
sliderInput('period', h4("Select Time Period"),
min = 2008,
max = 2015,
value = c(2008,2008),
sep="", step=1, ticks=FALSE,animate=animationOptions(loop=T)), round=TRUE
)
)
),
现在,我的动画选项指定滑块将具有“播放/暂停”按钮.但是,sliderInput仅在用户打开应用程序时才开始播放.我想知道是否有人知道一种简单的方法来更改javascript,以便只要页面加载就可以开始SliderInput的播放?
谢谢.
解决方法:
使用jQuery加载页面后,您可以单击该按钮.这是一个例子:
server <- function(input, output) {
}
ui <- fluidPage(
sliderInput("obs", "Number of observations:",
min = 10, max = 500, value = 100,
animate=T),
tags$script("$(document).ready(function(){
setTimeout(function() {$('.slider-animate-button').click()},10);
});")
)
shinyApp(ui = ui, server = server)
tags $script部分单击该按钮.我添加了setTimeout以将单击延迟10毫秒,以等待附加单击处理程序.
标签:shiny,javascript,r 来源: https://codeday.me/bug/20191027/1948459.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。