Shiny

问题 I want to translate parts of my UI in a modularized shiny app. As I summarized my simplified code, in the first module I have no problem with i18n as it is enters to the module 1 with argument i18n and translation works well in registerUI(based on recommendation here). But my problem is with the UI of module 2 (M2UI) which this function itself called within the server of module 1 (register) to return a modal dialogue. But i18n not detected and translation not works on displayed new modal. Any

问题 I'm working with google forms to create a subscription form. As the "date" type question used in google forms is a bit confusing for people with little contact with technology (the people that are going to subscribe are at-risk teenagers), I chose to separate year, month and day of birth in three different questions and then unite then using as.Date. I would upload the .csv file generated by google forms using fileInput and renderTable to show the data. This code works perfectly in the

问题 I have the shiny app below in which the user uploads a file (here I just put the dt in a reactive function) and from there he can choose which columns he wants to display as selectInput() via a pickerInput() . Then he should be able to click on Update2 and see the map. The user should also be able to update the depth values by multiplying all of them with the numericInput() value1 and create a new sliderInput() and therefore update the dataframe that is displayed in the table as well. These

问题 The code below has action button in rendered in html. But when i click the button in second row(id as "ang") there is no modal box showing up. Can anyone help me? Not sure why this logic is not working.. If I put a normal button, it is working library(shiny) library(shinydashboard) library(DT) number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE))) # number_compare$direction <- ifelse( # number_compare$X1 < number_compare$X2, # as.character(icon("angle-up")), # as.character

问题 I would like to create a draggable Ui object with insertUI() . A similar object has been created thanks to the actionButton() and it works fine. However, the draggable property has been removed. I tried to add some piece of code such as tags$script('$(".draggable").draggable();') OR tags$script('$(".dragelement").on("dragstart",function(e){e.originalEvent.dataTransfer.setData("Text",e.target.id);});') . However, it doesn't work anymore. Does anybody have an idea ? The following example come

问题 I want something like this to happen in Shiny (but just 1 plot, not 4): THe following steps are the ones that I want for my Shiny app plot: Print an empty plot Draw the red abline Sequentially draw n segments with points Draw blue dotted abline Stop But I got 2 problems with my function that I don't know how to fix: In the slider "n", for example if I put 10, and press "Correr", I get 8 segments first, I want none at first, and when I press the "play" button the pattern I wrote above starts.

问题 I just started to play around in shiny and made a simple app that reads a CSV file and replaces rows of one column with tokens. I would like the user to be able to download the tokenized data as a CSV file. To do this I am using the downloadHandler() function. I have been looking in the documentation for this function, as well as similar questions in here but haven't been able to find a solution. I tried running the app externally as suggested in other similar questions. app.R # Only run

问题 I have a massive dendrogram with hundreds of names on it, that I'd like to be make interactive so that users can draw a box and "zoom in" on the names and part of the tree of interest. The original code for creating it is borrowed from here. Pictured here: I turned it into a shiny app and borrowed some code from here in order to make it zoomable. And it KINDA works. It runs, the two graphs show up, and nothing gives me an error. But it doesn't work as intended. (I'll post code below). What I

问题 I want something like this to happen in Shiny (but just 1 plot, not 4): THe following steps are the ones that I want for my Shiny app plot: Print an empty plot Draw the red abline Sequentially draw n segments with points Draw blue dotted abline Stop But I got 2 problems with my function that I don't know how to fix: In the slider "n", for example if I put 10, and press "Correr", I get 8 segments first, I want none at first, and when I press the "play" button the pattern I wrote above starts.

问题 I have designed a simple dropdownButton from the shinyWidgets package. Somehow I am unable to change the css parameters of the widget. dropdownButton( icon = icon('info'), size = 'sm', right = T, up = F, width = '400px', div('my text', style = 'font-size:10px')) I have tried to follow the css adjustment of the link here shinywidget dropdownButton CSS tag However this only changed the pop-up window's params. I tried to inspect the element and find the css codes but in vain. Ideally I need to