如何解决根据用户限制SelectInput
我目前正在尝试构建一个应用程序,以可视化随时间推移的员工表现。我正在尝试创建一个受密码保护的仪表板,其中标记为管理员的用户可以查看所有其他用户统计信息,非管理员用户只能查看自己的统计信息。但是我无法使它工作。这是我到目前为止所拥有的。用户列表是与他们的用户名匹配的雇员(2个变量),凭据列表是用户名和密码(2个变量)。问题出在观察功能imo上。如果用户不是管理员,我希望他们的selectinput按钮锁定在自己的名字上。即。 session $ user == users $ user
任何指导将不胜感激。
data<-read.csv("Data/data.csv")
data$Create.Date<-as.Date(data$Create.Date)
credentials<-unique(read.csv("Data/credentials.csv"))
ui<-secure_app(head_auth=tags$script(inactivity),dashboardPage(
dashboardHeader(title = "Services Dashboard"),dashboardSidebar(
selectInput("name","Select a User",users[,1]),daterangeInput("date","Select a Date Range",format="mm-dd-yy"),actionButton("go","Go")
),dashboardBody(
plotlyOutput("plot"),tableOutput("table"),)
)
)
server<-function(input,output,session){
res_auth<-secure_server(check_credentials = check_credentials(credentials))
user<-reactive({
session$user
}
)
manager<-reactive({
if(user()=="manager"){
return(TRUE)
}else{
return(FALSE)
}
})
observe({
if(manager()==FALSE){
updateSelectInput(session,"names","Select A User",choices=users$user[users$username==user()])
}
})
masterdata<-eventReactive(input$go,{
data %>%
filter(
as.Date(Create.Date) >= as.Date(input$date[1]),as.Date(Create.Date) <= as.Date(input$date[2]),Staff.Created == input$name)
})
aggdata<-eventReactive(input$go,Staff.Created == input$name)%>%
summarise(`Services Provided in Period Selected`=sum(count))
})
output$plot<-renderPlotly({
ggplot(masterdata(),aes(x=Create.Date,y=count,label=count),xmin=input$date[1],xmax=input$date[2],ymin=0,fill = input$date)+
xlab("Date")+
ylab("Services Provided")+
geom_line(group=1,colour="#000099")+
theme(axis.text.x = element_text(angle=45,vjust=0.5,size=8))+
scale_x_date(breaks = "days",date_labels = "%m.%d")+
geom_point()
})
output$table<-renderTable({
aggdata()
})
}
shinyApp(ui = ui,server = server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。