小编Fra*_* VE的帖子

我想找到一个使用嵌入式GPS的设备(如应用程序共享位置).我已经读过它可能了enableHighAccuracy: true.

我enableHighAccuracy: true该如何设置此代码？我试过不同的位置,但它不起作用.

<script type="text/javascript">
    if (navigator.geolocation) {
        navigator.geolocation.getCurrentPosition(function(position) {
            var latitude = position.coords.latitude;
            var longitude = position.coords.longitude;
            var accuracy = position.coords.accuracy;
            var coords = new google.maps.LatLng(latitude, longitude);
            var mapOptions = {
                zoom: 15,
                center: coords,
                mapTypeControl: true,
                navigationControlOptions: {
                    style: google.maps.NavigationControlStyle.SMALL
                },
                mapTypeId: google.maps.MapTypeId.ROADMAP
            };

            var capa = document.getElementById("capa");
            capa.innerHTML = "latitude: " + latitude + ", longitude: " + ", accuracy: " + accuracy;  

            map = new google.maps.Map(document.getElementById("mapContainer"), mapOptions);
            var marker = new …

我需要在设备移动时或设备获得更高精度时仅更新标记.当位置变化也重新加载地图,我只需要移动制造商.我有以下代码:

if (navigator.geolocation) {
    navigator.geolocation.watchPosition(

    function(position){
    var latitude = position.coords.latitude;
    var longitude = position.coords.longitude;
    var accuracy = position.coords.accuracy;
    var coords = new google.maps.LatLng(latitude, longitude);
    var mapOptions = {
        zoom: 20,
        center: coords,
        streetViewControl: false,
        mapTypeControl: false,
        navigationControlOptions: {
            style: google.maps.NavigationControlStyle.SMALL
        },
        mapTypeId: google.maps.MapTypeId.ROADMAP
        };

     var capa = document.getElementById("capa");
     capa.innerHTML = "latitud: " + latitude + " longitud: " + "   aquesta es la precisio en metres  :  " + accuracy;  

        map = new google.maps.Map(
            document.getElementById("mapContainer"), mapOptions
            );
        var marker = …

我想在闪亮的模块中有一个可编辑的设备标识符。当我更改 DT 中的值时，表会更新，并且数据表中的消息为空：

“未找到匹配的记录”

我的代码如下：

模块：

modDtUi <- function(id){ # UI module
  ns = NS(id)
  DT::dataTableOutput(ns('x1'))
} 


modDt <-  function(input, output, session, data){ # Server module

  x <- data
  output$x1 <- DT::renderDataTable(x, selection = 'none', editable = TRUE)

  proxy <- dataTableProxy('x1', session = session)

  observeEvent(input$x1_cell_edit, {
    info = input$x1_cell_edit
    str(info)
    print(info)
    i = info$row
    j = info$col
    v = info$value
    x[i, j] <<- DT::coerceValue(v, x[i, j])
    replaceData(proxy, x, resetPaging = FALSE, rownames = FALSE)
  })

}

Flexdashboard 中的应用程序：

```{r}
modDtUi("editable") …

我想根据情况与dplyr分组。例如，如果我们有下表：

A      B 
1      0
10     1
5      1
6      2

我将在B = 0时进行分组，在B> 1时进行分组，在B> 2时进行分组，依此类推。以下近似是错误的，但可能有助于理解：

df %>% 
   group_by(B > 0:2) %>% 
   summarize(Total = sum(A))

当我们用闪亮的方式开发应用程序时，我们知道：

1 - 如果您的部件中有一个函数server，并且该函数返回错误，则浏览器崩溃/关闭，并且用户不知道发生了什么。

2 - 例如，如果您的函数在另一个渲染函数内返回错误，则renderDataTable该错误将显示在应用程序中，而不是显示表格。

了解了前面的两点后，我尝试将可能返回错误的函数放入渲染函数中。这样做用户可以看到错误。

例如，如果我想显示来自数据库的一些表，并且我有一个简单的查询，例如：

dbGetQuery(con, 
            statement = glue_sql("SELECT DISTINCT COLUMN1 FROM TABLE1", .con = con)

并且COLUMN1不存在，那么该函数将出现错误。如果我在 中具有该函数renderDataTable，那么用户可以看到查询出了问题。如果它就在里面，server那么浏览器将关闭。

问题是在某些情况下我无法将查询放入renderDataTable. 我们可以采取什么方法来显示错误并避免浏览器崩溃？

谢谢

我想在excel中做一些常见的事情,但我不知道如何用R做:

10        * 1.01 = 10.1 
(10+10.1) * 1.02 = 20.502
(10+20.5) * 1.03 = ...

它就像cumprod但是*由外部矢量.

编辑:

我有两个向量,一个可以是:c(50,52,54,55),另一个是c(1.01,1.02,1.03,1.04),我想这样做:

50 * 1.01 = 50.5
(50.5 + 52) * 1.02 = 104.55
...

我希望在没有"for"的每一步都得到一个向量.

谢谢