Alice Townsend

Results 6 comments of Alice Townsend

` observe({ updateF7Slider(session,inputId = "mood",min = 0,max = 10,value = ifelse( as.Date(as.character(input$date_1),format = "%Y-%m-%d") %in% as.Date(format(strptime(as.character(new_Data$Date), "%m/%d/%y"),"%Y-%m-%d"),"%Y-%m-%d"), new_Data[which(as.Date(format(strptime(as.character(new_Data$Date), "%m/%d/%y"),"%Y-%m-%d"),"%Y-%m-%d") == as.Date(as.character(input$date_1),format = "%Y-%m-%d")),]$Mood, 5), scale = TRUE,scaleSteps = 2,scaleSubSteps =...

Here is a reproducible example below... ```r library(shiny) library(shinyMobile) data

Unfortunately, this solution does not work for my app :( not sure why.

I am having this issue also.. is there a way to do this in the forceNetwork node labels?