我正在传递TempDatamessage,以便在用户登录无效的登录详细信息传递给我时传递消息“ login invalid” tempdata。我只需要隐藏5秒钟即可自动刷新,而无需刷新。
library(datasets) #datasets::airquality
library(ggplot2)
library(gganimate)
library(dplyr)
g <- airquality %>%
group_by(Month) %>%
mutate(mean_wind=mean(Wind),
mean_temp=mean(Temp)) %>%
ggplot()+
geom_point(aes(Wind,Temp, col= Solar.R))+
geom_hline(aes(yintercept = mean_temp), color='blue',linetype='dashed')+
geom_vline(aes(xintercept = mean_wind), color='green',linetype='dashed')+
scale_color_gradient(low='yellow',high='red')+
theme_classic()+
xlab("Wind")+
ylab("Temp")+labs(color="Solar.R")
animated_g <- g + transition_time(as.integer(Month))+labs(title='Month: {frame_time}')
animate(animated_g, nframes=18)
如何隐藏消息
在“我正在通过的页面”视图中
TempData["mesage"] = "Your User Id Is Not Activated, Please
Contact Our Support";
答案 0 :(得分:1)
文档准备就绪后,您需要调用javascript。
示例:
<div class="cornerpage">
<h8 id='message'>@TempData["message"]</h8>
</div>
<script type="text/javascript">
$(function(){
$('#message').hide(1000);
});
</script>
请参见this,以获取更多帮助。
希望对您有帮助。