Jarek Statinowy

Jarek Statinowy Z zapałem do pracy

Temat: Wyskakujące "okienka" w R

Witam

Piszę pewien program w R i w pewnym momencie program musi odwołać się do wartości w zmiennej k. Puki co zmienne ta jest wpisana na stałe na początku programu a chciałbym by program w trakcie zapytał się ile ona ma wynosić bo często ją zmieniam co jest uwarunkowane testowaniem różnych ustawień.

Wiem, że taka opcja istnieje w Java i podejrzewam, że w R też da się to zrobić. Zastanawiam się jednak jak

Im prostszy sposób tym lepszy to tylko dla mnie by szybciej testować rożne ustawienia parametrów w programie.
Może jest jakiś pakiet który to umożliwia lub jakaś literatura na ten temat

Pozdrawiam

Temat: Wyskakujące "okienka" w R

Są różne pakiety okienkowe, ale najłatwiej chyba po prostu zrobić



x <- as.numeric(readline("Podaj wartość x"))

Jarek Statinowy

Jarek Statinowy Z zapałem do pracy

Temat: Wyskakujące "okienka" w R

Właśnie o coś takiego mi chodzi (coś prostego), choć to nie chce u mnie działać.

Program wypisał tekst Podaj wartość x ale nie pojawiło się "okienko" i rzecz jasna do x nie została przypisana żadna wartość.

--------------
Generalnie ja chciałbym przypisać wartość do zmiennej (niech będzie x) i na podstawie tej wartości program ma dalej liczyć.
Oczywiście mógłbym napisać x=5 i dalej .... coś tam by się wykonało.

ale zależy mi na czymś takim:
Start -> coś się wykonuje -> Pytanie o wartość x -> moja odpowiedz -> dalej wykonuje się kod w zależności od wartości xTen post został edytowany przez Autora dnia 09.05.16 o godzinie 13:50
Jarek Statinowy

Jarek Statinowy Z zapałem do pracy

Temat: Wyskakujące "okienka" w R

Poszukałem i napisałem coś z zabezpieczeniem

readinteger <- function()
{
n <- readline(prompt="Wpisz całkowitą: ")
if(!grepl("^[0-9]+$",n))
{
return(readinteger())
}

return(as.integer(n))
}

print(readinteger())


Ale nie wiem jak przypisać odpowiedz do zmiennej by z niej skorzystaćTen post został edytowany przez Autora dnia 09.05.16 o godzinie 14:26

Temat: Wyskakujące "okienka" w R

Jarek S.:
Program wypisał tekst Podaj wartość x ale nie pojawiło się "okienko" i rzecz jasna do x nie została przypisana żadna wartość.

Bo jej nie wpisałeś. Trzeba było wpisać wartość w konsoli po wyświetlonym tekście.

 > x <- as.numeric(readline("Podaj wartość x: "))
Podaj wartość x: 23
> x
[1] 23


Inna opcja - pakiet svDialogs:
as.numeric(dlgInput(message = "Podaj wartość x", default = "", gui = .GUI)$res)


albo gWidgets:
 > x <- as.numeric(ginput(title="Okno", message="Podaj wartość x:"))
> x
[1] 32

Jarek S.:
Poszukałem i napisałem coś z zabezpieczeniem

readinteger <- function()[/quote]> { [quote]  n <- readline(prompt="Wpisz całkowitą: ")[/quote]>   if(!grepl("^[0-9]+$",n))[quote]  {
return(readinteger())
}

return(as.integer(n))
}

print(readinteger())


Ale nie wiem jak przypisać odpowiedz do zmiennej by z niej skorzystać

 > ( x <- readinteger() )
Wpisz całkowitą: A
Wpisz całkowitą: B
Wpisz całkowitą: 3.2
Wpisz całkowitą: -1
Wpisz całkowitą: 23
[1] 23
Ten post został edytowany przez Autora dnia 09.05.16 o godzinie 14:42

Następna dyskusja:

OKIENKA W KIOSKACH RUCHU!




Wyślij zaproszenie do