Shiny

问题 This question is a follow-up to the questions How to save a leaflet map in Shiny, and Save leaflet map in Shiny. I add a toolbar to draw shapes/points on the map that is addDrawToolbar in the leaflet.extras package. That lets users to draw lines, shapes, ... interactively. In the end I want one to be able to save the map with the drawn shapes as a pdf or png. I have coded up the following making use of the answer to the question: How to save a leaflet map in Shiny. But it does not help

问题 I try to get my raw data from SQL Server using (RODBCext) and then deploy my results to my shinyApp this is my code: #loading Packages library(RODBC) library(shiny) library(rsconnect) library(dplyr) library(RODBCext) #global code #connect to DB Test <- odbcDriverConnect("driver={SQL Server};server=***********;database=*******;uid=*****;pwd=******") #build query Orders<- sqlExecute(Test," SELECT WHWorkOrderHeaderId ,OtherLangDescription FROM Warehouse.WHWorkOrderDetails INNER JOIN Warehouse

问题 I try to get my raw data from SQL Server using (RODBCext) and then deploy my results to my shinyApp this is my code: #loading Packages library(RODBC) library(shiny) library(rsconnect) library(dplyr) library(RODBCext) #global code #connect to DB Test <- odbcDriverConnect("driver={SQL Server};server=***********;database=*******;uid=*****;pwd=******") #build query Orders<- sqlExecute(Test," SELECT WHWorkOrderHeaderId ,OtherLangDescription FROM Warehouse.WHWorkOrderDetails INNER JOIN Warehouse

问题 The answer is probably obvious but i've been looking into using the backgroundColor attribute in the DT package to change the color of the full row instead of only the value that i use to select the row and I didn't manage to do it. So basically in my Shiny app, I have a DataTable output in my server file where i wrote this : output$tableMO <- DT::renderDataTable({ datatable(DFSurvieMO, options = list( displayStart= numerMO()-2, pageLength = 15, lengthChange = FALSE, searching =FALSE)

问题 I am creating an app using Shiny and would like to include a thermometer plot, created using the symbols() function. I written the following code for my thermometer plot, and it works perfectly fine in the plot viewer in RStudio: symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, axes = F) However, when I try to use this in Shiny, nothing is displayed on the page. Here's my code: server = function(input, output, session) { ... (not needed for this plot

问题 I have a bunch of strings in a data frame as given below. v1 v2 ARSTNFGATTATNMGATGHTGNKGTEEFR SEQUENCE1 BRCTNIGATGATNLGATGHTGNQGTEEFR SEQUENCE2 ARSTNFGATTATNMGATGHTGNKGTEEFR SEQUENCE3 I want to search and highlight some selected substrings within each string in v1 column. For example, assuming first letter in the substring being searched as "N" and the last letter as "G", and the middle one could be any letter as in "N A G" or "N B G" or "N C G" or "N D G" and so on. To highlight the

问题 New code example below where I'm trying to link selectInput in all three tabs. In the example below, the first two tabs selectInputs are linked but I'm trying to get all three linked. Is there any way to have all three linked? #`````````````````````````````````````` a <- list("2016", "MALE", "25", "50") b <- list("2017", "FEMALE", "5", "100") c <- list("2017", "MALE", "15", "75") d <- list("2016", "MALE", "10", "35") e <- list("2017", "FEMALE","55", "20") data <- rbind(a,b,c,d,e) #```````````

问题 I want to add an actionbutton to reset my inputs. For example here, I want all inputs with "All name" "All gender" and "All age" ... I tried with shinyjs but unfortunately doesnt work Any help will be appreciated l <- NULL l$name <- c('b','e','d','b','b','d','e','e','b','b') l$age <- c(20,20,21,21,20,22,22,30,21,32) l$gender <- c('Female', 'Female', 'Male', 'Female', 'Male','Male', 'Female','Male',"Female","Male") l <- as.data.frame(l) l$name <- as.character(l$name) l$age <- as.numeric(l$age)

问题 Why do I always get the connection error with fromJSON ? Sometimes it is fine. Most of time it is not. > # Load json and other packages. > library(jsonlite) > > # Live server. > server <- 'http://0.0.0.0:3000' > # Stream 143 > key <- '9p06nngO2pcQM03nIJ71dLXNA1v' > > # Retrieve json data from the data platform via the URLs. > streams <- fromJSON(paste(server, '/output/streams', sep=""), flatten=TRUE) Result: Error in open.connection(con, "rb") : Couldn't connect to server If I try again: >

问题 I'm using an reactive event in my shiny app, the reactive output is part of a renderDataTable and I want to change the initial outcome of that function. From the documentary I read: "eventReactive() returns NULL until the action button is clicked. As a result, the graph does not appear until the user asks for it by clicking “Go”." But this does not work with my code. Reproductive Example: library(shiny) library(DT) shinyApp( ui = fluidPage( actionButton("go","Go"), DT::dataTableOutput('tbl'))