Shiny

问题 I want to display a table of data in a pop-up window by clicking on valueBox . The valueBox itself should work as an actionButton . When I click on the valueBox it should render a table in pop-up window as in the picture below. Can anyone help on this code? My code: library(shiny) library(shinydashboard) data <- iris ui <- dashboardPage( dashboardHeader(title = "Telemedicine HP"), dashboardSidebar(), dashboardBody( fluidRow( valueBox( 60, subtitle = tags$p("Attended", style = "font-size: 200%

问题 I want to display a table of data in a pop-up window by clicking on valueBox . The valueBox itself should work as an actionButton . When I click on the valueBox it should render a table in pop-up window as in the picture below. Can anyone help on this code? My code: library(shiny) library(shinydashboard) data <- iris ui <- dashboardPage( dashboardHeader(title = "Telemedicine HP"), dashboardSidebar(), dashboardBody( fluidRow( valueBox( 60, subtitle = tags$p("Attended", style = "font-size: 200%

问题 I want to be able to copy rows of text from Excel and paste it into the text field in our app like this: Highlight all cells and copy into the Sample labels text field: What we want (each row from Excel is its own entry in the text field) What the app currently does when we paste the rows from Excel (each row from Excel combines into one entry): Is there a way to copy cells into a SelectizeInput-like text field and somehow separate each cell whwen copied from Excel? Thank you. Edit 1

问题 I would like help with the following question: The executable code below generates clusters and shows in a table which industries are part of each cluster. In addition, an alert made by confirmSweetAlert is being displayed when running Shiny to show which industry is being excluded from generating the clusters. If you press the "Confirm" button, the output table is generated with industry 5 being excluded for this example. However, I would like to insert a functionality in the "Not Yet"

问题 I would like help with the following question: The executable code below generates clusters and shows in a table which industries are part of each cluster. In addition, an alert made by confirmSweetAlert is being displayed when running Shiny to show which industry is being excluded from generating the clusters. If you press the "Confirm" button, the output table is generated with industry 5 being excluded for this example. However, I would like to insert a functionality in the "Not Yet"

问题 I would like help with the following question: The executable code below generates clusters and shows in a table which industries are part of each cluster. In addition, an alert made by confirmSweetAlert is being displayed when running Shiny to show which industry is being excluded from generating the clusters. If you press the "Confirm" button, the output table is generated with industry 5 being excluded for this example. However, I would like to insert a functionality in the "Not Yet"

问题 Friends, could you help me with the following problem: The executable code is working correctly. I am using the database via fileInput. It's working. I insert the functionality of when I inserted the database the conditionalPanel appears. So far it's ok. My problem is that when I press the reset button and insert the database again, conditionalPanel no longer appears. I think there must be something on the server reset button. Can you help me? library(shiny) library(ggplot2) library(rdist)

问题 Friends, could you help me with the following problem: The executable code is working correctly. I am using the database via fileInput. It's working. I insert the functionality of when I inserted the database the conditionalPanel appears. So far it's ok. My problem is that when I press the reset button and insert the database again, conditionalPanel no longer appears. I think there must be something on the server reset button. Can you help me? library(shiny) library(ggplot2) library(rdist)

问题 I want to use the output of ggtern() in a shiny app. However it seems to fail due to some constraints. This is what it should look like: This is the actual shiny output: See here for a reproducible example: library(shiny) library(ggtern) ui <- fluidPage( mainPanel( plotOutput("ggtern") ) ) server <- function(input, output) { output$ggtern <- renderPlot({ ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point() }) } shinyApp(ui = ui, server = server) Do I overlook something? 回答1:

问题 I want to use the output of ggtern() in a shiny app. However it seems to fail due to some constraints. This is what it should look like: This is the actual shiny output: See here for a reproducible example: library(shiny) library(ggtern) ui <- fluidPage( mainPanel( plotOutput("ggtern") ) ) server <- function(input, output) { output$ggtern <- renderPlot({ ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point() }) } shinyApp(ui = ui, server = server) Do I overlook something? 回答1: