小编Bog*_*aso的帖子

如何在Ubuntu中离线安装Docker

我需要在没有任何互联网访问权限的Ubuntu 18 计算机上安装 Docker 。关于这个主题有大量的指导材料,但它们都需要 Ubuntu 机器在线。

任何有关 Docker 离线安装的帮助都会非常有帮助。

谢谢,

docker ubuntu-18.04

9
推荐指数
1
解决办法
1万
查看次数

闪亮的本地部署错误:输入字符串 1 无效 UTF-8

我很惊讶地看到一个突然的错误,我的 ShinyApp 停止工作,出现一个未知错误,说“输入字符串 1 是无效的 UTF-8”。即使在昨天,该应用程序还可以正常运行,但是突然停止了。

以下是我运行时错误的描述 runApp()

> runApp()

Listening on http://127.0.0.1:3726
Warning: Error in sub: input string 1 is invalid UTF-8
Stack trace (innermost first):
    1: runApp
Error : input string 1 is invalid UTF-8
Run Code Online (Sandbox Code Playgroud)

我的会话信息:

> library(shiny); sessionInfo()
R version 3.4.1 (2017-06-30)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Sierra 10.12.6

Matrix products: default
BLAS: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRblas.0.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib

locale:
[1] C/UTF-8/C/C/C/C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] shiny_1.0.5

loaded …
Run Code Online (Sandbox Code Playgroud)

encode r utf-8 shiny

8
推荐指数
1
解决办法
8241
查看次数

加载RData,包装时闪亮的进度条?

我不确定我是否可以在这里展示任何可重复的示例,但是让我讲述我在Shiny应用程序中遇到的问题.

我有一个Shiny应用程序,它基本上是数据驱动的.我所需的所有数据都保存在一个RData放在WWW文件夹中的文件中.当用户将我的Shiny应用程序的地址(托管在其上Amazon AWS)时Shiny app,即当我启动时,该RData文件被加载到R上,然后开始后续计算.

问题是,我的RData文件非常庞大~50MB.所以R需要很长时间才能将其加载到内存中.从用户的角度来看,他/她不确定屏幕后面发生了什么,这让他们中的一些人离开了我的应用程序.

所以我在想是否可以设置一些进度条来显示用户正在发生的事情,因为只有在R加载我的RData文件时才会显示进度条.我知道Shiny可以使用各种进度条方案,但据我所知,它们只是在计算(例如模拟)时才显示进度,而不是在加载过程中.

任何想法,如果能够把加载过程中一些进度条RData,package等等?

谢谢你的指针.

r shiny

6
推荐指数
1
解决办法
350
查看次数

禁用以另一个闪亮输入为条件的闪亮输入

我正在尝试禁用 a Shiny-input,其值以另一个为条件Shiny-input。之前我查看了disable()来自 的函数shinyjs,但就我而言,它似乎无法禁用此类闪亮输入。下面是我的例子:

library(shiny)
library(shinyjs)
runApp(shinyApp(
  ui = fluidPage(
    useShinyjs(),
    sliderInput(inputId = "First", label = "First",
                      min = 10, max = 100, value = 40, step = 1),

    uiOutput("Second_UI")
  ),
  server = function(input, output, session) {
    output$Second_UI = renderUI({
              sliderInput(inputId = "Second", label = "Second", 
                min = 0, max = input$First, value = 5)       
            })

    disable("Second_UI")

  }
))
Run Code Online (Sandbox Code Playgroud)

我基本上想要的是 - 我的第二个sliderInputieSecond仍然会从First响应中获取价值,但是用户不应该能够控制它。

任何指针都将受到高度赞赏。

谢谢,

r shiny shinyjs

5
推荐指数
2
解决办法
1453
查看次数

如何使用HTML和CSS创建自定义形状

我在div中创建了一个半自定义形状,如下所示

.myDiv {
  border-bottom: 300px solid #FFC20F;
  border-right: 150px solid transparent;
  height: 0;
  width: 265px;
}

.myDiv p {
  color: white;
  padding: 40px 0 0 50px;
}
Run Code Online (Sandbox Code Playgroud)
<div class="myDiv">
  <p>Some text</p>
</div>
Run Code Online (Sandbox Code Playgroud)

但是我想进一步修改它,并希望拥有这样的东西,并且不确定如何做到这一点。

在此处输入图片说明

html css css-shapes

4
推荐指数
1
解决办法
108
查看次数

从 sum() 和 '+' 获得不同的结果

下面是我的实验:

> xx = 293.62882204364098
> yy = 0.086783439604999998
> print(xx + yy, 20)
[1] 293.71560548324595175
> print(sum(c(xx,yy)), 20)
[1] 293.71560548324600859
Run Code Online (Sandbox Code Playgroud)

对我来说很奇怪的是,sum()+两者应用于相同的数字时,会给出不同的结果。

这个结果是预期的吗?

我怎样才能得到相同的结果?

哪一种最有效率?

r sum

4
推荐指数
1
解决办法
169
查看次数

如何计算重复长度

我有以下数字序列

dat = c(-0.958694836980719, -0.105869068515775, -0.980669802804642, 
0.028491800336812, -0.635061963060457, 0, -0.930716072199491, 
0, 0.588929981219519, 0, 0.282785133581983, 0.611611557545295, 
0.0378059192851003, -0.797706616778708, 0, 0, 0, 0, 0.517465164205096, 
0, -0.488017358301909, 0, 0, -0.25055111810459, -0.649502253262175, 
-0.665111940088685, 0, 0.0833606598934977, -0.514514991719384, 
0.317596020495366, 0.794602807208168, 0, 0, -0.694999957450694, 
0.68257063515541, 0, -0.624026837516857, 0, 0, 0.450339396971535, 
-0.0302201203415504, -0.579393349186543, -0.844405771995823, 
0.315863139331068, -0.171564746000156, -0.0996391017024767, 0, 
0.0838315913186335, -0.36374768393003, 0, -0.572951822576261, 
-0.352439656458088, -0.637019777744324, 0, 0, -0.0952080968332089, 
0.617610001126072, -0.0816285346831291, 0.365239637846338, -0.0470848081799582, 
-0.925681187001364, 0, 0, 0.516154738675926, 0, 0.335416263139046, 
0.532290710398372, 0.18945326903775, 0.288998846320578, 0.125846440933334, 
-0.279555383136218, -0.456389602581116, -0.716237311784933, -0.0920396169199712, 
-0.2813560662731, 0.345024808219092, 0.338383493565635, …
Run Code Online (Sandbox Code Playgroud)

r vector rle

4
推荐指数
1
解决办法
76
查看次数

在 downloadButton() 和 fileInput() 中添加/删除图标

在 Shiny 中,我们有downloadButton()fileInput()按钮分别用于下载和上传数据。

然而碰巧的是,downloadButton()下载图标,但fileInput()没有附加图标。

在我的 Shiny 应用程序中,我有两个按钮。然而,由于其中一个附加了图标,它在我的应用程序中带来了某种视觉上的不一致。

所以,我要么想从 中删除这样的图标downloadButton(),要么添加一些上传按钮fileInput()以带来一致性。

但是,似乎没有任何直接的方法来执行它们中的任何一个。

因此,如果有任何方法可以:

要么删除图标,downloadButton()要么附加一些上传 图标fileInput()

任何指针都受到高度赞赏。

谢谢,

r shiny shiny-server

3
推荐指数
1
解决办法
1759
查看次数

无法在我的 Ubuntu 机器上安装“xlwings”

我正在尝试xlwings在我的 Ubuntu 机器上安装模块,但失败如下

pip3 install xlwings
Collecting xlwings
  Using cached https://files.pythonhosted.org/packages/cc/c9/6bb1849dbee6e8a40beb9a0d21df9787bee45cda1d0bb575a0cd388dd260/xlwings-0.15.3.tar.gz
    Complete output from command python setup.py egg_info:
    Traceback (most recent call last):
      File "<string>", line 1, in <module>
      File "/tmp/pip-install-u90aes_a/xlwings/setup.py", line 33, in <module>
        raise OSError("currently only Windows and OSX are supported.")
    OSError: currently only Windows and OSX are supported.

    ----------------------------------------
Command "python setup.py egg_info" failed with error code 1 in /tmp/pip-install-u90aes_a/xlwings/
Run Code Online (Sandbox Code Playgroud)

这个错误的解决方法是什么?Ubuntu 不支持 xlwings 吗?我也尝试像下面一样手动安装,但也失败了。

cd xlwings
python setup.py install
Run Code Online (Sandbox Code Playgroud)

任何建议将不胜感激。

2019 年 7 月 10 …

python xlwings

3
推荐指数
1
解决办法
3419
查看次数

selectInput 的弹出列表隐藏在 navBarPage 后面

请考虑下面带有 navBarPage 和 selectInput 的 ShinyApp。

shinyApp(
  ui = fluidPage(
    selectInput("variable", "Variable:",
                c("Cylinders" = "cyl",
                  "Transmission" = "am",
                  "Gears" = "gear")),
    navbarPage(title = "",
                tabPanel("Scene 01",
                                    fluidRow(tableOutput("data"))
                ),
                tabPanel("Scene 02", fluidRow()))
  ),
  server = function(input, output) {
    output$data <- renderTable({
      mtcars[, c("mpg", input$variable), drop = FALSE]
    }, rownames = TRUE)
  }
)
Run Code Online (Sandbox Code Playgroud)

如您所见,当selectInput 的popup-baloon 打开时(即当用户单击selectInput 的下拉图标时),它隐藏在navBarPage 的条带后面。有什么办法可以使弹出气球向前移动,而不是隐藏在导航栏页面后面。

感谢您的帮助。

谢谢,

shiny

2
推荐指数
1
解决办法
702
查看次数

标签 统计

r ×6

shiny ×5

css ×1

css-shapes ×1

docker ×1

encode ×1

html ×1

python ×1

rle ×1

shiny-server ×1

shinyjs ×1

sum ×1

ubuntu-18.04 ×1

utf-8 ×1

vector ×1

xlwings ×1