Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.
Tengo la aplicación “shiny” a continuación en la que quiero agregar controles para desplazamiento y zoom como se muestra aquí utilizando el paquete “panzoom”. Ya he agregado los botones “+/-“, pero ¿qué hay de la opción de reinicio? Si conoces algún otro paquete que pueda hacerlo, siéntete libre de hacerlo. . . . Read more
He utilizado el paquete panzoom para hacer panning y zoom en mi archivo svg en mi aplicación shiny. ¿Existe alguna manera de tener controles como este? library(shiny) library(DiagrammeR) library(magrittr) ui <- fluidPage( tags$head( tags$script(src = "https://unpkg.com/panzoom@9.4.0/dist/panzoom.min.js") ), grVizOutput("grr", width = "100%", height = "90vh"), tags$script( HTML('panzoom($("#grr")[0])') ) ) server <- . . . Read more
Estoy utilizando MotionEvent.ACTION_MOVE para arrastrar una vista hacia arriba o hacia abajo en el eje y. El arrastre funciona perfectamente, sin embargo, me gustaría agregar algo de “resistencia” cuando el arrastre sea hacia ARRIBA. Aquí está mi progreso hasta ahora. MotionEvent.ACTION_DOWN -> { downYValue = event.y rightDY = viewToDrag!!.y – . . . Read more