Shiny

问题 Friends could help me resolve the following issue: I am inserting three executable codes below, the first generates a map using sftnetworks package, showing the route between two locations. In this case, the two locations to generate the map were defined: from = c(df_spec_clust[1, c("Longitude")], df_spec_clust[1, c("Latitude")]) and to = c (df_spec_prop [4, c ("Longitude")], df_spec_prop [4, c ("Latitude")])] . In the second, I would like to generate the map in Shiny format, but without

问题 Why there are errors below installing shiny in Ubuntu 19.04? > install.packages("shiny") Installing package into ‘/home/lau/R/x86_64-pc-linux-gnu-library/3.6’ (as ‘lib’ is unspecified) also installing the dependency ‘httpuv’ trying URL 'https://cloud.r-project.org/src/contrib/httpuv_1.5.1.tar.gz' Content type 'application/x-gzip' length 1758514 bytes (1.7 MB) ================================================== downloaded 1.7 MB trying URL 'https://cloud.r-project.org/src/contrib/shiny_1.3.2

问题 I am looking for info on having a download button in my app that pulls various files into a zip archive. My app displays a timeline and a datatable, and will have files associated with entries on the datatable. The files will be stored in a directory in the app, and I will have a column of filenames in the datatable. The idea is that when I click the download button, a zip archive will be created that contains a couple of standard files that I point to, a csv of the datatable, a png of the

问题 This is a follow-on question from closing the loop on passing the app and data to a Shiny deployment function: How to use shiny app as a target in drake I would like to deploy a Shiny app directly from a drake plan as below. library(drake) library(shiny) plan <- drake_plan( cars_data = mtcars, deployment = custom_deployment_function(file_in("app.R"), cars_data) ) custom_shiny_deployment <- function(file, data_input) { rsconnect::deployApp( appFiles = file, appName = "cars", forceUpdate = TRUE

问题 I am looking to change the colour of the actual individual check boxes from the standard shiny blue in checkboxGroupInput. I have found the following code as an answer to this question Coloring the checkboxGroupInput choices which will change the colour of the font but not the checkbox themselves. library("shiny") ui <- fluidPage( checkboxGroupInput( inputId = "my_cbgi", label = "Choose Something", choiceNames = list( tags$span("A", style = "color: red;"), tags$span("B", style = "color: red;"

问题 Every time I try to run a shiny app from RStudio Server 1.2 it gets immediately grayed out. This does not happen when deployed on the Shiny Server-apps work fine there. Both are behind https:// links. I tried running the same app from an http:// link and the app ran normally. What is causing this? Steps to reproduce: start a new Shiny app project File > New Project > Shiny Web App click "Run App" with the old faithful app Here is what the javascript console shows: A coworker is also using the

问题 Goal Implement a Shiny app to efficiently visualize and adjust uploaded data sets. Each set may contain 100000 to 200000 rows. After data adjustments are done, the adjusted data can be downloaded. In steps: Data upload Data selection and visualization Data (point) removal Download option Issue While the app works in principal, data visualization and removal take too much time. Code Sample data Some sample data is generated. The data can be uploaded onto the shiny app. The sample data

问题 I would like to have both a persistent sidebar (as in shinydashboard layout) and a navigation bar with tabs (as in shiny::navbarPage layout). I came across this answer that seems to correspond to what I want. The problem is that inputs in the sidebar are not persistent through tabs, i.e when switching tabs, the inputs in the sidebar are not displayed anymore (at the contrary of shinydashboard sidebar for example). Here's an example I cannot really minimize more since a lot of it is CSS:

问题 I would like to have both a persistent sidebar (as in shinydashboard layout) and a navigation bar with tabs (as in shiny::navbarPage layout). I came across this answer that seems to correspond to what I want. The problem is that inputs in the sidebar are not persistent through tabs, i.e when switching tabs, the inputs in the sidebar are not displayed anymore (at the contrary of shinydashboard sidebar for example). Here's an example I cannot really minimize more since a lot of it is CSS:

问题 I have a table and want to color every cell depending on the value (0-100) in X(=6) different shades of blue. The table is shown in a TabPanel. Currently I am using shinyjs to call a javascript function which selects my table and add CSS styling to the <td> tags, depending on the value range. The Problem is, that on the first loading of the table (click on TabPanel), no color is shown, only after reloading again. So I am either looking for a solution in R (without the need for extra