【作业】{r} ：Shiny app 中使用 isolate 函数，达到 app 作图变换时的不实时反馈效果

作业要求：

在本节中, Shiny app 中使用 isolate 函数，达到 app 作图变换时的不实时反馈效果，即添加一个类似 “ 刷新 ”（refresh）按钮，实现每次图像变换的反馈产生延迟，作图分为 ggplot 和 plot 两种类型.

↓↓↓ 交作业点击下面链接

链接失效了

附上完整代码

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#library(shiny)
library(ggplot2)# Define UI for application that draws a plot
ui <- fluidPage(# Application titletitlePanel("mtcars"),# Sidebar with a slider input for number of bins sidebarLayout(sidebarPanel(sliderInput("wt_range","Range of weight:",min = 1,max = 6,value = c(1,6)),checkboxGroupInput("cyl_value","Choose cylinder", c("4", "6", "8"),selected = c("4", "6", "8")),selectInput("am_value", "Am:", choices = c("0", "1"),selected = c("0", "1"),multiple = TRUE),actionButton("go", "refersh", icon=icon('play-circle'))),# Show a plot of the generated distributionmainPanel(plotOutput("mtcarsPlot")))
)# Define server logic required to draw a plot
server <- function(input, output) {output$mtcarsPlot <- renderPlot({# wtisolate(wt_min <- input$wt_range[1])isolate(wt_max <- input$wt_range[2])mtcars$cyl = factor(mtcars$cyl)mtcars$hps = (mtcars$hp-min(mtcars$hp))/(max(mtcars$hp)-min(mtcars$hp))*4.5 + 0.5isolate(data <- mtcars[mtcars$wt >= wt_min & mtcars$wt <= wt_max,])isolate(data <- data[data$cyl %in% input$cyl_value,])isolate(data <- data[data$am %in% input$am_value,])# draw the plotinput$goif(nrow(data) > 0){## 1 ggplotggplot(data, aes(wt, mpg,color = cyl,size = hps, shape = as.factor(am))) +geom_point(alpha = 0.8, show.legend = TRUE) +guides(colour = guide_legend("cyl"),size = guide_legend("hps"),shape = guide_legend("am")) +theme(legend.position="bottom")## 2 plot(ba '#' qu diao jiu xing le)# with(data,#      plot(mpg ~ wt, cex = hps, col = cyl, pch = am+18))}else{plot(0, type = "n", xlab = "wt", ylab = "mpg")text(1, 0, "No data")}})
}# Run the application
shinyApp(ui = ui, server = server)

结果展示：

【作业】{r} ：Shiny app 中使用 isolate 函数，达到 app 作图变换时的不实时反馈效果相关推荐

R语言使用R基础安装中的glm函数构建乳腺癌二分类预测逻辑回归模型、分类预测器（分类变量）被自动替换为一组虚拟编码变量、summary函数查看检查模型、使用table函数计算混淆矩阵评估分类模型性能
R语言使用R基础安装中的glm函数构建乳腺癌二分类预测逻辑回归模型(Logistic regression).分类预测器(分类变量)被自动替换为一组虚拟编码变量.summary函数查看检查模型.使用t ...
r语言中调用c 程序,如何在R程序包中调用C函数
程序包名称为pareto.这是.c文件中src目录:如何在R程序包中调用C函数 #include #include #include "Rinternals.h" #include ...
laravel控制器方法中，用函数作为变量进行传递时的处理方法
本人在做上传图片时,里面执行的方法时一致的,只是个别地方不同,这种情况下,就需要把公用的部分提取出来,把不同的地方放到回调函数种去. StudentController中的方法: public fun ...
如何快速定位Android APP中的关键函数？
需求来源在逆向分析中,肯定是越快地定位到目标函数越好,那么有没有这样的一种工具可以快速地辅助分析人员定位到目标函数呢? 最早的一个想法是这样的: - 通过某种机制让APP输出函数调用时候的日志记录. ...
R语言_R中的帮助函数
往往我们在直接摘抄其他代码的时候会遇到:函数对应的包未引用,继而导致系统提示"找不到对应函数"的情况.我们知道要library("相应的packages"),但 ...
python爬取app中的音频_喜马拉雅app 爬取音频文件
============== 2019-10-28更新 ================= 因为喜马拉雅的源码格式改了,所以爬虫代码也更新了一波 # -*- coding: utf-8 -*- # w ...
MATLAB Appdesigner实用技巧（三）：在App中实现示波器效果/动态波形效果
1. MATLAB App显示动态波形 IMU901上传上来的数据中包含四元数和加速度,每帧数据包按如下格式向上位机发送: 0.00 0.00 0.00 0.00 0.00 0.00 0.00\r\n ...
[MATLAB App Designer] 多窗口 App 中的交互（含数据传递）
以下均为自己的学习总结,有不对的地方,或者有更便捷的方法欢迎指正. 关于这部分的官方文档如下: https://ww2.mathworks.cn/help/matlab/creating_guis/m ...
魔方APP项目-02-服务端项目搭建，创建manage.py文件、构建全局初始化函数创建app应用对象、通过终端脚本启动项目、项目加载配置、数据库初始化、日志初始化、蓝图初始化
服务端项目搭建新建项目目录mofangapi,并创建虚拟环境 mkvirtualenv mofang 安装开发中使用的依赖模块 pip install flask==0.12.4 pip insta ...

【作业】{r} ：Shiny app 中使用 isolate 函数，达到 app 作图变换时的不实时反馈效果

【作业】{r} ：Shiny app 中使用 isolate 函数，达到 app 作图变换时的不实时反馈效果相关推荐

最新文章

热门文章