dummy commit round two

vizapp/shinyapp/server.R

@@ -1782,6 +1782,7 @@ server <- function(input, output, session) {
         }
 
         if (input$group=="idents") {
+            print("the user wants the idents")
             seuratObject=changeIdents(seuratObject$seuratObject,'idents')
             topMarkers=clusters.markers %>% group_by(cluster)