Shiny

问题 I am looking to add the custom interaction seen at http://dygraphs.com/gallery/#g/interaction under "Custom interaction model" into my Shiny web app. As far as I understand it, this requires attaching some JS to the page and setting the interaction model on the graph: interactionModel : { 'mousedown' : downV3, 'mousemove' : moveV3, 'mouseup' : upV3, 'click' : clickV3, 'dblclick' : dblClickV3, 'mousewheel' : scrollV3 } However, interactionModel does not seem to be listed as a parameter in the

问题 When i am using latest version R RDCOMClient package for sending outlook Emails, It is showing up an error : "[[<- defined for objects of type "S4" only for subclasses of environment" Code for the same: library(RDCOMClient) ## init com api OutApp <- COMCreate("Outlook.Application") ## create an email outMail = OutApp$CreateItem(0) outMail$GetInspector() signature = outMail[["HTMLBody"]] ## configure email parameter outMail[["To"]] = "some@outlook.com" outMail[["CC"]] <- "Some@outlook.com"

问题 When i am using latest version R RDCOMClient package for sending outlook Emails, It is showing up an error : "[[<- defined for objects of type "S4" only for subclasses of environment" Code for the same: library(RDCOMClient) ## init com api OutApp <- COMCreate("Outlook.Application") ## create an email outMail = OutApp$CreateItem(0) outMail$GetInspector() signature = outMail[["HTMLBody"]] ## configure email parameter outMail[["To"]] = "some@outlook.com" outMail[["CC"]] <- "Some@outlook.com"

问题 I'm using a shiny presentation in order to display two tables. Here's my code: tabsetPanel( tabPanel('iris', renderDataTable(iris,options = list(lengthMenu = c(5, 10), pageLength = 5, scrollX = TRUE), escape = FALSE)), tabPanel('mtcars', renderDataTable(mtcars, options = list(lengthMenu = c(5, 10), pageLength = 5, scrollX = TRUE), escape = FALSE)) ) I would like to shrink the size of the tables. I tried adding div in the following way: div(renderDataTable(mtcars, options = list(lengthMenu = c

问题 Just a short moment ago my question on how to embed an rgl in shiny was answered by Mike, but we seem to have stumbled into another issue, This is the code example: library(rgl) library(car) library(shiny) cars$time <- cars$dist/cars$speed ui <- fluidPage( hr("how do we get the plot inside this app window rather than in a popup?"), rglwidgetOutput("plot", width = 800, height = 600) ) server <- (function(input, output) { output$plot <- renderRglwidget ({ rgl.open(useNULL=F) scatter3d(x=cars

问题 If you want to include an image in a normal shiny app, you would call shiny::img(src = "imgName.png") in your ui function with the following directory structure: | shinyApp/ | ui.R | server.R | www/ | myImage.png How do you replicate this in a shiny app that is also an r package? I've tried to do everything exactly the same, but with the following directory structure, with no luck: | packageName/ | R | app.R # contains ui.R and server.R | inst | www | imgName.png For what it's worth, in my

问题 I'm having an issue in shinydashboard where equations that I'm writing are not wrapping when placed in a box . The equations are extending beyond the limits of the box . MWE: library(shinydashboard) library(shiny) # UI ui <- dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody( fluidRow( column(width = 6, box("Long Equation", width = 12, h3(withMathJax("$$ \\alpha + \\beta + \\gamma + \\delta + \\alpha + \\beta + \\gamma + \\delta + \\alpha + \\beta + \\gamma + \\delta + $$")))

问题 I try to create dynamic boxes in shiny. We can change the status (color) of the box with (status = "warning" or "info" etc.) I would like to change the color of this box (dynamically) depend on the choice of select input like that : https://image.noelshack.com/fichiers/2018/32/2/1533638864-v1.png https://image.noelshack.com/fichiers/2018/32/2/1533638864-v2.png The code looks like this : SelectInput("s010102i", label = NULL, choices = list("Value 1" = 1, "Value 2" = 2, "Value 3" = 3), selected

问题 Take this example app from the shiny docs that shows the working of the validate() function: ## server.R `%then%` <- shiny:::`%OR%` shinyServer(function(input, output) { data <- reactive({ validate( need(input$data != "", "Please select a data set") %then% need(input$data %in% c("mtcars", "faithful", "iris"), "Unrecognized data set") %then% need(input$data, "Input is an empty string") %then% need(!is.null(input$data), "Input is not an empty string, it is NULL") ) get(input$data, 'package

问题 I am trying to deploy a shiny app and am running into trouble... I have an Rmd file, and am trying to publish this document first by running locally in Rstudio, then on web. My files are stored on my home user directory in a folder named Shiny. This has the files imported, my RMD, my shinyapps.io file, and my rsconnect file. title: "Sedentary Analysis" author: "Bianca Gonzalez" date: "July 26, 2016" output: html_document runtime: shiny When I run the rsconnect::deployApp('SedentaryAnalysis